ООП

{*******************************************************}
{                                                       }
{       OPPProject                                      }
{                                                       }
{       Главная форма приложения                        }
{                                                       }
{       Copyright (C) 2013 Basis                        }
{                                                       }
{*******************************************************}
unit UformOOP;
 
interface
 
uses
  UOOPBaseClass,
 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TformOOP = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  formOOP: TformOOP;
 
implementation
 
{$R *.dfm}
 
procedure TformOOP.FormCreate(Sender: TObject);
var i:Integer;
c:TAbstractCalculation;
s:TStrings;
begin
  c.Calculate(10,20);
  
 // AddToObjList(c);
  //CalcAllObj(1,2,s);
end;
 
end.

{*******************************************************}
{                                                       }
{       OPPProject                                      }
{                                                       }
{       Модуль базового класса вычисления значения      }
{                                                       }
{       Copyright (C) 2013 Basis                        }
{                                                       }
{*******************************************************}
unit UOOPBaseClass;
 
interface
 
uses
  SysUtils, Classes,Dialogs;
 
type
  // Базовый класс вычисления
  TAbstractCalculation = class(TObject)
  protected
    procedure DoCalculate(const AValue1, AValue2 : integer; out AResult : integer); virtual; abstract;
 
  public
    function Calculate(const AValue1, AValue2 : integer) : integer;
  end;
 
  TClassNas = class(TAbstractCalculation)
    Name: string;
 
    procedure DoCalculate(const AValue1, AValue2: integer; out AResult: integer); override;
  end;
 
 
  procedure CalcAllObj(const AValue1, AValue2: integer; Strings: TStrings);
  procedure AddToObjList(ACalculation : TAbstractCalculation);
  procedure RemoveFromObjList(ACalculation : TAbstractCalculation);
 
implementation
 
var
  ObjList: TList;
 
procedure CalcAllObj(const AValue1, AValue2: integer; Strings: TStrings);
var
  I, Res: Integer;
  Obj : TAbstractCalculation;
begin
  for I := 0 to ObjList.Count - 1 do
    try
      Obj := TAbstractCalculation(ObjList[I]);
      Res := Obj.Calculate(AValue1, AValue2);
      Strings.Add(Obj.ClassName + ': ' + IntToStr(Res));
    except
      on E: Exception do
      Strings.Add(E.Message);
    end;
end;
 
procedure AddToObjList(ACalculation : TAbstractCalculation);
begin
  ObjList.Add(ACalculation);
end;
 
procedure RemoveFromObjList(ACalculation : TAbstractCalculation);
begin
  ObjList.Remove(ACalculation);
end;
 
{ TAbstractCalculation }
function TAbstractCalculation.Calculate(const AValue1,
  AValue2: integer): integer;
begin
  DoCalculate(AValue1, AValue2, Result);
end;
 
 
procedure TClassNas.DoCalculate(const AValue1, AValue2: integer; out AResult:
  integer);
begin
 
  AResult := AValue1 + AValue2;
  ShowMessage('123');
end;
 
 
initialization
  ObjList := TList.Create;
 
finalization
  ObjList.Free;
  ObjList := nil;
 
end.

// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
// JCL_DEBUG_EXPERT_INSERTJDBG OFF
program OOPProject;
 
uses
  Forms,
  UformOOP in 'UformOOP.pas' {formOOP},
  UOOPBaseClass in 'UOOPBaseClass.pas';
 
{$R *.res}
 
begin
  System.ReportMemoryLeaksOnShutdown := True;
 
  // ***
 
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TformOOP, formOOP);
  Application.Run;
end.

//<-- здесь место для объявления переменных
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
// <-- здесь можно создавать экземпляры своих классов и стринглиста и делать прочую лабуду с ними согласно задания
Application.CreateForm(TformOOP, formOOP);
formOOP.SetDemoResult(созданный выше стринглист); // вызов метода формы, в котором запомннается переданный объект-стринглист, сам его вывод в виз.контрол следует делать не раньше OnShow
Application.Run;