| papsik | Дата: Понедельник, 20.04.2020, 13:48 | Сообщение # 1 |
Частый гость
Зарегистрирован: 10.03.2020
Группа: Пользователи
Сообщений: 50
Статус: Offline
| Procedure Button1OnClick(Sender: TObject);
var D,T: TDateTime;
a: longint;
begin
D:=now;
sleep(10000);
T:=now;
a:=T-D;
sleep(a)
end;
программа не ест, не компилируется на 8 строчке, не понимаю.
|
| |
| |
