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

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

Несколько рекомендаций

Несколько рекомендаций

А вот еще интересные материалы:

илья1995

4 / 4 / 3

Регистрация: 17.10.2011

Сообщений: 169

24.05.2012, 23:43. Показов 24162. Ответов 9

Метки нет (Все метки)

программа ищет средне арифмитическое матрицы и выводит на экран числа меньше него

Delphi

unit Unit1KI;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, Grids;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    StringGrid1: TStringGrid;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
  type mat=array[1..100,1..100] of integer;
 var i,j,sum,h:integer;
     p:mat;
     sr:Integer;
procedure TForm1.Button2Click(Sender: TObject);
begin
 
close;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
randomize;
 for i:=1 to 100 do  begin
 for j:=1 to 100 do
    begin
     p[i,j]:=random(41)-10;
     stringgrid1.Cells[j-1,i-1]:=inttostr(p[i,j]);
    end;
           end;
          
 
end;
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
StringGrid1.ColCount := SpinEdit1.Value;
end;
 
procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
StringGrid1.RowCount := SpinEdit2.Value;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
SpinEdit1.MinValue :=-1;
SpinEdit1.MaxValue := 10;
SpinEdit2.MinValue :=-1;
SpinEdit2.MaxValue := 10;
StringGrid1.ColCount := SpinEdit1.Value;
StringGrid1.RowCount := SpinEdit2.Value;
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin h:=i*j;
sum:=sum+p[i,j];
sr:=sum/h;
showmessage('ñðåäíåå àðèôìèòè÷åñêîå= '+floattostr(sr));
end;
 
end.

компилятор выдает ошибку:For loop control variable must be simple local variable
вот на этой строке:

Delphi

1	sr:=sum/h;

в чем ошибка?

__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь

13090 / 5871 / 1706

Регистрация: 19.09.2009

Сообщений: 8,808

24.05.2012, 23:55

Цитата
Сообщение от илья1995
Посмотреть сообщение

компилятор выдает ошибку:For loop control variable must be simple local variable

Переменная, которая участвует в заголовке цикла for в качестве счётчика, должна быть объявлена внутри той процедуры, где расположен этот цикл for.

volvo

Супер-модератор

Эксперт Pascal/Delphi Автор FAQ

32444 / 20939 / 8104

Регистрация: 22.10.2011

Сообщений: 36,202

Записей в блоге: 7

24.05.2012, 23:57

Это предупреждение, не ошибка. Исправь:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i, j : Integer; // <--- Здесь должны быть описаны переменные !!!
begin
   randomize;
   for i:=1 to 100 do  begin
      for j:=1 to 100 do
      begin
         p[i,j]:=random(41)-10;
         stringgrid1.Cells[j-1,i-1]:=inttostr(p[i,j]);
      end;
   end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin h:=i*j; // А здесь, интересно, какой мусор у тебя используется для подсчетов? 
//  Откуда значения в i, j берутся? Исправляй, так не должно быть.
sum:=sum+p[i,j];
sr:=sum/h;
showmessage('среднее арифмитическое= '+floattostr(sr));
end;

Ошибка у тебя в другом: в строке sr:=sum/h; ты пытаешься результат деления затолкать в целочисленную переменную. Это невозможно. Результат деления — всегда вещественный. Или меняй описание переменной sr, или дели через DIV, нацело…

илья1995

4 / 4 / 3

Регистрация: 17.10.2011

Сообщений: 169

25.05.2012, 00:02

[ТС]

sr поменял на real заработала спасибо

Delphi

1	begin h:=i*j; // А здесь, интересно, какой мусор у тебя используется для подсчетов?

тут я пытаюсь посчитать количество ячеек
так присваивается значение?

Delphi

1 2	i:=StrToInt(SpinEdit1.caption); j:=StrToInt(SpinEdit2.caption);

Супер-модератор

Эксперт Pascal/Delphi Автор FAQ

32444 / 20939 / 8104

Регистрация: 22.10.2011

Сообщений: 36,202

Записей в блоге: 7

25.05.2012, 00:17

Цитата
Сообщение от илья1995
Посмотреть сообщение

тут я пытаюсь посчитать количество ячеек

