F
fossil
Unregistered / Unconfirmed
GUEST, unregistred user!
edit.text 转换程 10进制的数或者转换16进制的数 赋值给PCHAR?
L
LeeChange
Unregistered / Unconfirmed
GUEST, unregistred user!
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;
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;
Y
YoungSun
Unregistered / Unconfirmed
GUEST, unregistred user!
2. 可以直接用
pchar(IntToHex(StrToInt(edit1.text),2)); // 参数2是指每位十进制数用几位十六进
制来表示。
pchar(IntToHex(StrToInt(edit1.text),2)); // 参数2是指每位十进制数用几位十六进
制来表示。
F
fossil
Unregistered / Unconfirmed
GUEST, unregistred user!
怎么死循环 LEECHAGE!
南
南宫吹云
Unregistered / Unconfirmed
GUEST, unregistred user!
LeeChange, 的函数有点问题，俺修改一下借花献佛了。。。[
]
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;
]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;
F
fossil
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
南
南宫吹云
Unregistered / Unconfirmed
GUEST, unregistred user!
各位：那么如何把EIDT1中的16进制数转换为十进制数呢？