to 红色火焰(0分)

procedure TForm1.Button1Click(Sender: TObject);
function ZHI(base,ci:integer):integer;
var i : integer;
begin
if ci=0 then
begin
result :=base;
exit;
end;

result:=1;
for i := 1 to ci do
begin
result:=result*16;
end;
result:= base*result;
end;
var s: string;
i,total : integer;
begin
total:=0;
s:=inttohex(ord('a'),2);
for i:= 1 to length(s) do
begin
total:= total+ZHI(strtoint(s),length(s)-i);
end;

showmessage(inttostr(total)+char(total));
end;

...

QQ上发不过来。所以搬到这里。
不算大吧，但是需要有专业知识（法律和专利方面的）。
同时请您尽快，谢谢！
项目其实已经做了60%，反正如果你有人的话，再谈谈。
希望是个PB高手。

好的我明天帮你问问！

接受答案了.