Лабораторна робота № 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;