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

В 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;

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