类型转换：字符串—数字

Question

啊，吃饭了，做了些，有用不？
procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  i:integer;
begin
  s:='00000DE8';
  for i := 1 to length (s) do
    if s[i]='0' then
      s[i]:=' ';
  s:='$'+trim(s);
  IntToHex(StrToInt(s),10);
  //showmessage(s);
end;

Answer 1

IntToHex返回的不还是string吗！不是我说的那样~~

Answer 2

呵呵，是的是的
但...可以定义为hwnd型啊
procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  i:integer;
  test:hwnd;//word
begin
  s:='00000DE8';
  for i := 1 to length (s) do
    if s[i]='0' then
      s[i]:=' ';
  s:='$'+trim(s);  test:=StrToInt64(s);
  for i:=1 to test do begin
    label1.caption:=inttostr(test);
  end; 
end;

Answer 3

function strtoint(Value: string):Cardinal;
var
  S: string;
begin
  S := Trim(UpperCase(Value));
  Result := StrToInt64Def('$' + S, 0);
end;