ListBox Totals

[dredfern]

Is it possible to get the total of a list of numbers in a ListBox and then update the total as new numbers are added?

 

[EricDraven]

Yes, but you would need to calculate the entire total as you go. Something like this should do it.

var
  X,MyNumber,MyTotal : Integer;
begin
  if ListBox1.Items.Count > 0 then
  begin
    X := 0;
    MyTotal := 0;
    repeat
      MyNumber := StrToInt(ListBox1.Strings[X]);
      MyTotal := MyTotal + MyNumber;
      X := X + 1;
    until X = ListBox1.Items.Count;
  end;
end;

When your feeling down and your resistance is low, light another cigarette and let yourself go

 

[dredfern]

Eric, Thanks a lot for that. I'll give it a try.