Datei auslesen

[omata]

Moin,

eine einfache Möglichkeit wäre folgende:

Delphi-Quellcode:

procedure Datei_lesen(Dateiname:string; Zeilen:TStrings);
var Datei:Textfile;
    Zeile:string;
    lesen:boolean;
begin
  lesen:=false;
  assignfile(Datei, Dateiname);
  try
    reset(Datei);
    while not Eof(Datei) do begin
      readln(Datei, Zeile);
      if trim(Zeile) = '//1.File//' then
        lesen:=true
      else
      if trim(Zeile) = '//2.File//' then
        lesen:=false
      else
        if lesen then
          Zeilen.Append(Zeile);
    end;
  finally
    closefile(Datei);
  end;
end;

Eine andere Alternative wäre mit regulären Ausdrücken zuarbeiten.

MfG
Thorsten