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