Текущий архив: 2007.02.04;
Скачать: CL | DM;

Вниз

TTimeStamp   Найти похожие ветки 

← →
Mettt   (2007-01-19 00:05) [0]

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

---

← →
ors_archangel ©   (2007-01-19 01:17) [1]

FileGetDate?
FileDateToDateTime?

---

← →
Mettt   (2007-01-21 13:45) [2]

сделал фасуется както странно, и неправельно
делаю 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;

---

Страницы: 1 вся ветка

Текущий архив: 2007.02.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.049 c