Kopieren von Tstringlist zu Tstringlist-Variable

[Eradikator]

Hallo,

ich hab versucht den Inhalt einer TStringlist in eine andere zu kopieren und es kam die Fehlermeldung

"Projekt xyz hat Exception-Klasse <<External SIGSEGV>> ausgelöst"

Mein Quelltext lautet:

Code: Alles auswählen

procedure TForm1.Button1Memo2Click(Sender: TObject);
 
 var
  liste : Tstringlist;
  uebergabe : Tstringlist;
 
begin
 liste := Tstringlist.create;
 uebergabe := Tstringlist.create;
 uebergabe := liste;
 liste.Add('Hallo Welt 1');
 liste.Add('Hallo Welt 2');
 liste.Add('Hallo Welt 3');
 liste.Add('Hallo Welt 4');
 memo2.Clear;
 memo2.Lines.Add(liste[1]);
 liste.free;
 uebergabe.free;
end;        

mit freundlichen Grüßen

[Eradikator]

Hallo nochmal,

hab es mittlerweile gelöst.

Code: Alles auswählen

begin
 liste := Tstringlist.create;
 uebergabe := Tstringlist.create;
 
 liste.Add('Hallo Welt 1');
 liste.Add('Hallo Welt 2');
 liste.Add('Hallo Welt 3');
 liste.Add('Hallo Welt 4');
 uebergabe.AddStrings(liste);
 memo2.Clear;
 memo2.Lines.Add(liste[1]);
 memo2.Lines.Append(uebergabe[2]);
 memo2.lines.AddStrings(uebergabe);
 liste.free;
 uebergabe.free;
end;              

mit freundlichen Grüßen