Неправильно пытаешься Попробуй сразу после запуска программы нажать на Button3. Как думаешь, что будет? Откуда возьмутся значения в I и J? Думаешь, они будут = 0? Тебе же хуже: во-первых, это вылет за границы (массив P индексируется с 1 до 100 в обоих измерениях), да еще и деление на 0 огребешь. Вот точно так же и после того, как цикл закончился, к этим переменным обращаться нельзя (даже если они будут описаны глобально). Тебе никто не гарантировал, что значение в i и j будет = 100, как ты ожидаешь

4 / 4 / 3

Регистрация: 17.10.2011

Сообщений: 169

25.05.2012, 00:38

[ТС]

Цитата
Сообщение от UI
Посмотреть сообщение

так я ине жду что в i и j будет 100 я же количество столбцов и количество строк увеличиваю двумя spinedita-ми я хочу с них значение взять что бы узнать количество ячеек в матрице

Добавлено через 14 минут
как задать чтобы например в матрице количество столбцов это было значение находящиеся в spiedit1
а количество строчек в spiedit2 а то у меня получается матрица 100 на 100 заполняется а в стрингриде вижу только часть ее?

antikiler_

1085 / 571 / 79

Регистрация: 07.04.2011

Сообщений: 971

Записей в блоге: 2

25.05.2012, 02:53

Delphi

for i:=1 to SpinEdit2.Value do  
  for j:=1 to SpinEdit1.Value do
     begin
         p[i,j]:=random(41)-10;
         stringgrid1.Cells[j-1,i-1]:=inttostr(p[i,j]);
      end;

илья1995

4 / 4 / 3

Регистрация: 17.10.2011

Сообщений: 169

28.05.2012, 20:22

[ТС]

Delphi

1	showmessage('среднее арифмитическое= '+floattostr(sr));

незнаешь что не так среднее арифметическое считается правильно но если много раз жмешь на кнопку подсчитать то в диалоговом окне бред пишется и нужно пере запускать программу
т.е матрицу я не меняю и не перезаполняю а тока жму много раз на кнопку посчитать и там цифры не знаю откуда берутся большие

Добавлено через 1 час 1 минуту

Delphi

var
  se1,se2:integer;
begin
  sr:=0;
se1:=  spinEdit1.Value;
se2:=  SpinEdit2.Value ;
h:=se1*se2;
sum:=sum+p[i,j];
sr:=sum/h;
begin
k:=0;
 for i:=1 to SpinEdit2.Value do
  for j:=1 to SpinEdit1.Value do
