1-100问题

Question

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=0;
while i<100 do
i:=i+1;
edit1.text:=inttostr(i);
end;
在桌面上放一个按钮，和edit1,想计算1-100之间的数的和，为什么这样不对呢？那里错了？

Answer 1

//楼主的编程思想有问题！
procedure TForm1.Button1Click(Sender: TObject);
var
  i, sum: integer;
begin
  sum := 0;
  for i := 0 to 100 do
    sum := sum + i;
  edit1.text:=inttostr(sum);
end;

Answer 2

你说得对，请问dulei115，你能帮我吗，我也觉得我思想有问题，这个问题一直认识得不很深，你说我应该怎么办？

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  i,sum :integer;
begin
i:=0;
sum := 0;
while i<100 do
begin
  inc(i);
  sum := sum + i;
  edit1.text:=inttostr(sum);
end;
end;