Question

Delphi中如何建立dll(动态链接库)？

请举个例子（需注释）。需要在Memo控件中输入不定个整型数字，再通过点击Button组件实现计算在Memo中输入数字的和。计算出来后显示在Edit控件框内。谢……

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,c,d,e:integer;
a:string;
b:char;
begin
e:=0; //数字初始化 edit2.text规定数字
i:=length(memo1.Lines[0]); //memo第一行数字个数，0可用strtoint(edit2.text)-1代替，即选定第几行
for j:=1 to i do //循环
begin
a:=copy(memo1.Lines[0],j,1); //逐个数字挑出来 string型
b:=a[1]; //转换成字符型 char型
c:=integer(b); //转换成ascii码值 integer型
d:=c-48; //数字的ascii码值-48(0的ascii码值)=数字本身
e:=e+d; //数字累加
end;
edit1.Text:=inttostr(e); //显示在edit文本中
end;procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); //规定数字
begin
if not (key in ['0'..'9',#8,#13]) then
begin
showmessage('输入数字');
key:=#0;
end
else
begin
end;
end;