Ошибка for loop control variable must be simple local variable

[2UnLiMiTeDD]

MsExcel.ActiveWorkbook.ActiveSheet.Range[MsExcel.ActiveWorkbook.ActiveSheet.Cells[1,1]]:=floattostr(strtoint(MsExcel.ActiveWorkbook.ActiveSheet.Range[MsExcel.ActiveWorkbook.ActiveSheet.Cells[1,1]])+1);

В чем ошибка? Должно увиличивать значение в клеточке 1,1 на 1

[GunSmoker]

В чём ошибка.

[2UnLiMiTeDD]

а как его написать?

[GunSmoker]

"Переменная цикла должна быть локальной переменной".

Какое слово непонятно?

[2UnLiMiTeDD]

так а какую пременную тут делать локальной?
MsExcel?

[GunSmoker]

Счётчик цикла.

[2UnLiMiTeDD]

Блин, да это даже не в цикле....
и счетчика тут нету....

[Serge_Bliznykov]

так а какую пременную тут делать локальной?
MsExcel?

ОМГ!


GunSmoker, извините, я попытаюсь ему "разжевать" ваш ответ.

2UnLiMiTeDD, судя по сообщению об ошибке, эта строчка у Вас находится где-то внутри цикла for i:= .... to ....
так вот, переменную цикла нужно описать в этой же функции/процедуре, где и сам цикл.

например,

procedure TForm1.FormCreate(Sender: TObject);
// А ВОТ ТУТ НУЖНО ОПИСАТЬ ПЕРЕМЕННУЮ ЦИКЛА
var   
   i : integer;
begin

   ...
   тут ваш цикл
   for i:= .... to ... do 


end;

Должно увиличивать значение в клеточке 1,1 на 1

так, что ли?

MsExcel.ActiveWorkbook.ActiveSheet.Cells[1,1] := MsExcel.ActiveWorkbook.ActiveSheet.Cells[1,1] + 1;

// или так:
MsExcel.ActiveWorkbook.ActiveSheet.Cells[1,1] := FloatToStr( StrToFloat(MsExcel.ActiveWorkbook.ActiveSheet.Cells[1,1]) + 1);

[GunSmoker]

Блин, да это даже не в цикле....
и счетчика тут нету....

А вот компилятор с тобой не согласен.

Кто-то из вас врёт. И мне почему-то кажется, что это не машина, которая редко ошибается (в отличие от человека).

Собственно, как ты ожидаешь что тебе ткнут в строчку кода, если кода ты не показал?