For loop control must be simple local variable

← →
xeron (2007-01-20 15:43) [0]

Всем привет!
Пишу программу, которая взаймодействует
с другой программой путем посылки сообщений...
Вот ее код:

program Project1;

uses
Windows,
Messages;

var
MyWnd:HWND;
Hndl:array[1..40] of Hwnd;
i: Dword;

Procedure Send;
begin
MyWnd:=FindWindow(nil,PChar("My Window"));
Hndl[1]:=GetWindow(MyWnd,GW_CHILD);
for i:=2 to 39 do Hndl[i]:=GetWindow(Hndl[i-1],GW_HWNDNEXT);
end;

begin
end.

При компиляции возникает Warning:
"For loop control must be simple local variable"

Подскажите плиз что ему не нравится?

← →
Palladin © (2007-01-20 15:46) [1]

for - для
loop - цикл
control - контроль
must - должен
be - быть
simple - простой
local - локальный
variablt - переменная

свяжи вместе и подумай

← →
xeron (2007-01-20 15:52) [2]

Все, разобрался :)
Переменная должна быть обьявлена в блоке самой процедуры...
Спасибо!

For loop control must be simple local variable Найти похожие ветки