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;