strtohex

[ErazerZ]

Delphi-Quellcode:

var
  fs: TFileStream;
  lpBuffer: array of Byte;
  // temporär
  s: string;
  x: Integer;
begin
  // entweder so, oder du ließt es in Blöcken aus und parst sie schon gleich ...
  fs := TFileStream.Create('c:\tmp.txt', fmOpenRead);
  try
    if (fs.Size > 0) then
    begin
      SetLength(lpBuffer, fs.Size);
      fs.Read(lpBuffer[0], fs.Size);
    end;
  finally
    fs.Free;
  end;

  // brauchst nicht - nur ausgabe
  s := '';
  for x := Low(lpBuffer) to High(lpBuffer) do
  begin
    s := s + IntToHex(lpBuffer[x], 2) + ' ';
  end;
  ShowMessage(s);