freepascal.ru

Код: Выделить всё

program sample;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes;

type

  { TSampleAbstractClass }

  TSampleAbstractClass = class abstract (TObject)
    private
    Fparam: string;
    public
    constructor Create(const param: string);
  end;

  { TSampleClass }

  TSampleClass = class(TSampleAbstractClass)
  private
    Fobj: TObject;
  public
    constructor Create;
    destructor Destroy; override;
  published
    property obj: TObject read Fobj;
  end;

var
  sample,sample2: TSampleClass;

{ TSampleClass }

constructor TSampleClass.Create;
begin
  Fobj := TObject.Create;
  inherited Create('test');
end;

destructor TSampleClass.Destroy;
begin
  Fobj.Free;
  inherited Destroy;
end;

{ TSampleAbstractClass }

constructor TSampleAbstractClass.Create(const param: string);
begin
  Fparam := param;
end;


function test(const obj: TSampleAbstractClass): TSampleAbstractClass;
begin
  // здесь нужно создать новый объект класса наследника от TSampleAbstractClass
  Result := TSampleAbstractClass(obj.ClassType.Create);
end;

begin
  sample := TSampleClass.Create;

  sample2 := TSampleClass(test(sample));

  if not Assigned(sample2.obj) then
   WriteLn('sample2.obj is not assigned')
 else
   WriteLn('sample2.obj is assigned');

  sample2.Free;
  sample.Free;

  ReadLn;
end.

Код: Выделить всё

{$MODE OBJFPC}
type
TSome = class
  constructor CreateSome; virtual;
end;

TSomeClass = class of TSome;

TOther = class(TSome)
  constructor CreateSome; override;
end;

constructor TSome.CreateSome;
begin
  Writeln('TSome.CreateSome');
end;

constructor TOther.CreateSome;
begin
  Writeln('TOther.CreateSome');
end;

function CreateSame(Obj: TSome): TSome;
begin
  Result := TSomeClass(Obj.ClassType).CreateSome;
end;

begin
  CreateSame(TSome.CreateSome);
  CreateSame(TOther.CreateSome);
end.

Код: Выделить всё

  { TSampleAbstractClass }

  TSampleAbstractClass = class abstract (TObject)
    private
    Fparam: string;
    public
      constructor Create(const param: string);
      class function SampleClass: TSampleAbstarctClass;
  end;

class function SampleClass: TSampleAbstarctClass;
begin
  Result:=self;
end;

... ...

ASample2:=ASample1.SampleClass.Create(param);

Код: Выделить всё

    V1:=V.ClassType.Create;
    if Assigned(V1) then
    begin
      if V1 is TSQLCommandAbstract then
      begin
        TSQLCommandAbstract(V1).Create(nil);
        try
          TSQLCommandDDL(V1).Assign(V);
        finally