El control del bucle debe ser con una variable local

[[Chris]]

Dios mio!!!! Esto me está volviendo loco.

Qué tal compañeros, ojala me den una ayudita a este problemon que tengo.
Resulta que no me deja compilar, me da el siguiente mensaje:

For loop control variable must be simple local variable

Entiendo el mensaje, sé lo que significa y sé como se repara, el problema es que no me pasa el compilador y siempre sigue dando el mismo problema.

Código Delphi [-]
Procedure miProcedimiento;
var
I, ItemsCount: Integer;
Begin
...
For I := 0 to (ItemsCount - 1) do  <- acá se me indica el error!
....
end;

Realmente, ya no sé que hacer. ¿Alguna sugerencia?

Saludos.

[[egostar]]

Lo que yo haría es

1. Pasar ItemsCount como Variable General
2. Dejar I como variable Local

Quiero imaginar que si estas pasando algún valor a ItemsCount,

Salud OS

[[Chris]]

Me disculpan por el desperdicio de espacio que acabo de hacer.
Lo que pasa es que me faltaba un end; en un sub-procedimiento.

Ojala un moderador borre este hilo. Bye.

Saludos.

Pd: Muchísisimas Gracias Egostar por tu respuesta

[[egostar]]

Empezado por D&W

Me disculpan por el desperdicio de espacio que acabo de hacer.
Lo que pasa es que me faltaba un end; en un sub-procedimiento.

Ojala un moderador borre este hilo. Bye.

Saludos.

Pd: Muchísisimas Gracias Egostar por tu respuesta

Bueno, suele pasar

PD, Y que me quiten dos respuestas a mi contador, no señor,

[[maeyanes]]

Hola...

Además, sirve de ejemplo para saber que primero hay que revisar los pares begin..end de tu código si te llega a dar ese mismo error...


Saludos...

[rafita]

Realmente no puedo ayudarte, pero me da la impresión de que el error no está ahí porque ese trozo de código no tiene errores y funciona perfectamente

 
procedure TForm1.ProbarClick(Sender: TObject);
var  I, ItemsCount: Integer;
Begin
  ItemsCount:=8;
  For I := 0 to (ItemsCount - 1) do
     ShowMessage('Ahora i = ' + IntToStr(i));
end;

Un consejo: cuando compilas te muestra todos los errores, pero a veces el primero no es el que tienes que corregir, por ejemplo, si en el bucle anterior quitas los dos puntos (

 
for i=0 to (itemscount -1) do

el primer error que te da es que la variable del bucle debe ser una variable local,
pero el segundo error te dice que los tipos Integer y Boolean son incompatibles.
Ambos son en la misma línea, pero es el segundo el que te da la pista para encontrar el problema.

Suerte

[[maeyanes]]

Eh... rafita, leiste bien todo el hilo antes de responder?


Saludos...

[[egostar]]

Empezado por maeyanes

Eh... rafita, leiste bien todo el hilo antes de responder?


Saludos...

Hey, no abuses amigo maeyanes, te aprovechas para incrementar tus posts,

oops +1

Salud OS

[rafita]

Sin prisas por favor, sin prisas

Pero la verdad es que sólo estaba el primer post. La proóxima vez refrescaré el hilo antes de enviar mi respuesta.

[[Chris]]

Empezado por egostar

Hey, no abuses amigo maeyanes, te aprovechas para incrementar tus posts,

oops +1

Salud OS

Empezado por egostar

Bueno, suele pasar

PD, Y que me quiten dos respuestas a mi contador, no señor,

hey!! egostar, acá los nicas solemos decir algo "quien las usa, se las imagina"