bcb代码转换delphi代码??
以下代码在delphi7下调试通过
function sum(n: integer): integer;
var
// 其实, total可以直接换成result, 且这里也不再需要声明他了
total, i: integer;
begin
total := 0;
for i := 0 to n do
total := total+ i;
result := total;
end;
procedure tform1.bitbtn1click(sender: tobject);
var
inputnumber, output: string;
nnumber, total, i: integer;
begin
inputnumber := inputbox('数据输入', '输入一个正整数', '10');
nnumber := strtoint(inputnumber);
total := 0;
for i := 0 to nnumber do
total := sum(i);
output := '总和为:'+ inttostr(total);
**box(0, pchar(output), '数据输入', mb_ok);
end; 20210311