Скачать: CL | DM;

time   Найти похожие ветки 

← →
dm37   (2004-02-25 15:04) [0]

Подскажите как можно сделать следующее:
const
SoftDate = дата компиляции программы;

получить дату компиляции программы, чтобы далее использовать это значение при обработке (автоматическая подстановка даты, а не ручной ввод)

Спасибо.

---

← →
Cobalt ©   (2004-02-25 15:05) [1]

Вот так и делаешь - присваиваешь одной константе значение, и используешь её значение везде, где требуется.
Ну а значение задаёшь сам - в паскале нет препроцессора с макросам.

---

← →
olookin ©   (2004-02-25 15:06) [2]

var SoftDate: TDateTime;

При старте программы - SoftDate:=Now

---

← →
Ega23 ©   (2004-02-25 15:11) [3]

В Rx есть класс TVersionInfo. Вот public оттуда:

public
constructor Create(const AFileName: string);
destructor Destroy; override;
function GetVerValue(const VerName: string): string;
property FileName: string read GetFileName write SetFileName;
property Valid: Boolean read FValid;
property FixedFileInfo: PVSFixedFileInfo read GetFixedFileInfo;
property FileLongVersion: TLongVersion read GetFileLongVersion;
property ProductLongVersion: TLongVersion read GetProductLongVersion;
property Translation: Pointer read GetTranslation;
property VersionLanguage: TVersionLanguage read GetVersionLanguage;
property VersionCharSet: TVersionCharSet read GetVersionCharSet;
property VersionNum: Longint read GetVersionNum;
property Comments: string read GetComments;
property CompanyName: string read GetCompanyName;
property FileDescription: string read GetFileDescription;
property FileVersion: string read GetFileVersion;
property InternalName: string read GetInternalName;
property LegalCopyright: string read GetLegalCopyright;
property LegalTrademarks: string read GetLegalTrademarks;
property OriginalFilename: string read GetOriginalFilename;
property ProductVersion: string read GetProductVersion;
property ProductName: string read GetProductName;
property SpecialBuild: string read GetSpecialBuild;
property PrivateBuild: string read GetPrivateBuild;
property Values[const Name: string]: string read GetVerValue;
property VerFileDate: TDateTime read GetVerFileDate;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c