F fossil Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-18 #1 edit.text := aa55aa有三个或者多个十六进制的数 怎么转换程PCHAR!!!!
L linsb Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-18 #3 参阅:http://www.delphibbs.com/delphibbs/dispq.asp?lid=1208394
T tseug Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-18 #5 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;
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;
F fossil Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-18 #6 我算认识到你了 你就见死不救吧,你上次贴出来的看不懂!怎么办阿 最后地址,多出来三个! qisi l
P Pipi. Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-18 #7 tseug的代码,把局部变量 s : string; 放到外面去,作为全局变量,就可以了 因为Pchar(s)得到的东西,假如s是局部变量,那么返回到调用者之后,这个内存备释放了 不可靠了