TStrings einer TListBox auswechseln?

[turboPASCAL]

So:

Zitat von Robert Marquardt:

Setze dich mal mit der Methode Assign und AssignTo von TPersistent auseinander.

Oder einfach mit:ListBox1.Clear; die Listbox leeren fuer den Fall das es an Strings mangelt.

Delphi-Quellcode:

var
  MyTStrings: TStrings;
begin
  listbox1.clear;

  MyTStrings := TStringList.Create;
  MyTStrings.Add('Hi.');
  MyTStrings.Add('Hai.');
  MyTStrings.Add('Hei.');

  listbox1.Items.AddStrings(MyTStrings);

  MyTStrings.free;
end;