Скачать: 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 вся ветка

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



Память: 0.46 MB
Время: 0.046 c