Constructor in der Vererbung

[Captnemo]

Na klar

Unit BABClasses:

Delphi-Quellcode:

unit BABclasses;

interface

uses System.Contnrs, System.Classes, System.SysUtils;

type
  TBefehl = class(TObject)
  private
    fGuid: AnsiString;
  published
    property Guid: AnsiString read fGuid write fGuid;
  public
    constructor Create;
  end;

type
  TECHO = class(TBefehl)
  private
    fText: AnsiString;
  published
    property Text: AnsiString read fText write fText;
  end;

implementation

constructor TBefehl.Create;
var
  g: TGUID;
begin
  inherited Create;
  CreateGUID(g);
  self.fGuid:=GUIDToString(g);
end;

end.

Unit Main:

Delphi-Quellcode:

unit main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.ComCtrls,
  Vcl.Buttons, BABclasses, Vcl.Menus, System.Contnrs;

type
  Tfrm_batchdefinition = class(TForm)
    lst_test: TListBox;
    btn_Add: TSpeedButton;
    procedure btn_AddClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    BefehlsListe: TObjectList;
    { Public-Deklarationen }
  end;

var
  frm_main: Tfrm_main;

implementation

{$R *.dfm}

procedure Tfrm_main.FormCreate(Sender: TObject);
begin
  Befehlsliste:=TObjectList.Create;
end;

procedure Tfrm_main.FormDestroy(Sender: TObject);
begin
  Befehlsliste.free;
end;

procedure Tfrm_main.btn_AddClick(Sender: TObject);
var
  echo: TECHO;
begin
  echo:=TECHO.Create;
  lst_temp.items.add(echo.guid);
end;

Ich habs aber mal zusammengekürzt, kann nicht alles hier posten. So aber in etwa. Hier habe ich das Create in Public, und so geht's auch.