Некорректная дата создания файла

← →
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 заглянуть, слабо?

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;

Читай справку поглядывая на код, просвещайся.

Спасибо большое за помощь...

Некорректная дата создания файла Найти похожие ветки