Laden eines Files in ein memofeld mit beschränkungen

[DeddyH]

Noch 2 weitere Möglichkeiten:

Delphi-Quellcode:

var
  sl : TStringList
  i  : Byte;

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

Delphi-Quellcode:

var
  sl : TStringList
  i  : Byte;

begin
  Memo1.Lines.BeginUpdate;
  Memo1.Lines.Clear;
...
  sl := TStringList.create;
  try
    sl.loadFromFile(...);
    for i := 6 to sl.Count - 1 do
        Memo1.lines.Add(sl[i]);
    sl.free;
  finally
    Memo1.Lines.EndUpdate;
  end;
..
end;