Вывод : Сегодня я рассмотрел свойства класса, на примере создать класс.
Практическая работа №7
Тема практической работы: Виды методов. Характеристики методов.
Цель практической работы: научится работать с классами.
Ход работы :
Рис 17 рис 18
Листинг :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TPerson = class(TObject)
Name:string[15];
Address:string[35];
constructor create;
procedure print;
end;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
student:TPerson;
professor:TPerson;
implementation
{$R *.dfm}
Constructor TPerson.create;
begin
name:=' ';
address:=' ';
end;
Procedure TPerson.print;
begin
form1.Label1.Caption:='ФИО :'+name+'.Адрес :'+address;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Professor:=TPerson.Create;
Student:=TPerson.Create;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
professor.Name:=' Петров ';
professor.Address:=' Чита, Ленинградская,22';
professor.print;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
student.Name:=' Иванов ';
student.Address:='Чита, Столярова,14';
student.print;
end;
end.
Достарыңызбен бөлісу: |
