|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
rolin (rolin) |
★☆☆☆☆ |
-
|
普通会员 |
|
2004/3/15 17:28:23 |
标题: |
请教HEXTOBIN和bintohex这两个函数的用法! |
浏览:1540 |
|
加入我的收藏 |
楼主: |
RT,THX!
----------------------------------------------
- |
作者: |
bios (阿贡) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2004/3/15 17:55:55 |
1楼: |
procedure TForm1.Button1Click(Sender: TObject); const ab='11'; var size,size2:longint; buffer:Pchar; Text:Pchar; begin size:=length(trim(ab);
size2:=2*length(trim(ab); getmem(text,size2); BinToHex(Pchar(ab), Text,Size); edit1.Text :=strpas(text); freemem(text); end;
----------------------------------------------
|
作者: |
bios (阿贡) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2004/3/15 18:05:20 |
2楼: |
getmem(buffer,size); size2:=2*length(trim(cd); size:=size2 div 2; getmem(text,size2); HexToBin(Pchar(cd), buffer,Size); edit2.Text :=strpas(Buffer); freemem(text); freemem(buffer);
----------------------------------------------
|
|