function GetSum(a, b: integer): integer;
begin
result := a + b;
end;
意思:两个Edit框,一个button按钮,在两个框内输入两个数字,单击button按钮得出两文本框的和,
函数求得了,不晓得咋个返回来,必须用函数来求得其和.
begin
result := a + b;
end;
意思:两个Edit框,一个button按钮,在两个框内输入两个数字,单击button按钮得出两文本框的和,
函数求得了,不晓得咋个返回来,必须用函数来求得其和.
tem : string
begin
tem := IntToStr(GetSum(StrToInt(edit1.text),StrToInt(edit2.text)));
ShowMessage('二数之各为:' + tem);
end;