как вывести в Dbtext дату обновления файла

← →
Ceval (2004-03-12 17:36) [0]

Подскажите как вывести в Dbtext дату обновления файла?
т. е. есть dbf-файлы которые постаянно обновляются и что бы при открытии таблицы была выведина дата последнего обновления .
Огромное спасибо за помощь!

← →
Vlad © (2004-03-12 17:43) [1]

получить дату последнего изменения файла:

function GetFileDate(FileName: string): string; var FHandle: Integer; begin FHandle := FileOpen(FileName, 0); try Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle))); finally FileClose(FHandle); end; end;

Только выводить лучше не в DBText а в Label :-)

← →
MU (2004-03-12 17:55) [2]

Label1.Caption := DateToStr(FileDateToDateTime(FileAge(FileName)));

>>Vlad © (12.03.04 17:43) [1]
А если он кем-то открыт?

← →
ceval (2004-03-13 18:12) [3]

Может что я неправельно делаю если
пишу :
Label1.Caption := DateToStr(FileDateToDateTime(FileAge(FileName)));
мне выдает ошибку " Invalid argument to data encode "

Большое спасибо VLADу за функцию.

Но если можно обьясните как ее правельно использывать
вывести Label
Спасибо за помощь

как вывести в Dbtext дату обновления файла Найти похожие ветки