Konstruktor erstellen

[himitsu]

Delphi-Quellcode:

TClassA = class (TObject)
  private
    a : string;
  public
    constructor create (ValueA : string);
  end;

  TClassB = class (TClassA)
  private
    b : string;
  public
    constructor create (ValueA, ValueB : string);
  end;


constructor TClassB.create (ValueA, ValueB : string);
begin
  inherited Create(ValueA);
  ...
end;