Скачать: CL | DM;

Поиск файла   Найти похожие ветки 

← →
Ezhik   (2004-09-16 18:08) [0]

Вобщем я нашел файлы и папки с помошью FindFirst, FindNext. Теперь весь список атрибутов и т.д. хранитса в переменной типа TSearchRec. Я все понимаю, но как мне перевести тип REC.FindData.ftCreationTime: _FILETIME в String???
Спасибо!!!!

---

← →
sniknik ©   (2004-09-16 18:23) [1]

> Я все понимаю, но как мне перевести тип REC.FindData.ftCreationTime: _FILETIME в String???
завидую... понять все(!) это же круто, на мелочи внимания не обращай, ну подумаеш одна непонятка. ;о)

DateTimeToStr(FileDateToDateTime(REC.FindData.ftCreationTime))

---

← →
Ezhik   (2004-09-16 19:20) [2]

А сам то порбывал??? Компилятор выдает ишибку несовместимости типов ЕDateTime и _FILETIME!!!

---

← →
begin...end ©   (2004-09-16 19:28) [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 20:01) [4]

ооо, эт тошо нада!!! Спасибо.

---

← →
Fay ©   (2004-09-16 20:04) [5]

2 Ezhik   (16.09.04 18:08)
У тебя F1 не работает?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c