Laden eines Files in ein memofeld mit beschränkungen

[Klaus01]

... oder so?

Delphi-Quellcode:

var
  sl : TStringList
  i  : Byte;

begin
...
  sl := TStringList.create;
  sl.loadFromFile(...);
  for i:=5 downto 0 do
    sl.delete(i);
  Memo1.lines.assign(sl);
  sl.free;
..
end;

Grüße
Klaus