Delphi-Quellcode:
datei:=form1.listview1.Items.Item[Loop].SubItems.Names[0]+form1.Listview1.items.Item[Loop].Caption;
AssignFile(F, datei);
{$I-}
Reset(F);
{$I+}
if IOResult = 0 then
begin
while not EOF(F) do
begin
Readln(F, s);
form1.RichEdit1.Lines.Add(s);
end;
CloseFile(F);
end
else
RaiseLastOSError();
if Loop < strtoint(form1.Ecount.text) - 1 then form1.richedit1.lines.add(form1.mittelding.Text);
funzt perfekt ^^
danke für die wahnsinnig schnelle hilfe :O und da denkt man immer foren wären lahm *g*
edit:merke grad so funzt das doch net hab also deine letzte zeile noch übernommen, danke ^^
komisch eben funzte das ^^"
nochn edit: himitsu, du machst ja 2 mal closefile
