Someone may still be able to help you, but please read this thread as well:
http://www.chiefdelphi.com/forums/sh...ad.php?t=29944
Quote:
|
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
|