Int64 zerlegen und zusammenbauen

[sakura]

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.

......