Текущий архив: 2004.10.17;
Скачать: 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 вся ветка
Текущий архив: 2004.10.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.049 c
