Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

как вывести в 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.032 c
14-1081758739
able
2004-04-12 12:32
2004.04.11
Как убрать ф-цию контроллера домена?


1-1079999039
@ng3L
2004-03-23 02:43
2004.04.11
Векторная карта ->>>> TXT файл..


1-1080123251
an-na2002
2004-03-24 13:14
2004.04.11
TEdit точка запятая


7-1076066126
$tranger
2004-02-06 14:15
2004.04.11
Проблема с пакетом "MySysInfo"


1-1079749153
Артем К.
2004-03-20 05:19
2004.04.11
Отрисовка пункта меню шрифтом красного цвета