TRichEdit nur erste zeile? :/

[himitsu]

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 -.-