.mdb als Textdatei öffnen

[phreax]

Du hast Glück das ich gerade nach Ausreden suche, nichts für die Uni zu tun

Delphi-Quellcode:

procedure FindStringinFile(const FName, S: string);
var
  temp: string;
  FS: TFileStream;
begin
  if Length(S) = 0 then Exit;
  FS := TFileStream.Create(FName, fmOpenRead);
  try
    FS.Position := 0;
    SetLength(temp,1);
    while FS.Position <= FS.Size - Length(S) do
    begin
      FS.Read(temp[1],1);
      if temp[1] = S[1] then
        begin
          SetLength(temp,Length(S));
          FS.Read(temp[2],Length(S)-1);
          if temp=S then
          begin
            ShowMessage('Gefunden!');
          end;
        end;
    end;
  finally
    FS.Free;
  end;
end;

Nach dem selben Schema kannst Du dann auch hinter dem gesuchten String befindliche Daten auslesen...

mfg
phreax

@himitsu und sir rufo, tut mir Leid wenn ich eure Erziehungsversuche boykottiere, aber nachdem ich den Code nun schon geschrieben habe

EDIT: eine Restvariable entfernt