Nimm mal den Teil zum Einlesen von Luckie, damit sollte aes auf jeden Fall gehn.
Und das ist auch "sinnlos" (not Loop=strtoint(form1.Ecount.text) ist immer true)
if not Loop=strtoint(form1.Ecount.text) then
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);
{$I-}
Reset(filee);
{$I+}
if IOResult = 0 then
begin
while not EOF(filee) do
begin
Readln(filee, dateiinhalt);
form1.richedit1.Lines.Add(dateiinhalt);
end;
CloseFile(filee);
end
else
RaiseLastOSError();
if Loop < strtoint(form1.Ecount.text) - 1 then
form1.richedit1.text:=form1.richedit1.text+form1.mittelding.text;
closefile(filee);
end;
[edit]
zu langsam -.-