![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Поиск файла
Ezhik © (2004-09-16 18:08:00)Вобщем я нашел файлы и папки с помошью FindFirst, FindNext. Теперь весь список атрибутов и т.д. хранитса в переменной типа TSearchRec. Я все понимаю, но как мне перевести тип REC.FindData.ftCreationTime: _FILETIME в String???
Спасибо!!!!
Fay (2004-09-16 20:04:00) [1]2 Ezhik (16.09.04 18:08)
У тебя F1 не работает?
Ezhik (2004-09-16 20:01:00) [2]ооо, эт тошо нада!!! Спасибо.
begin...end (2004-09-16 19:28:00) [3]
function FileTimeToDateTime(FileTime: TFileTime): TDateTime;
var
SystemTime: TSystemTime;
LocalTime: TFileTime;
begin
FileTimeToLocalFileTime(FileTime, LocalTime);
FileTimeToSystemTime(LocalTime, SystemTime);
Result := SystemTimeToDateTime(SystemTime);
end;
Ezhik (2004-09-16 19:20:00) [4]А сам то порбывал??? Компилятор выдает ишибку несовместимости типов ЕDateTime и _FILETIME!!!
sniknik (2004-09-16 18:23:00) [5]> Я все понимаю, но как мне перевести тип REC.FindData.ftCreationTime: _FILETIME в String???
завидую... понять все(!) это же круто, на мелочи внимания не обращай, ну подумаеш одна непонятка. ;о)
DateTimeToStr(FileDateToDateTime(REC.FindData.ftCreationTime))