edit.text 转换程 10进制的数,16进制的数?(50分)

  • 主题发起人 主题发起人 fossil
  • 开始时间 开始时间
F

fossil

Unregistered / Unconfirmed
GUEST, unregistred user!
edit.text 转换程 10进制的数或者转换16进制的数 赋值给PCHAR?
 
10进制: APString:=PChar(edit.text);
16进制: APString:=PChar(StrToHex(edit.text));
function StrToHex(s: string): string;
var
Value: Integer;
begin
Result:='';
Value:=StrToInt(Value);
while Value>0 do
begin
case Value mod 16 of
0..9: Result:=IntToStr(Value mod 16)+Result;
10..15: Result:=Chr(Ord('A')-Value mod 16-10)+Result
end
end;
Result:='$'+Result
end;
 
2. 可以直接用
pchar(IntToHex(StrToInt(edit1.text),2)); // 参数2是指每位十进制数用几位十六进
制来表示。
 
怎么死循环 LEECHAGE!
 
LeeChange, 的函数有点问题,俺修改一下借花献佛了。。。[:D]

function StrToHex(s: string): string;
var
Value: Integer;
begin
Result:='';
Value:=StrToInt(s);
while Value>0 do
begin
case Value mod 16 of
0..9: Result:=IntToStr(Value mod 16)+Result;
10..15: Result:=Chr(Ord('A')-Value mod 16-10)+Result
end;
value:=value div 16;
end;
Result:='$'+Result
end;
 
多人接受答案了。
 
各位:那么如何把EIDT1中的16进制数转换为十进制数呢?
 
后退
顶部