Вывод : сегодня я изучил свойства полиморфизма и его виртуальные методы.
Практическая работа №13
Тема практической работы: Визуальные компоненты среды Delphi (standard).
Цель практической работы: изучить визуальные компоненты standard узнать о их свойствах и область применения.
Ход Работы :
Задание №1-2
Рис 44
Задание №3
Рис 45 Рис 46
Листинг:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Edit1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text= 'password' then
Edit2.Text:='Пароль верный'
else
Edit2.Text:='Пароль неверный';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=Edit1.Text;
end;
end.
Задание №4
Рис 47
Листинг:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
SaveDialog1: TSaveDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
end;
end.
Достарыңызбен бөлісу: |
