for loop control variable must be simple local variable

[obsession]

var
i,j,h1,h2,h3,h4:integer;
f1,f2,f3,f4:textfile;
s1,s2,s3,s4,s5,s6:string;
c:byte;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Hide;
label3.Hide;
radiogroup2.Hide;
button1.Show;
button2.Hide;
button3.Show;
radiogroup1.Show;
for i:=1 to 1000000 do;
for j:=1 to 100 do;
c:=0;
assignfile(f1,'test1.txt');
assignfile(f2,'test2.txt');
assignfile(f3,'test3.txt');
assignfile(f4,'test4.txt');



это часть программного кода. мне выдает ошибку: for loop control variable must be simple local variable.
я понимаю, что она значит и исправлять пыталась. не получается.

[obsession]

помогите!! очень срочно. через 2 часа сдавать готовую программу, а у меня тут это(((

[Аватар]

procedure TForm1.FormCreate(Sender: TObject);
var i,j: Integer;
begin

[obsession]

не помогло.((

[Аватар]

Чтобы это значило?

for i:=1 to 1000000 do;
for j:=1 to 100 do;

[Serge_Bliznykov]

не помогло.((

Не верю!
значит Вы опять НЕ ТАМ описали эти переменные!
(переменные, используемые в циклах, должны быть описаны в той же фунции/процедуре, где они используются!)
Вы их описали именно внутри FormCreate ?!

Кроме того, при выдаче этой ошибки указывается строчка исходного кода, которая "не понравилась" компилятору.

Сообщение от Аватар

Чтобы это значило?

думаю, что это заготовка на будущее.. ну, по крайней мере, надеюсь, что автор это понимает...

[obsession]

напишите тогда, пожалуйста как должно быть

[Mad_Cat]

ошибку: for loop control variable must be simple local variable.

это не ошибка это Warning и если код компилируется на него в принципе можно забить)

напишите тогда, пожалуйста как должно быть

А как не зная задачи написать то7

[obsession]

это не задача. это тест. проектная работа.

у меня приложение запускается, я выбираю одну тему из трёх, выходит первый вопрос, я на него отвечаю и выдает ошибку.

помогите пожалуйста ! ! !

[obsession]

project project1.exe raised exception class EConvertError with message '''is not a valid integer value'. proces stopped.