edit.text 转换程 10进制的数或者转换16进制的数 赋值给PCHAR?(50分)

F

fossil

Unregistered / Unconfirmed
GUEST, unregistred user!
edit.text := aa55aa有三个或者多个十六进制的数
怎么转换程PCHAR!!!!
 
strtoint()
inttohex()
 
参阅:http://www.delphibbs.com/delphibbs/dispq.asp?lid=1208394
 
就是每个16进制只占一个 字节!!
 
var
i : integer;
s : string;
b : byte;
begin
s := '';
for i := 0 to length div 2-1 do
begin
b := StrToInt('$'+Copy(edit.txt, i*2+1, 2));
s := s+chr(b);
end;
result := PChar(s);
end;
 
我算认识到你了
你就见死不救吧,你上次贴出来的看不懂!怎么办阿
最后地址,多出来三个! qisi l
 
tseug的代码,把局部变量 s : string; 放到外面去,作为全局变量,就可以了
因为Pchar(s)得到的东西,假如s是局部变量,那么返回到调用者之后,这个内存备释放了
不可靠了
 
多人接受答案了。
 
顶部