[Greg Ross]

Originally Posted by lesmayers

Hi

My friend has a problem with this delphi code..
She wants a set of integer numbers that people enter into boxes and results give total..Can anyone help.
This is what she has sent:

procedure TfrmAddFor.btnAddClick(Sender: TObject);
var
  Number : string;
  Count, Sum : integer;
begin
  Count := 1;
  Sum := 0;
  for Count := 1 to 20 do;
    Number := InputBox('Enter number', 'Number', '');    //create InputBox
    Count := Count + 1;
    Sum := Sum + StrToInt(Number);
    lblIterationNumber.Caption := 'Iteration Number:' +  Number;
    lblSum.Caption := 'Cumulative Sum:' + IntToStr(Sum);
  end;
end.

Tx for any help

It would be EXTREMELY helpful if you could describe the nature of the problem she is having. I.e. What is it doing or not doing that is unexpected? Is the compile failing, or is it failing at run time? Is there an error message?

But offhand, I can see a couple problems: She need a BEGIN following the DO (with no ";" there.) This SHOULD cause a compile error, since you have an unmatched END. And she probably doesn't want the "Count := Count + 1;", since the FOR...DO automatically increments Count.