Пример класса в Delphi

[InfStudent]

Я написал примитивный класс, однако при помощи него можно увидеть как он создается, из чего состоит и как используется.

 Итак листинг вызывающей программы:

unit TrainApp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,TrainingClass; //подключаем  модульTrainingClass

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Train:TTrainingClass;//объявляем переменную соответст. типа
begin
Train:=TTrainingClass.Create;//а теперь создаем ее в памяти
Train.IamClass;//вызываем метод класса
Train.GetValue(Edit1.Text);//а вот метод с параметрами
Train.ShowValue;//и показываем значение
Train.Free;//уничтожаем объект

end;

end.
ЛИСТИНГ КЛАССА:

nterface
uses  Dialogs,SysUtils;unit TrainingClass;\\это нужно для функ Delph

type
TTrainingClass=class
public\\'эти методы видны из всех частей проги
Constructor Create;\\этот метод создает объект класса
procedure GetValue(userval:string);\\читает значение
procedure IamClass();\\\выводит сообщение
procedure ShowValue();\\показыавает значение i
private
i:integer;\\эта переменая видна только ВНУТРИ КЛАССА
end;
implementation\\реализация функций

procedure TTrainingClass.IamClass;
begin
  ShowMessage('Я работаю!');
end;

constructor TTrainingClass.create();
begin
i:=1;
end;

procedure TTrainingClass.ShowValue;
begin
ShowMessage('i='+intToStr(i));
end;

procedure TTrainingClass.GetValue(userval: string);
var
kod:integer;
uservalue:integer;
begin
val(userval,uservalue,kod);
if kod=0 then
begin
i:=uservalue;
end
else
begin
MessageDlg('Нецифровой ввод',mtWarning,[mbOK],0);
i:=0;
end;
end;

end.

[InfStudent]

Обращаю внимание на то, что объект динамическая структура, т.е. ее надо создать в памяти, а то что она объявлена в блоке var это лишь указание компилятору сделать некотоый резерв памяти под нее. Если не вызвать конструктор для создания объекта, то при обращении к его методам будет ошибка, т.к. вы обращаетесь в пустоту)