Zeile aus einer Textdatei ab einem bestimmten Zeichen auslesen

[Konstantin H.]

Hallo,

ich habe, zum ersten mal seit Jahren, mich wieder mit Delphi beschäftigt. Ich möchte aus einer Textdatei Information auslesen und in die Memo packen. Dabei ist es wichtig, dass jede Zeile nicht gleich ab Anfang ausgelesen wird sondern ab den x-ten zeichen. Es spielt keine Rolle, welcher Zeichen das ist, sondern nur die nummerierung.

Ich bin soweit, dass ich eine bestimmte Anzahl der Zeilen auslesen kann und in ein Memo packen kann. Bleibt nur das Einlesen ab nen Bestimmten Punkt.In der repeat-Schleife muss bei readln noch eine Bedienung rein, ich weiß aber nicht welche. Habe schon ziemlich viel durchgeguckt und keine Hilfe gefunden. Vielen Dank im Vorraus.

Ich arbeite mit Delphi 2006.

Delphi-Quellcode:

procedure TForm1.meldung_einClick(Sender: TObject);
var   z: integer; //Laufvariable
      s: string;
      datei: TextFile;
begin
    OpenDialog1.Filter := 'text files(*.txt)|*.txt;';//Nur .txt-Dateien anzeigen
    OpenDialog1.FilterIndex := 1;

    If OpenDialog1.Execute then
      If OpenDialog1.FileName = '' then
        MessageDlg('Keine Datei Ausgewählt!', mtWarning, [mbOK], 0)
      else
       AssignFile(datei, OpenDialog1.FileName);//Vorbereitung zur Auslesung
       reset(datei);
       z := 0;
       txt_eingabe.clear;

       repeat //benötigte Zeilen auslesen 
         inc(z);
         readln(datei, s);
         txt_eingabe.Lines.Add(s);
       until z = 40;

     CloseFile(datei);
end;

MfG Konstantin