problema en for

[julyus]

no se que es este tipo de error ?? este codigo me produce el siguiente error e2081 FOR-loop variable i count

Código Delphi [-]
  for iCount := 0 to Length(aEventCode) - 1 do
        begin
          if aEventCode[iCount] = 1 then
          begin

            inc(iMessageId);
          end;
        end;

[Casimiro Noteví]

¿Y qué es aEventCode y iMessageId?

[julyus]

aEventCode es un array dinamico

iMessageId es una varibale que debo auto incrementar
cuando aEventCode[iCount] = 1


for iCount := 0 to Length(aEventCode) - 1 do
begin
if aEventCode[iCount] = 1 then
begin

inc(iMessageId);
end;
end;

[ecfisa]

Hola julyus

Algo así pensé que era, te pongo la prueba que hice a ver si te orienta.(No dá ningún error)

Código Delphi [-]
...
var
  iMessageId: Integer;
implementation

procedure Prueba(aEventCode:array of Integer);
var
  iCount: Integer;
begin
  for iCount := 0 to Length(aEventCode) - 1 do
  begin
    if aEventCode[iCount] = 1 then
    begin
      inc(iMessageId);
    end;
  end;
end;

llamada:

Código Delphi [-]
    iMessageId:= 0;
    Prueba([1,2,1,3]);
    ShowMessage(IntToStr(iMessageId));// ok, muestra 2

Seguramente hay algo más involucrado que está provocando el fallo.
Si es una funcion/procedimiento: ¿ que parámetro pasas al llamarla ?

Saludos.

[Casimiro Noteví]

¿Y cuánto vale Length(aEventCode) ?

Si lo que quieres es el mayor valor de aEventCode entonces será mejor usar high.

High(aEventCode)

[Lord Delfos]

Otra cosa más, que probablemente no sea...

¿La variable iCount está declarada en el mismo procedimiento que el for? No puede estar afuera, digamos ser global.

[ecfisa]

Hola julius.

e2081 FOR-loop variable i count: "Es ilegal para asignar un valor a la variable de bucle de control dentro del bucle for."
Pero evidentemente no es ese el problema...

¿ Podrías especificar de que tipo son las variables: aEventCode e iMessageId ?

Saludos.