Procedure Button1OnClick(Sender: TObject);
var D,T: TDateTime;
a: longint;
begin
D:=now;
sleep(10000);
T:=now;
a:=T-D;
sleep(a)
end;
программа не ест, не компилируется на 8 строчке, не понимаю.
var D,T: TDateTime;
a: longint;
begin
D:=now;
sleep(10000);
T:=now;
a:=T-D;
sleep(a)
end;
программа не ест, не компилируется на 8 строчке, не понимаю.