if p[i,j]<sr then k:=k+1;
showmessage('Ñðåäíåå çàí÷åíèå: '+FormatFloat('0.00',sr)+#13+'Êîë-âî ÷èñåë ìåíüøå '+FormatFloat('0.00',sr)+' - '+IntToStr(k));
 end;
end;

вот кусок который считает среднее арифметическое матрицы и выводит количество элементов меньше среднего вроде все написано правильно а в ответ какой то бред выводит

1085 / 571 / 79

Регистрация: 07.04.2011

Сообщений: 971

Записей в блоге: 2

28.05.2012, 21:56

Цитата
Сообщение от илья1995
Посмотреть сообщение

среднее арифметическое считается правильно но если много раз жмешь на кнопку подсчитать то в диалоговом окне бред пишется и нужно пере запускать программу
т.е матрицу я не меняю и не перезаполняю а тока жму много раз на кнопку посчитать и там цифры не знаю откуда берутся большие

Наверно потому что, переменная Sum объявлена у тебя глобальной, и в ней сохраняется последний результат, который при последующем подсчете прибавляется к текущему. Поэтому ее нужно перед подсчетами обнулять, как ты сделал с переменной sr

илья1995

4 / 4 / 3

Регистрация: 17.10.2011

Сообщений: 169

28.05.2012, 22:03

[ТС]

обнулил все равно нули выводит
вот весь код может че неправильно

Delphi

unit Unit1KI;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, Grids;
 
type
  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
    StringGrid1: TStringGrid;
    SpinEdit2: TSpinEdit;
    btn1: TButton;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
type mat=array[1..1,1..1] of integer;
var
 i,j,sum,n,m,k,h:integer;
     p:mat;
     sr:double;
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
SpinEdit1.MinValue :=-1;
SpinEdit1.MaxValue := 10;
SpinEdit2.MinValue :=1;
SpinEdit2.MaxValue := 10;
StringGrid1.ColCount := SpinEdit1.Value;
StringGrid1.RowCount := SpinEdit2.Value;
 
end;
 
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
StringGrid1.colCount := SpinEdit1.Value;
if SpinEdit1.Value > 5 then
 StringGrid1.Width := StringGrid1.Width + 36;
 
 
end;
 
procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
StringGrid1.RowCount := SpinEdit2.Value;
if SpinEdit2.Value > 5 then
 StringGrid1.height := StringGrid1.height + 36;
 
end;
 
procedure TForm1.btn1Click(Sender: TObject);
 
begin
randomize;
 for i:=1 to SpinEdit2.Value do
  for j:=1 to SpinEdit1.Value do
     begin
         p[i,j]:=random(41)-10;
         stringgrid1.Cells[j-1,i-1]:=inttostr(p[i,j]);
      end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  se1,se2:integer;
begin
  sr:=0;
  sum:=0;
se1:=  spinEdit1.Value;
se2:=  SpinEdit2.Value ;
h:=se1*se2;
sum:=sum+p[i,j];
sr:=sum/h;
begin
k:=0;
 for i:=1 to SpinEdit2.Value do
  for j:=1 to SpinEdit1.Value do
if p[i,j]<sr then k:=k+1;
showmessage('Ñðåäíåå çàí÷åíèå: '+FormatFloat('0.00',sr)+#13+'Êîë-âî ÷èñåë ìåíüøå '+FormatFloat('0.00',sr)+' - '+IntToStr(k));
 end;
end;
 
end.

Источник

Типов сообщений компилятора — более двухсот. Рассмотрим перечень наиболее встречающихся сообщений класса Error

0. <Что-то1> expected but <Что-то2> found. Обычно это сообщение возникает при синтаксической ошибке.Например,в случае небаланса скобок,компилятор сообщит: ‘)’ expected but ‘;’ found (вместо ожидавшейся скобки найдена запятая).
Компилятор часто сообщает, что ‘end’ ожидается,например:x:= 5,7; здесь неуместен разделитель-запятая, а сообщается про end. (‘END’ expected but ‘,’ found)
1. <Имя> is not a type identifier. Данное <Имя> не является именем типа.
2. ‘;’ not allowed before ‘Else’. Перед else нельзя ставить точку с запятой
3. Abstract method must be virtual or dynamic. Абстрактный метод должен быть виртуальным или динамическим.
4. Ambiguous overloaded call to <Имя блока>. Компилятор не может однозначно выбрать перегружаемый блок. Измените параметр.
5. Array type required. Ошибка возникает в случаях, когда в индексе элемента массива указано больше уровней, чем предусмотрено описанием, и если массив не описан. Например, после объявления двумерного массива х или простой переменной х ошибочно записывают элемент х[2,1,1] (в нем показано три измерения).
6. Assignment to FOR-loop variable <Имя>. Присваивание значения параметру FOR-цикла в теле цикла.
Например, вследствие описки дважды используется имя i в кратном цикле:
```
For i:= 1 to n do For i:= 1 to m do ...
```
7. Break or Continue outside of loop. Break или Continue — не в цикле.
8. Cannot initialize local variables. Локальные переменные запрещено инициализировать (задавать им значения при описании).
9. Cannot assign to/read a read-only/write-only property. Присвоение значения свойству read/only и чтение свойства write/only запрещены.
10. Constant expression expected.В этом месте должна стоять константа или константное выражение, например константа выбора в структуре Case.
11. Constant expression violates subrange bounds. Выход значения константы из диапазона. Контроль не полон. Например, «сойдет с рук» присваивание x:=3000000000, где х имеет тип integer, но начение х будет искажено.
12. Constant or type identifier expected. Требуется имя типа или тип-диапазон.
13. Could not compile used unit <Имя>. Компиляция присоединенного модуля <Имя> невозможна.
14. Data type too large. Тип определяет структуру размером более 2 Гбайт; это слишком много.
15. Declaration expected but <Что-то> found. Пропущено описание или оператор.
16. Declaration of <Имя> differs from previous declarations… Данный заголовок блока не соответствует упреждающему объявлению блока.
17. Default parameter <Имя> must be by-value or constant. Необязательный параметр (со значением по умолчанию) не должен вызываться по ссылке.
18. Expression expected. В этом месте программы должно стоять выражение.
19. Expression too complicated. Выражение излишне сложно для компиляции.
20. File type not allowed here. В этом месте или в этой роли файловую переменную нельзя использовать. Например, она не может быть формальным параметром-значением.
21. For loop control variable must be simple local variable. Параметр цикла должен быть простой локальной (описанной в этом же блоке) переменной.
22. For loop control variable must have ordinal type. Параметр цикла должен иметь порядковый тип.Вещественный тип запрещен.
23. Function needs result type. В заголовке функции надо указывать тип ее результата.
24. Identifier expected but <Что-то> found. В этом месте должно стоять имя. Например, пропущено имя функции после Function.
25. Identifier redeclared <Имя>.<Имя> описано повторно, но в пределах блока имя можно описать лишь раз. Проверьте, не обозначена ли локальная переменная тем же именем, что и формальный параметр блока.
26. Illegal character in input file <знак>. Запретный знак, например «русская» буква, либо вы оставили скобку }, убрав открывающую скобку {.
27. Illegal type in Read/Readln (Write/Writeln) statement. Элемент запрещенного типа в списке ввода/вывода.
28. Incompatible types <указание типов>. Несоответствие типов по присваиванию или типов операндов одной операции. Сообщение выдается и при неверном использовании структур. Например, z — запись, ошибочно записано присваивание z:= 0 (работать надо с полями записи).
29. Invalid function result type. Недопустимый тип результата функции.
30. Label already defined: <Метка>. <Метка> уже помечает другой оператор.
31. Left side cannot be assigned to. He может быть такой левой части в присваивании. Примеры: попытка присвоить значение файловой переменной, присвоение значения формальному параметру-константе.
32. Line too long. В строке программного текста больше 255 знаков.
33. Low bound exceeds high bound. Нижняя граница превышает верхнюю.
34. Missing operator or semicolon.Пропуск операции (например перед скобкой) или пропуск точки с запятой. При пропуске ‘;’ маркер ошибки стоит на очередном предложении (объявлении или операторе).
35. Missing parameter type. He указан тип формального параметра-значения или параметра процедурного типа.
36. Not enough actual parameters. He хватает фактических параметров.
37. Need to specify at least one dimension … Нужно задавать в операторе SetLength хотя бы один размер динамического массива.
38. Number of elements differs from declaration. Число элементов в структурной константе не соответствует ее описанию.
39. Operator not applicable to this operand type. Операция не применима к операндам данного типа. Например: ‘А’ or ‘В’; ‘Text1’* ‘Text2’.
40. Order of fields in record constant differs from declaration. Порядок полей в записи-константе не соответствует описанию записи.
41. Ordinal type required. Требуется порядковый тип (например, в индексе).
42. Out of memory. Компилятору не хватает памяти.
43. Statement expected but <Что-то> found. В этом месте должен стоять оператор. Сообщение выдается во всех случаях, когда в тело блока или секцию инициализации ошибочно помещают описание (<Что-то>). Ошибочная форма обращения к процедуре Procedure <Имя> или к функции Function <Имя> также вызывает сообщение.
44. Sets may have at most 256 elements. Множество (тип Set) не может содержать более 256 элементов.
45. Slice standard function only allowed as open array argument. Функцию Slice можно использовать лишь как фактический параметр
46. Statement not allowed in interface part. Предложения в секции интерфейса программного модуля недопустимы.
47. Syntax error in real number. Синтаксическая ошибка в записи числа вещственного типа.
48. There is no overload version of <Имя> that can be called with these arguments.Не предусмотрен перегружаемый блок <Имя>, который мог бы вызываться с таким аргументом. Пример: IntToStr(x), где х – выражение вещественного типа.
49. Too many actual parameters. Фактических параметров больше, чем формальных.
50. Type actual and formal var parameters must be identical. Тип фактического параметра должен быть идентичен типу формального параметра-переменной.
51. Type of expression must be <Тип>. Выражение должно быть указанного типа. Например,после While и Until должно стоять логическое выражение.
52. Undeclared identifier: <Имя>.Не описано <Имя>. Проверьте есть ли описание в нужном месте,нет ли описок в имени. Если указано имя компонента формы, проверьте,поместили ли компонент на данную форму.
53. Unexpected end of file in comment started on line <N>. Неожиданный конец файла при незавершенном комментарии, начало комментария — в строке N.
54. Unit name mismatch: <Имя>. Имя модуля ошибочно.
55. Unsatisfied forward or external declaration <Имя>. Отсутствует описание блока, объявление которого было дано (заголовок в интерфейсе или в описании объектного типа, либо упреждающее описание).
56. Unterminate string. He закрыта апострофом строка-константа типа string.

Рассмотрим также некоторые сообщения классов warning и hint.

Return value of function <Имя> might be undefined. В теле функции нет присваивания ее результата.
Variable <Имя> might not have been initialized. Указывает имя переменой, которой не задали значения.
For-Loop variable <Имя> may be undefined after loop. Попытка использования значения параметра For-цикла после завершения этого цикла.
Text after final ‘END.’ ignored by compiler. Текст, идущий за конечной строкой модуля, игнорируется компилятором.
Variable <Имя> is declared but never used in <Имя блока>. Обращает внимание на переменную <Имя>, описанную,но не нашедшую применения.
Value assigned to <Имя> never used. Хотя бы одно значение переменной <Имя> никак не использовано.

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

Не удаляйте прежний вариант кода,пока не убедитесь,что ошибка устранена. Лучше на время закомментировать код,заключив его в скобки: { код }

Компилятор не анализирует, как будет выполняться программа, поэтому выход значения индекса из диапазона выявляет только если индекс задан константным выражением. Деление на ноль вообще пропускается, кроме оператора div, в случае если делитель — константное выражение.

Источник

Вот такая ошибочка… ‘for loop control variable must be simple local variable’ 👿 посмотрите код, что неправильно там? чем переменная для цикла не подходит? она задается перед началом цикла, ничего не понимаю, в чем ошибка… (программа после компилирования не выполняет цикл, загружает проц на 100% и висит…) :cry:

Код: Выделить всё

var
  Form2: TForm2;
  i:integer; // в какую сторону перемещать
  m1,m:integer; // кол-во тактов для перемещения

…

Код: Выделить всё

procedure TForm2.Timer1Timer(Sender: TObject);
begin
randomize;
i := random(0-3); { делаем выбор, в какую сторону премещать:
                        i = 0 - влево
                        i = 1 - вправо
                        i = 2 - вниз
                        i = 3 - вверх }
randomize;
m := random(1-100); // выбираем кол-во тактов для перемещения
for m1 := 1 to m do begin // перемещаем заданное кол-во раз
if ((not(image1.Left>235))or(not(image1.Left<0)))and((not(image1.Top<0))or(not(image1.top>185)))then begin
case i of
        0: image1.Left := image1.Left + 1;
        1: image1.Left := image1.Left - 1;
        2: image1.Top := image1.Top - 1;
        3: image1.Top := image1.Top + 1;
end;
                                                                                                     end;
                    end;
end;

это я пытался сделать свободное движение объекта с отражением от границ экрана… может кто подскажет другой способ? 🙄

Даже самое длинное путешествие начинается с первого шага.

Источник

← →
R13

(2009-01-30 00:56)
[0]

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for i=0 to 5 do memo1.Lines.Delete(i);
end;

Вылезает ошибка: For loop control variable must be simple local variable

Что я не так сделал? Че-т вообще не понимаю (=

Двоеточие пропущено.
i := 0

← →
R13

(2009-01-30 01:04)
[2]

*WALL*

я уж с горя сюда написал. всегда работало, а тут вдруг наотрез отказалось 🙂

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

> R13 (30.01.09 01:04) [2]

> ошибка вылезает не о том, что двоеточие пропущено, а что i не является
> локальной переменной.

Нет, не так. Сама по себе, переменная i тут ни при чем и в сообщении о ней ничего не говорится. В нем говорится, что там, где должен быть оператор присваивания с локальной переменной, стоит что-то другое (в данном случае — логическое выражение).

Т.е. На бога надейся, а сам не плошай!
🙂
Сообщения компилятора всего лишь подсказка. Понять эту подсказку должен сам программист.

> for i=0 to 5 do memo1.Lines.Delete(i);

Вообще-то:

for i:=5 downto 0 do memo1.Lines.Delete(i);

И учти, что если memo1.Lines.Count будет меньше 6, то List index out of bounds получишь.

← →
qqq

(2009-01-30 11:43)
[6]

> Ega23 © (30.01.09 10:18) [5]

не проще ли
for i:=5 downto 0 do memo1.Lines.Delete(0);
тогда и направление перебора не важно

> for i:=5 downto 0 do memo1.Lines.Delete(0);

procedure TList.Delete(Index: Integer); var Temp: Pointer; begin if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index); Temp := Items[Index]; Dec(FCount); if Index < FCount then System.Move(FList^[Index + 1], FList^[Index], (FCount - Index) * SizeOf(Pointer)); if Temp <> nil then Notify(Temp, lnDeleted); end;

← →
qqq

(2009-01-30 12:13)
[8]

Если удаляешь последний элемент, то не выполнится System.Move, т.к. сначала произойдёт декремент FCount и его значение станет равным Index

А если удалять всегда первый, то System.Move выполнится Count-1 раз.

> Ega23 © (30.01.09 12:18) [9]

Это типа все правильно, но если удаляем все строки (что предполагается обращением каждый раз к последнему элементу), то проще memo1.Lines.Clear сразу вызвать — и циклов не надо 🙂

> то проще memo1.Lines.Clear сразу вызвать — и циклов не надо 🙂

Если уж на то пошло, то Memo1.Clear — ещё проще.

Источник

procedure TGridThread.Execute;
var
  i: integer;
  iIEBitmap: TIEBitmap;
  iWidth: integer;
  iHeight: integer;
  iImageCount: integer;
  iArrayOfBitmaps: array of TBitmap;
begin
  inherited;
  { Free the thread onTerminate }
  FreeOnTerminate := True;
  if not Terminated then
    begin    
      if not Terminated then
      begin
        Synchronize(
         procedure
           begin
              iIEBitmap := TIEBitmap.Create(Form1.ImageEnView1.IEBitmap);
              iWidth := Form1.ImageEnMView1.ImageOriginalWidth[0];
              iHeight := (Form1.ImageEnMView1.ImageOriginalHeight[0] + iSpaceBetweenImages) *
              Form1.ImageEnMView1.ImageCount;
              iImageCount := Form1.ImageEnMView1.ImageCount;
            end);

           SetLength(iArrayOfBitmaps, iImageCount);

           Synchronize(
            procedure
            begin
              for i := 0 to iImageCount - 1 do // [DCC Error] Unit1.pas(334): E1019 For loop control variable must be simple local variable
              begin
                iArrayOfBitmaps[i] := Form1.ImageEnMView1.GetBitmap(i);
                { Free the bitmap }
                Form1.ImageEnMView1.ReleaseBitmap(0);
               end;
            end);

NGLN

42.6k8 gold badges105 silver badges199 bronze badges

asked Jul 12, 2013 at 19:01

You simply need to declare a local variable for your loop counter:

Synchronize(
  procedure
  var
    i: Integer;
  begin
    for i := 0 to iImageCount - 1 do
    begin
      iArrayOfBitmaps[i] := Form1.ImageEnMView1.GetBitmap(i);
      Form1.ImageEnMView1.ReleaseBitmap(0);
    end;
  end
);

A loop variable must be local to the procedure in which the loop appears. In your code you had declared the variable as a local in a different procedure. And hence the compilation error.

answered Jul 12, 2013 at 19:04

David HeffernanDavid Heffernan

595k42 gold badges1052 silver badges1470 bronze badges

Источник

Текст сообщения	Причина ошибки
Array type required	Требуется массив.
Assignment to FOR-Loop variable	Переменная — параметр цикла FOR
‘<Имя>’	не может изменяться внутри цикла.

Assignment to FOR-Loop variable	Переменная — параметра цикла
‘<Имя>’	FOR может иметь неопределённое
	значение после выполнения этого
	цикла.
Case label outside of range of case	Значения указанные в операторе
expression	CASE таковы, что селектор не может
	их принимать.
Compile terminated by user	Компиляция прервана
	пользователем клавишами Ctrl и
	Break.
Constant expression expected	Ожидалось выражение состоящее
	из одних констант.
Constant expression violates	Константное выражение выходит
subrange bounds	за пределы заданного интервала.
Could not create output file	Невозможно создать exe-файл.
Declaration of <Имя> differs from	Текущее декларирование
previous declaration	отличается от предыдущего.
Division by zero	Выполняется деление на нуль.
Duplicate case label	Значения в операторе CASE
	повторяются.
EXCEPT or FINALLY expected	Ожидается секция исключений
	оператора TRY.
Expression has no value	Выражение не возвращает после
	себя никакого значения.
File not found: ‘<Имя_файла>.dcu’	Файл внешнего модуля не был
	обнаружен в текущем каталоге.

	Часть II. Delphi

	File not found: <Имя_файла>	Не был найден указанный файл.
	File type not allowed here	Файловый тип в данном месте не
		позволителен. Файловая переменная
		может передаваться в подпрограмму
		только как параметр — переменная.
	FOR-Loop variable ‘<Имя>’ cannot	Переменная — параметр цикла не
be passed as var parameter	может передаваться в подпрограмму
		как параметр. Она должна быть
		описана локально.

	For loop control variable must be	Переменная — параметр цикла FOR
simple local variable	должна быть описана локально.
	For loop control variable must have	Переменная параметра цикла FOR
ordinal type	может быть целого, символьного
		либо перечислимого типов.
	FOR or WHILE loop executes zero	Цикл FOR или WHILE не будет
times — deleted	выполняться ни разу и поэтому
		удален.
	Function needs result type	Была определена функция в
		которой не определено
		результирующее значение.
	Identifier redeclared: ‘<Имя>’	Повторно был описан указанный
		идентификатор. Все имена в
		программе должны быть уникальны.
	Illegal character in input file:	В программе были обнаружены
‘<Символ>’ ($)	недопустимые символы.
	Illegal type in Read/Readln statement	Несовместимость типов при
		вызове оператора ввода.
	Illegal type in Write/Writeln statement	Несовместимость типов при
		вызове оператора вывода.
	Inaccessible value	Значение данной переменной не
		доступно либо не определено.
	Incompatible types	Несовместимость типов.
	Incompatible types: ‘<Тип1>’ and	Имеет место несовместимость
‘<Тип2>’	указанных типов.
	Internal error: <Код_ошибки>	Внутренняя ошибка.
	Invalid function result type	Была определена функция, в
		которой выходное значение не
		совместимо по типу с указанным в

	Часть II. Delphi

		заголовке.
	Label already defined:	Указанная метка уже была
‘<Имя_метки>’	определена.
	Left side cannot be assigned to	Имеет место попытка изменить
		значение константы.
	Line too long (more than 255	Строка слишком длинна.
characters)
	Low bound exceeds high bound	Нижняя граница диапазона
		определена большей чем верхняя
		граница.
	Method identifier expected	Требуется указать название
		метода.
	Missing operator or semicolon	Пропущен оператор либо точка с
		запятой.
	Missing parameter type	Формальные параметры
		подпрограммы даны без указания
		типов.
	Not enough actual parameters	При вызове какой — либо
		процедуры или функции было
		указано недостаточное количество
		фактических параметров.
	Object type required	Требуется объект.
	Operator not applicable to this	Оператор не предназначен для
operand type	работы с операндами данного типа.
	Ordinal type required	В данном месте требуется
		скалярный тип.
	Pointer type required	Требуется указатель.
	Procedure cannot have a result type	Процедура не может иметь
		результирующего значения. В таких
		случаях нужно использовать
		функцию.
	PROCEDURE or FUNCTION	В данном месте ожидается
expected	процедура либо функция.
	Record, object or class type required	Требуется запись, объект или
		класс.
	Return value of function	Выходное значение указанной
‘<Имя_функции>’ might be undefined	функции может быть не определено.
	Statement expected, but expression	Ожидался оператор, но было

	Часть II. Delphi

of type ‘<Тип>’ found	обнаружено выражение указанного
		типа.
	String constant truncated to fit	Строковая константа укорочена.
STRING[<Номер>]
	Syntax error in real number	Ошибка при написании
		действительного числа.
	Text after final ‘END.’ — ignored by	Текст, написанный в программе
compiler	после последнего END был
		игнорирован.
	Too many actual parameters	При вызове какой — либо
		процедуры или функции было
		указано слишком большое
		количество фактических
		параметров.
	Type of expression must be	Тип выражения должен быть
BOOLEAN	логическим. Имеет место
		несовместимость типов.
	Type of expression must be	Тип выражения должен быть
INTEGER	целым. Имеет место
		несовместимость типов.
	Types of actual and formal var	Типы формальных и фактических
parameters must be identical	параметров должны совпадать.

	Incompatible types	Несовместимые типы. В
		инструкции присваивания тип
		выражения не соответствует или не
		может быть приведен к типу
		переменной, получающей значение
		выражения.
		Тип фактического параметра
		процедуры или функции не
		соответствует или не может быть
		приведен к типу формального
		параметра
	Undeclared identifier: ‘<Имя>’	Неизвестный идентификатор,
		либо оператор написан с ошибкой.
	Unexpected end of file in comment	Комментарий начатый в
started on line <Номер>	указанной строке не закрыт.

Источник

Часть II. Delphi

Получение элементом управления

Потеря элементом управления