| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

quadronik ©   (2005-11-20 23:17:00) 

Есть файл созданный 12.11.2005г.
Через FirstFind нахожу его и через переменную file.time типа TSearchRect вывожу дату его создания. Но вместо ожидаемого 12.11.2005 вижу 18.10.41556. Что это значит?
Как мне получить корректное значение даты создания файла?

---

quadronik   (2005-11-21 14:27:00) [1]

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

---

Zeqfreed   (2005-11-21 00:57:00) [2]

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;

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

---

Плохиш   (2005-11-21 00:33:00) [3]

> quadronik ©   (20.11.05 23:34) [2]

А в справку по TSearchRect заглянуть, слабо?

---

quadronik   (2005-11-20 23:34:00) [4]

var file:TSearchRect;
if FindFirst('file.txt'...file)>0 then label1.caption:=TimetoStr(file.time);
.....
что в этом роде... на память не помню... тк выхожу в интернет не через свои комп.

Где то читал что значение file.time необходимо корректировать, но как?
Почему значение label1 содержит ерунду какуюто?

---

Zeqfreed   (2005-11-20 23:23:00) [5]

quadronik ©   (20.11.05 23:17)

> Через FirstFind нахожу его и через переменную
> file.time типа TSearchRect вывожу дату его создания.

Лучше бы привел участок кода, чем все перепутал, да и по существу ничего не сказал.

---

Наверх