A Small problem

[JLWest]

Code: Pascal  [Select][+][-]

1.    lblIn.Caption := IntToStr(Listbox1.Count);
2.    if RCDType = RC001 then begin
3.     //  Inc(ACCount);
4.       ACCount := ACCount +1;
5.       lblAirports.Caption := IntToStr(ACCount); end;
6.    Application.ProcessMessages;    

I can't get the ACCount to increase:

This compiles fine, the statement lblIn.Caption := IntToStr(Listbox1.Count); I see the counter going from 1 to 104,632 but the ACCount post 1 stays at 1 and never changes even at the end of the function.

[Josh]

put a breakpoint at line 4; to make sure it actually gets there, maybe RCDType never equals the variable RC001?

Without the rest of the code, its only guess work. You maybe even setting the ACCount back to one during the iteration of the loop.

[JLWest]

I did that. And it got to the line executed inside the if statement but did not Inc  ACCount.

Did a search on ACCount.

I'll run the test again to verify.

And then post the code with a small dataset.

[JLWest]

I understand it now.

I pass a record to a procedure to be added to a listbox. Increase the counter and expect it to increase. It increase from 0 to 1 with each call.

Dumb.