Форум: "Основная";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c
