Frage zur Stringlist

[The_Tremendous]

Ich muss beliebig viele Daten (Strings) speichern können. Reicht das einfach, wenn ich diese in ne Listbox speichere, oder wie würdet ihr die speichern??


Ich würde sie lieber in ne txt Datei speichern, weis aber noch nicht wie das geht.

Gruß, The-Tremendous

[100nF]

was willst du denn speichern?

[The_Tremendous]

Ich habe beliebig viele Datums. Diese will ich in ner Listbox wenn sie eingegeben werden Speichern.

Die Daten sollen aus der Listbox in ne txt datei gespeichert werden, und zwar jedes Datum ein eine neue Zeile.

[Urmel]

Hallo,

Du kannst die Einträge einfach mit ListBox1.Items.SaveToFile(); in einer Textdatei speichern.

[Matze]

Entweder über die StringList gehen

Delphi-Quellcode:

SL := TStringList.Create;
SL.Add('Datum 1');

[...]

oder direkt über AssignFile.

[The_Tremendous]

Und wie kann ich das Mit dem Savetofile machen???

kannst du da mal ein beispiel geben??

[GuenterS]

Erstmal StringList <> Listbox.

Wenn Du deine Strings nur speichern und nicht anzeigen möchte, reicht es aus, diese in einer Stringlist zu speichern.

Delphi-Quellcode:

...
var
   lStringList: TStringList;
begin
   lStringList := TStringList.Create;
   try
      lStringList.Add('String1');
      lStringList.Add('String2');
      lStringList.Add('String3');
      ...
   finally
      lStringList.Free;
   end;
end;
...

Mit Speichern und Laden aus einer Textdatei:

Delphi-Quellcode:

...
var
   lStringList: TStringList;
begin
   lStringList := TStringList.Create;
   try
      lStringList.LoadFromFile('FileName.txt');
      lStringList.Add('String1');
      lStringList.Add('String2');
      lStringList.Add('String3');
      ...
      lStringList.SaveToFile('FileName.txt');
   finally
      lStringList.Free;
   end;
end;
...

[Robert_G]

Zitat:

Zitat von The_Tremendous

Und wie kann ich das Mit dem Savetofile machen???

kannst du da mal ein beispiel geben??

Das ist jetzt nicht dein Ernst, oder? :shock:
Es gibt a) sicher ein Beispiel in der OH und b) X.SaveToFile('x'); ist ja sooo kompliziert, dass es der Elite vorbehalten ist.

Bitte, bitte mit Zucker obendrauf, denkt doch erstmal nach, bevor ihr hier solche Fragen stellt.
Der nächste sucht etwas zur StringList und stolpert dann über solche threads wie dem hier. Was soll der sich denn denken? :roll:

[The_Tremendous]

Habe jetzt folgendes geschrieben.

Die Textdatei erzeugt er, leider bleibt diese aber leer.

Delphi-Quellcode:

procedure TfrmDatum.btnSpeichernClick(Sender: TObject);
var 
datei:textfile; 
i, a: integer;
begin
a:= ListBox1.Items.Count;
assignfile(datei,'C:\Dokumente und Einstellungen\Christian Vogel\Desktop\Datum.txt');
rewrite(datei); 
for i:=a to listbox1.items.count-1 do begin 
writeln(datei,listbox1.Items.Strings[i]); 
end; 
closefile(datei);
end;

[kiar]

warum wohl,

schau dir mal deine For schleife an!!!!

raik

[Luckie]

Warum benutzt du nicht, wie es dir schon ein paar mal im Thread gesagt wurde, die Methode SaveToFile der Eigenschaft Items von TListbox?

Dein Versuch, wie du versuchst so die Listbox abzuspeichern, zeigt mir, dass du eigentlich gar nicht gelesen hast, was wir dir die ganze Zeit schreiben. :roll:

[100nF]

Zitat:

for i:=a to listbox1.items.count-1 do begin

:gruebel:

eher so:

Delphi-Quellcode:

for i:=0 to listvix1.items.count-1 do begin

aber:

Delphi-Quellcode:

procedure TfrmDatum.btnSpeichernClick(Sender: TObject); 
var 
datei:textfile; 
i, a: integer; 
begin 
a:= ListBox1.Items.Count; 
assignfile(datei,'C:\Dokumente und Einstellungen\Christian Vogel\Desktop\Datum.txt'); 
rewrite(datei); 
for i:=a to listbox1.items.count-1 do begin 
writeln(datei,listbox1.Items.Strings[i]); 
end; 
closefile(datei); 
end;

wenn du sowieso eine listbox benutzt wäre es viel einfacher mit listview1.items.savetofile(datei)...
laden geht mit listview1.items.loadfromfile(datei)

[edit=alcaeus]quote-Tags durch Delphi-Tags ersetzt. Mfg, alcaeus[/edit]

[The_Tremendous]

Ok, danke jetzt funzt es :bounce2:

[100nF]

das nächste mal schaust du zuerst in der suche, da wären bestimmt einige beispiele darunter gewesen