TStrings einer TListBox auswechseln?

[markusj]

Hallo Leuts,

ich hab mal eine (mehr theoretisch gemeinte) Frage.
Ist es möglich (ohne Exceptions) einer TListbox ihre Strings "wegzunehmen) sprich mittels Free zu zerstören?
Und wenn ich gleich dabei bin ... wie kann ich ihr einen neue Strings-Instanz übergeben? (listbox.Strings := ... wird das einfach geschluckt?).
Nimmt die Listbox auch eine TStringList, oder verwendet sie intern eine andere, nicht kompatible Listenklasse.

mfG

Markus

[Robert Marquardt]

Intern wird eine TStringList verwendet. Diese freizugeben ist unmoeglich. Es wuerde zu Abstuerzen fuehren.
Man kann einen anderen TStrings-Abkoemmling wie etwa eine TStringList einfach zuweisen. Die Implementierung der Zuweisung loescht die Strings der ListBox und kopiert die Strings der anderen Liste. An der Quell-Liste aendert sich garnichts.

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

[markusj]

Zitat von Robert Marquardt:

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

Hab ich schon, ist auch bei mir in Verwendung ... mir gings nur darum, "die Karre aus dem Dreck ziehen" zu können, wenn ich mal eine falsche Zuweisung gemacht hätte oder aufgrund irgendeiner ungültigen Anweisung die StringList geschrottet hätte.
Aber vielen Dank!

mfG

Markus

[jim_raynor]

Zitat von markusj:

Hab ich schon, ist auch bei mir in Verwendung ... mir gings nur darum, "die Karre aus dem Dreck ziehen" zu können, wenn ich mal eine falsche Zuweisung gemacht hätte oder aufgrund irgendeiner ungültigen Anweisung die StringList geschrottet hätte.

Was hindert dich daran, die Strings einfach neuzuzuweisen.

Wenn du

ListBox.Items:=MyStrings schreibst, wird intern ein Assign ausgeführt und alle Strings aus MyStrings in die ListBox übertragen. Also, wo ist das Problem?

[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;