Mehrere Memo Objekte in TStringlist erzeugen

[xthing]

Hi Leute,

ich möchte in einer TStringlist mehrere Objekte vom Typ TMemo dynamisch erzeugen. Wenn ich allerdings das Memoobjekt verwenden will gibt's ne Fehlermeldung. Hier der Sourcecode:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
obj : TStringList;
begin
obj := TStringList.Create;
obj.AddObject('Memo', TMemo.Create(self));
TMemo(obj.Objects[0]).lines.add('test');
end;

Könnt ihr mir helfen?

Danke im voraus.

Gruss
xthing

[Neutral General]

Das Memo erscheint doch gar nicht weil es kein Parent zugewiesen bekommen hat oder?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
obj : TStringList;
mem: TMemo;
begin
obj := TStringList.Create;
Mem := TMemo.Create(Self);
Mem.Parent := Self;
obj.AddObject('Memo', Mem);
TMemo(obj.Objects[0]).lines.add('test');
end;

So klappts nämlich...

Gruß
Neutral General

[mkinzler]

Warum verwendest du eine Stringliste zur Vewaltung von Objekten? Ich würde hier entweder einen dynamsichen Array, eine Objektliste oder eine eigene Listklasse (von TList abgeleitet) verwenden.

[mkinzler]

Zitat:

Das Memo erscheint doch gar nicht weil es kein Parent zugewiesen bekommen hat oder?

Da die Klasse TStribgList keine Komponentenklasse ist, kennt sie keinen Parent.

[Neutral General]

red ich denn von der Stringliste ?

[mkinzler]

Zitat:

Zitat von Neutral General

red ich denn von der Stringliste ?

Nein sorry, :oops: