十进制转十六进制 十六进制转十进制

procedure TForm1.Button6Click(Sender: TObject);
var i:Integer;
str:string;
begin
i := 255;
ShowMessage(IntToHex(i,8));
ShowMessage(Format('%.10x',[i]));
str := '$' + '23';
ShowMessage(str);
i := StrToInt(str);
ShowMessage(IntToHex(i,8));
end;