Listbox abspeichern

[kaschte]

Wie kann ich den Inhalt der Listbox abspeichern und zwar nach jedem hinzufügen eines Items? Wenn möglichst sollte keine externe Datei erzeugt werden (wenn schon naja auch egal).

[Lemmi]

Hi,

Listbox1.Items.SaveToFile('tmp.txt'); das sollte dir weiterhelfen...da Tlistbox kein Onchange-Event hat, fügst die Zeile einfach da ein, wo du ein Item in die Listbox einfügst..

[Klaus01]

Zitat von kaschte:

Wie kann ich den Inhalt der Listbox abspeichern und zwar nach jedem hinzufügen eines Items? Wenn möglichst sollte keine externe Datei erzeugt werden (wenn schon naja auch egal).

Wo willst Du denn abspeichern, wenn nicht auf einen Datenträger?
Im Speicher liegt das Item schon wenn es hinzugefügt wurde.

Grüße
Klaus

[Neutral General]

Oder wenn du es nicht als Datei speichern willst

Delphi-Quellcode:

var Sl: TStringlist;

ListBox1.Items.Add(ka);
Sl := ListBox1.Items;

Natürlich musst du die Stringliste auch vorher erstellen

Gruß
Neutral General

[kaschte]

Danke! Machs jetzt mit nehr externen Datei.

Könnt ihr mir noch bei diesem Problem helfen?

[JasonDX]

Zitat von Neutral General:

Oder wenn du es nicht als Datei speichern willst
Sl := ListBox1.Items; Natürlich musst du die Stringliste auch vorher erstellen

Da bringt das erstellen der StringListe nichts Du weist ihr direkt die Items zu, was aber gar nicht kompilieren wird TStringList := TStrings; laeuft nicht, nur umgekehrt ginge es.
Was du ws meinst istS1.AddStrings(ListBox1.Items)

greetz
Mike

[kaschte]

Ist auch egal. Da sowieso noch n paar Dateien dazukommen (zur exe Datei) kommts auf die eine auch nicht mehr drauf an.

Kann ich auch zwei Eigenschaften in nehm Listboxeintrag speichern?

[_frank_]

die methode AddObject erlaubt es die einem Item einen pointer bzw. einen Integer anzuhängen. Mit der Eigenschaft Objects kannst du darauf zugreifen.
Beim destroy des forms bzw. beim löschen der items müssen mho die objekte freigegeben werden.

so in der Art zu zuweisen (TMyClass ist eine beispiel-klasse):

Delphi-Quellcode:

var myClass:TMyClass;
begin
  myclass:=TMyClass.create(...);
  //myclass definieren
  listbox1.items.addobject('item',myclass);
end;

//zum lesen 
TMyClass(listbox1.Objects[i]).Eigenschaft;

Gruß Frank

[DGL-luke]

Der Soft Cast

(Objects[i] as TMyClass).Eigenschaft; ist dem Hard Cast

TMyClass(Objects[i]).Eigenschaft; fast immer vorzuziehen! Es wird dabei eine (meist zuverlässige) Überprüfung vorgenommen, ob wirklich auch ein TMyClass vorliegt, was andernfalls in ekligen AVs enden könnte!