muesste funktionieren:
procedure TForm1.Button1Click(Sender: TObject);
var
cnt: Integer;
fs: TFileStream;
b: Byte;
i: Integer;
begin
if (OpenDialog1.Execute) and (OpenDialog1.FileName <> '') then begin
fs := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
end;
cnt := 0;
while cnt < fs.Size do begin
fs.Read(b, 1);
i := Ord(b);
Memo1.Lines.Text := Memo1.Lines.Text + IntToHex(i, 1);
cnt := fs.Position;
Application.ProcessMessages;
end;
fs.Free;
end;
hoffe, ich hab dich richtig verstanden.