Datei öffnen

[Catbytes]

Hi,

ein Formular und ein Button wird benötigt:

Code:

function GetSlash(Dir: string): string;
begin
  if Copy(Dir, Length(Dir), 1) <> '\' then
    Dir := Dir + '\';
  Result := Dir;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  OldFileMode: Byte;
  strFileName: string;
  hFile: TextFile;
  hFile_str: string;
  GetReportPath: string;
  GetFileName: string;
begin
  OldFileMode := FileMode;
  FileMode := fmOpenRead;
  strFileName := GetSlash(GetReportPath) + GetFileName;
  try
    AssignFile(hFile, strFileName);
    Reset(hFile);
    while not EOF(hFile) do
    begin
      ReadLn(hFile, hFile_str);
      if AnsiUpperCase(hFile_str) = 'EIN TOKEN' then
      begin
        // Hier geschieht was mit dem Token...
      end;
    end;
    CloseFile(hFile);
  except
    raise;
  end;
  FileMode := OldFileMode;
end;

Alternativ, wie schon von den Vorrednern erwähnt, kann man das ganze noch in eine TStringList speichern. Gerade bei Parsern muß so nicht jedesmal die Textdatei geöffnet werden...