Текущий архив: 2004.05.23;
Скачать: CL | DM;
Вниз
вывести дату обновления файла в Label Найти похожие ветки
← →
ceval © (2004-05-10 19:01) [0]Добрый вечер !
вывожу в Label дату обновления файла из dbf-файла (FoxPro)
с использыванием функции:
function GetFileDate(FileName: string): string;
var
FHandle: Integer;
begin
FHandle := FileOpen(FileName, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;
end;
Мне выдает ошибку "Invalid argument to data encode"
Подскажите в чем может быть дело??
А может кто знает другой способ вывести дату обновления файла в Label??
Зарание спасибо!!
← →
OlegGashev © (2004-05-10 19:45) [1]
function GetFileDate(FileName: string): string;
var
FHandle: HFILE;
ofstr:OFSTRUCT;
creationtime,lastaccesstime,lastwritetime:FILETIME;
creationsystime,lastaccesssystime,lastwritesystime:SYSTEMTIME;
begin
FHandle := OpenFile(PChar(FileName),ofstr,GENERIC_READ);
try
GetFileTime(FHandle,@creationtime,@lastaccesstime,@lastwritetime);
FileTimeToSystemTime(lastwritetime,lastwritesystime);
Result := DateTimeToStr(SystemTimeToDateTime(lastwritesystime));
finally
CloseHandle(FHandle);
end;
end;
← →
OlegGashev © (2004-05-10 19:56) [2]Забыл дописать
begin
Result:="";
...........
← →
ceval © (2004-05-11 17:15) [3]Простите за детский вопрос
Но мне не разу не приходилось использывать функцию
Подскажите пожалуста как ее вывести в Label
Зарание спасибо!!
← →
WebErr © (2004-05-11 17:24) [4]Гы! :)
Label666.Caption := GetFileDate("some.dbf"); // or like this
← →
ceval © (2004-05-11 17:31) [5]Большущие Спасибо WedErr !!!
Я недавно пытаюсь программировать на Delphi
← →
WebErr © (2004-05-11 17:33) [6]
> ceval © (11.05.04 17:31) [5]
Удачи, это самая простая и приятная среда обитания для программера! :))))
← →
Mim1 © (2004-05-11 17:50) [7][4] WebErr © (11.05.04 17:24)
Мне вот интересно, ты хоть иногда думаеш над ответами? Может лучше совсем не отвечать чем отвечать неправильно?
Страницы: 1 вся ветка
Текущий архив: 2004.05.23;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.052 c
