Реферат: Объектно-ориентированный подход к программированию

public

procedure GetData: string; virtual; abstract;

…

end;

TmySun1Class = class(TMyClass)

Protected

AmyField: string;

…

public

procedure GetData: string; override;

…

end;

TmySun2Class = class(TMyClass)

Protected

AmyField: Integer;

…

public

procedure GetData: string; override;

…

end;

…

implementation

procedure TmySun1Class.GetData: string;

begin

Result:= AmyField;

end;

procedure TmySun2Class.GetData: string;

begin

Result:=IntToStr(AmyField);