find hex codes in files

[scp]

You can search for 'AddD ' (If it has not less but more than 3 spaces) then you should read the data into a buffer and find out the postion of the version number if you compare the chars until it is <> ' '.

Delphi-Quellcode:

  ThePos := FindInFile('D:\_ftest.txt', 'AddD   ', true);
  fs := TFileStream.Create;
  try
    fs.Seek(ThePos + length('AddD   '), soFromBeginning);
    fs.ReadBuffer(Buffer, SizeOf(Buffer));
    i := 0;
    repeat
      Inc(i);
    until (Buffer[i] <> ' ') or (i >= SizeOf(Buffer));
  finally
    fs.Free;
  end;

To find the next entry you should add an additional parameter to FindInFile() which contains the current position in the file.