Listbox

[yankee]

sry, habe zwei kleine fehler eingebaut. In der for-Anweisung musst du einmal -1 unterbringen und außerdem muss es nicht items.. heißen. Ach hier ist der Quelltext, wie es funzt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
datei:textfile;
i: integer;
begin
assignfile(datei,'c:\datei.txt');
rewrite(datei);
for i:=5 to listbox1.items.count-1 do begin
writeln(datei,listbox1.Items.Strings[i]);
end;
closefile(datei);
end;