Лабораторна робота № 7
Розробка власних модулів.
Мета: Навчитись складати власні модулі та використовувати їх у власних програмах.
Завдання до лабораторної роботи:
procedure
TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
if Edit1.Text='' then
begin
for i:=1 to 3 do
begin
Edit1.Text:='Введите
данные';
//Application.ProcessMessages;
sleep(300);
Edit1.Text:='';
//Application.ProcessMessages;
sleep(300);
end;
Edit1.SetFocus;
end;
end
;
Canvas.LineTo(X[n], Y[n]);
sleep(200);
Application.ProcessMessages;