Doch die sollten auch mit Integer funktionieren. Sie gehen aber Standardmässig von Dezimalzahlen aus und nicht von Zahlen in Hex.
Delphi-Quellcode:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
int:Integer;
begin
if Key = VK_Return then
begin
int:=strtoint('$'+Edit1.text);
Label4.Caption:= 'ganze Zahl: '+ inttostr(int);
Label2.Caption:= 'HI: '+ inttostr(hi(int));
Label3.Caption:= 'LO: '+ inttostr(lo(int));
end;