For loop control variable must be simple local variable

[Hehe]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  arr:array[1..10] of integer;
  i:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 for i:=1 to 10 do
 begin
  arr[i]:=random(9);
  TForm1.ListBox1.Items.Strings:=TForm1.ListBox1.Items.Strings+IntToStr(arr[i]);
 end;
end;

end.

предупреждение:

[Warning] Unit1.pas(30): For loop control variable must be simple local variable

Помогите разобраться, заранее спасибо.

[Neeter]

Счетчиком цикла может быть только локальная переменная. Т.е.:

procedure TForm1.FormCreate(Sender: TObject);
var
 i: byte;
begin
 for i:=1 to 10 do
 begin
  arr[i]:=random(9);
  TForm1.ListBox1.Items.Strings:=TForm1.ListBox1.Items.Strings+IntToStr(arr[i]);
 end;
end;

А из раздела var удалите.

[Hehe]

procedure TForm1.FormCreate(Sender: TObject);
var
 i: byte;
begin
 for i:=1 to 10 do
 begin
  arr[i]:=random(9);
  ListBox1.Items.Strings:=ListBox1.Items.Strings+IntToStr(arr[i]);
 end;
end;

[Error] Unit1.pas(34): '[' expected but ':=' found

[Hehe]

все. разобрался.
Neeter, спасибо

[IT-man]

Счетчиком цикла может быть только локальная переменная.

Нужна локальная переменная,но не обязательна! Имхо!(из моих познаний английского)

[Neeter]

Нужна локальная переменная,но не обязательна! Имхо!(из моих познаний английского)

Что значит не обязательна? Именно, обязательна только локальная переменная для процедуры, в цикле которой она используется.

[mihali4]

Нет, она может быть объявлена и глобально. И все будет работать.
Просто компилятор предупреждает (warning), что есть опасность того, что в какой-то из процедур эта переменная цикла может быть изменена (поскольку доступна всем процедурам), что приведет к неправильной обработке цикла.

[Neeter]

Нет, она может быть объявлена и глобально. И все будет работать.
Просто компилятор предупреждает (warning), что есть опасность того, что в какой-то из процедур эта переменная цикла может быть изменена (поскольку доступна всем процедурам), что приведет к неправильной обработке цикла.

А, да, точно, предупреждение ведь...

[ZamVessel]

А вот я глобально не описывал, но эта ошибка все равно вылазиет

 unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    mmo1: TMemo;
    mmo2: TMemo;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var a, b:string; i: byte;
begin
a:=(mmo1.Text);
For i=1 to 1000 do
 if a[i]<>'~' then b[i]:=a[i]
 else
  if a[i]='b' then b[i]:='Begin'

end.

Прогу я не дописал но ошибка тут уже есть (

[Пепел Феникса]

ТС, вы знаете диапазон значений для типа byte?