Hier mal eine einfache Lösung (ähnlich der von cruiser):
Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
type
T64 = packed record
case Tag: Byte of
0: (I64: Int64);
1: (B64: array[0..7] of Byte);
end;
var
B: Byte;
T: T64;
begin
try
Memo1.Clear;
T.I64 := StrToInt64(Edit1.Text);
for B := Low(T.B64) to High(T.B64) do
Memo1.Lines.Add(IntToHex(T.B64[B], 2));
except
//
end;
end;
Ein Edit und ein Memo auf dem Form. Code ins OnChange vom Edit.
...
...