关于定义过程的问题(50分)

请看我测试并通过的代码

procedure hex_a(achar; bchar;c:integer);stdcall;external 'g:/dcid32/dcid32.dll';
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
t:string;
len:integer;
begin
s:='221a';
len:=length(s)*2-1;
setlength(t,len);
hex_a(pchar(s),pchar(t),len);
showmessage(t); //·µ»Ø32323161 ¾ÍÊÇ32 =2 32=2 31=1 61=a
end;

楼主发给我的邮件已经收到

你的代码错误在于没有为变量分配空间
setlength(b,u-1);

to:wp231957
你能给我发个DEMO吗？394915230@qq.com

请看我测试并通过的代码

procedure hex_a(achar; bchar;c:integer);stdcall;external 'g:/dcid32/dcid32.dll';
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
t:string;
len:integer;
begin
s:='221a';
len:=length(s)*2-1;
setlength(t,len);
hex_a(pchar(s),pchar(t),len);
showmessage(t); //·µ»Ø32323161 ¾ÍÊÇ32 =2 32=2 31=1 61=a
end;
不知道你还需要什么样的DEMO