TRichEdit nur erste zeile? :/

[Sharky]

Hai KochFolie,

hier mal meine Version um eine Datei an ein RichEdit anzuhängen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  loop : Integer;
  sl : TStringList;
begin
  if (OpenDialog1.Execute) then
  begin
    sl := TStringList.Create;
    try
      sl.clear;
      sl.LoadFromFile(OpenDialog1.FileName);
      for loop := 0 to sl.Count-1 do
      begin
        RichEdit1.Lines.Add(sl.Strings[loop]);
      end;
    finally
      FreeAndNil(sl);
    end;
  end;
end;