Сравнение времени

@Вовкин · Регистрация: 17.07.2012

Author24 — интернет-сервис помощи студентам

Доброе время суток!
как сравнить время и получить ответ в миллисекундах

есть

Delphi

constructor Tcustomer.Create(const CustomerNomer :integer;
const CustomerPotok :integer;
const CustomerVremya : Double);
begin
self.CustomerNomer:= CustomerNomer;
self.CustomerPotok:= CustomerPotok;
self.CustomerVremya:= CustomerVremya;
end;

Delphi

procedure TForm1.FormCreate(Sented: TObject);
var
customer : TCustomer;
 
begin
if z=4 then
Begin
z:=0;
schet:=schet+1;
if mylist.Count > 0 then
begin
DlinOch:=DlinOch+mylist.Count;
PocObr:=PocObr+1;
P:=
myList.Delete(0);
end;
end
else
if (r>0) and (r<4) then
begin
w:=w+1;
myList.Add(TCustomer.Create(w,r,now ));
end;
 
end;

надо сравнить 3-ий элемент первой строки mylist с текущей датой. Получить результат в миллисекундах

@FIL · 02.12.2014, 17:59

DateUtils.MilliSecondsBetween

@Вовкин · 02.12.2014, 19:20 **[ТС]**

Сообщение от FIL

DateUtils.MilliSecondsBetween

Благодарю уважаемый вы меня всегда выручаете!

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	02.12.2014, 17:59	2
	DateUtils.MilliSecondsBetween 1

@Вовкин 23 / 24 / 2 Регистрация: 17.07.2012 Сообщений: 234
	02.12.2014, 19:20 [ТС]	3
	Сообщение от FIL DateUtils.MilliSecondsBetween Благодарю уважаемый вы меня всегда выручаете! 0