Warum funktioniert das nicht? Suchen in einer Datei...

[BBoy]

Danke!

habe es jetzt so umgesetzt: Aber wie kann ich darin suchen nach z.B. "text" oder FFD234E1 ?

Delphi-Quellcode:

var
Stream: TFileStream;
Buffer: array of byte;
TempStr: string;
i: Integer;
begin
  Memo1.Clear;
  Stream := TFileStream.Create('1.tcq', fmOpenRead);
  SetLength(Buffer, stream.Size);
  try
    Stream.Read(Buffer[0], SizeOf(Buffer));
  finally
    Stream.Free;
  end;
  memo1.Lines.Add(inttohex(buffer[0],2));
end;