Zitat von
himitsu:
weil er vermutlich die Daten anhängen möchte und nicht durch die neuen ersetzen
jep >,<
Delphi-Quellcode:
var Loop:integer;
datei,dateiinhalt:string;
filee:textfile;
begin
form1.richedit1.text:='';
for Loop:=0 to strtoint(form1.Ecount.text)-1 do
begin
datei:=form1.listview1.Items.Item[Loop].SubItems.Names[0]+form1.Listview1.items.Item[Loop].Caption;
assignfile(filee, datei);
reset(filee);
Read(filee, dateiinhalt);
form1.richedit1.lines.Text:=form1.richedit1.lines.text+dateiinhalt;
if not Loop=strtoint(form1.Ecount.text) then form1.richedit1.text:=form1.richedit1.text+form1.mittelding.text;
closefile(filee);
ma ein größerer codefetzen, daran kanns aber eigentlich nicht liegen >,< gibt es irgendwelche einstellungen dafür im
OI vielleicht? :/ +grammatik