Zitat:
for i:=a to listbox1.items.count-1 do begin
eher so:
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]