Laden eines Files in ein memofeld mit beschränkungen

[counterskiller]

Hallo liebe Delphifreunde,
ich habe folgendes problem:

Delphi-Quellcode:

{...}
  var List: TStrings;
begin
  List := TStringList.Create;
  Memo1.Lines.LoadFromFile('C:\jo.txt');
{...}

Mit diesem quellcode kann ich eine ganze txt datei auslesen lassen und in ein memofeld
schreiben lassen. Wie kann ich zb. sagen dass er erst ab zeile 6 den text liest.

danke euch schonmal

mfg counterskiller

[Bernhard Geyer]

Mit dem fertigne TMemo (bzw TStrings/list) gar nicht. Da wirst du dir schon deine eigene Laderoutine programmieren müssen. Kannst ja den Quellcode der TStringsList-Klasse als Vorlage dafür hernehmen.

[counterskiller]

1. wo finde ich diese TStringsList-Klasse
2. Was soll ich machen um das so zu machen wie ich mir das vorstelle ohne eine Laderoutine zu schreiben

mfg

[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

[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;