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

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

TTimeStamp

Mettt ©   (2007-01-19 00:05:00) 

Как вытянуть из дату создания файла в TTimeStamp  зная его путь-имя?

---

Mettt   (2007-01-21 13:45:00) [1]

сделал фасуется както странно, и неправельно
делаю TList загоняю туда дату в  double и имя (это упустил пока)

H:=CreateFile(PCHAR(Fil),
i:=FileGetDate(h);
Result:=FileDateToDateTime(i);
отрываю и получаю дату в формате doble
type  TDateTime = type Double;

Following are some examples of TDateTime values and their corresponding dates and times:

0 12/30/1899 12:00 am
2.75 1/1/1900 6:00 pm
-1.25 12/29/1899 6:00 am
35065 1/1/1996 12:00 am

INFO.Sort(Comp);

сортирую, вижу сортировка есть и не по имени,но
и по дате далековато
где грабли?

function Comp(Item1,Item2:pointer):integer;
var
p1:^double;
p2:^double;
begin    
TRY
p1:=Item1;
p2:=Item2;
if p1<p2 then begin
                        Result:=-1
                        end
 else if p1>p2 then  Result:=1
    else Result:=0
EXCEPT
END;
end;

---

ors_archangel   (2007-01-19 01:17:00) [2]

FileGetDate?
FileDateToDateTime?

---

Наверх