Текущий архив: 2005.12.11;
Скачать: CL | DM;
Вниз
Некорректная дата создания файла Найти похожие ветки
← →
quadronik © (2005-11-20 23:17) [0]Есть файл созданный 12.11.2005г.
Через FirstFind нахожу его и через переменную file.time типа TSearchRect вывожу дату его создания. Но вместо ожидаемого 12.11.2005 вижу 18.10.41556. Что это значит?
Как мне получить корректное значение даты создания файла?
← →
Zeqfreed © (2005-11-20 23:23) [1]quadronik © (20.11.05 23:17)
> Через FirstFind нахожу его и через переменную
> file.time типа TSearchRect вывожу дату его создания.
Лучше бы привел участок кода, чем все перепутал, да и по существу ничего не сказал.
← →
quadronik © (2005-11-20 23:34) [2]var file:TSearchRect;
if FindFirst("file.txt"...file)>0 then label1.caption:=TimetoStr(file.time);
.....
что в этом роде... на память не помню... тк выхожу в интернет не через свои комп.
Где то читал что значение file.time необходимо корректировать, но как?
Почему значение label1 содержит ерунду какуюто?
← →
Плохиш © (2005-11-21 00:33) [3]
> quadronik © (20.11.05 23:34) [2]
А в справку по TSearchRect заглянуть, слабо?
← →
Zeqfreed © (2005-11-21 00:57) [4]quadronik © (20.11.05 23:34) [2]
function GetFileDate(const FileName : String) : TDateTime;
var
SR : TSearchRec;
begin
if (FindFirst(PChar(FileName), faAnyFile, SR) = 0) then begin
Result := FileDateToDateTime(SR.Time);
FindClose(SR);
end else raise Exception.Create(Format("Unable to locate file "%s"", [FileName]));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(DateTimeToStr(GetFileDate(Edit1.Text)));
end;
Читай справку поглядывая на код, просвещайся.
← →
quadronik © (2005-11-21 14:27) [5]Спасибо большое за помощь...
Страницы: 1 вся ветка
Текущий архив: 2005.12.11;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.047 c
