TStringList in eigene Komponente

[Christian S.]

Hallo!

Mal Ausschnittsweise, das hier funktioniert bei mir:

Delphi-Quellcode:

type ttest = class(TObject)

  fvar : TStringList;

  private

  public
    constructor create;
    destructor free;
  end;

{...}

constructor ttest.create;
begin
  inherited;
  fvar := TStringList.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
VAR test : ttest;
begin
  test := ttest.create;
  test.fvar.Add('Hallo');
  test.Free;
end;

MfG,
Peter