Re: Why is this not incrementing?

[Carlos M <rblists@rbtips.com>]

>From LR (2009r2.1):
-----Quote: Start-----
For...Next Statement

Syntax
 For counter [AS datatype] = start To | DownTo end [Step value]

 counter: A local variable that will be incremented each time the loop
executes. It can be an Integer, Single, or Double.

Then in the "Notes" it says:
 Counter must be a local variable and must be an Integer.
-----Quote: End-----

So, can Counter be a Double (and Single) or not? ;-)

Anyway, I once was bitten when using a double for a counter because I
was doing a comparison inside the loop that didn't work as I expected.
It was working for many values but for others it was not working.
An example:
  for i As Double = 0 to 10 step 0.01
    if i = 0.02 Then
      MsgBox "i is 0.02"
    elseif i = 0.12 Then
      MsgBox "i is 0.12"
    end if
  next

The MsgBox never displays for "0.12" but it displays for "0.02".

Off course that when I found why this was not working, it was a "doh!"
moment. But it took awhile to figure because this happened with an
older RB version that doesn't show in the debugger the whole double
value and it was truncating it exactly with the same 2 decimal places.

Carlos

On Tue, Jun 30, 2009 at 1:32 PM, Kevin Gale wrote:
> You have defined i as an integer rather than a single or double.
> ________________________________________
>> From: Markus Winter
>>  dim i as integer
>>
>>  for i = 1 to 10 step 0.1
>>    EditField1.AppendText Str(i) + EndOfLine
>>  next
>>
>> It works fine with steps 1, -1, 2 etc but as soon as the step is not an
>> integer i fails to increment.

_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>