E2016 Array type required

[Serge_Bliznykov]

Сообщение от IliaIT

otv[i] очень похож по структуре на массив чекбоксов.

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

Сообщение от IliaIT

но как его стандартным способом объявить в дельфи я чего то не помню.

дык, можно через обычный массив (судя по коду, обращение идёт от 1 до 4-х):

var 
  otv : array[1..4] of TCheckBox;

Только, в этом случае, прежде чем обращаться к этим чекбоксам, их нужно ОБЯЗАТЕЛЬНО предварительно создать, а после завершения программы - уничтожить.

[Stilet]

Что тут не так?

Думаю тебе нужно вместо otv: integer; писать otv: array of TCheckBox;

И наполнять так:

var i:integer;
begin
...
 SetLength(otv,4);
 for i:=Low(otv) to high(otv) do begin
   readln(f1,s);
   otv[i]:=TCheckBox.Create(self);
   otv[i].Parent:=self;
   otv[i].Caption :=s;
   otv[i].Checked :=false;
   otv[i].Tag:=0;
   if s[1]='+' then otv[i].Tag:=1;
   delete(s,1,1);
   otv[i].Caption :=s;
   otv[i].Align:=alTop;
   otv[i].Show;
 end;

А вообще конечно тут все не правильно.

Учись сам. Литература в топике этого раздела. Удачи.

И зачем тогда тут твои комменты, если "учись сам"?

[doktor255]

И зачем тогда тут твои комменты, если "учись сам"?

А ты учитель?
И я что-то сильно сомневаюсь что топикстартер собирался создавать динамический массив TCheckBox. Максимум CheckListBox.

[Stilet]

А ты учитель?

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

[UKRtortik]

Еще ошибки:

[dcc32 Warning] Unit1.pas(41): W1019 For loop control variable must be simple local variable
[dcc32 Error] Unit1.pas(43): E2010 Incompatible types: 'TCheckBox' and 'TRadioButton'
[dcc32 Warning] Unit1.pas(69): W1019 For loop control variable must be simple local variable
[dcc32 Warning] Unit1.pas(81): W1019 For loop control variable must be simple local variable
[dcc32 Warning] Unit1.pas(94): W1019 For loop control variable must be simple local variable
[dcc32 Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    RadioButton1: TRadioButton;
    OpenFile: TOpenDialog;
    Button1: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  verno,n,i: integer;
  f1: textfile;
  s:string;
  otv: array of TCheckBox;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
For i:=1 to 4 Do
Begin
otv[i] := TRadioButton.Create(RadioButton1);
otv [i].Parent := Form1;
otv[i].Left := RadioButton1.Left;
otv[i].Top:= RadioButton1.Top+i*40;
otv [i].Visible :=true;
otv [i].Width := RadioButton1.Width ;
otv [i].Height := RadioButton1.Height ;
otv [i].Color := RadioButton1.Color ;
otv[i].Checked :=false;
otv[i].Font :=  RadioButton1.font;
end;
RadioButton1.Visible :=false;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
If openfile.Execute Then
Begin
assignfile(f1,openfile.FileName);
reset(f1);
readln(f1,s);
form1.Caption :=s;
verno:=0;
n:=0;
button1.Enabled :=true;
label1.Caption :='';
for i:=1 to 4 do
begin
otv[i].Caption :='';
otv[i].Checked :=false;
end;
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if n>0 then
for i:=1 to 4 do
if (otv[i].Checked =true) and (otv[i].tag=1) then verno:=verno+1;
if eof(f1) then
begin
showmessage(' кол-во верных ответов='+inttostr(verno));
closefile(f1);
button1.Enabled :=false;
exit;
end;
n:=n+1;
readln(f1,s);
delete(s,1,1);
label1.Caption :=s;
for i:=1 to 4 do
begin
readln(f1,s);
otv[i].Checked :=false;
otv[i].Tag:=0;
if s[1]='+' then otv[i].Tag:=1;
delete(s,1,1);
otv[i].Caption :=s;
end;
end;

end.

[Stilet]

otv: array of TRadioButton;

[doktor255]

Побочный эффект применения метода "скопировать - вставить". Лечится применением функции "Прочитать книгу по программированию".

[Stilet]

UKRtortik

Кстати. Весь твой код по загрузке тестов можно упростить компонентом TRadioGroup:

procedure TForm1.N2Click(Sender: TObject);
begin
If openfile.Execute Then
RadioGroup1.Items.LoadFromFile(open file.FileName);
end;

Ибо все равно ты делаешь неверно.

[UKRtortik]

Stilet, спасибо большое!

[mahatmaQL]

вот это предупреждение Unit1.pas(41): W1019 For loop control variable must be simple local variable говорит, что в качестве переменной цикла надо использовать локальную переменную.

ты используешь i в разделе var раздела interface, а нужно i объявить в разделе var процедуры procedure TForm1.FormCreate(Sender: TObject).

И так всегда: переменная в цикле for должна определяться локально!

В твоем случае в каждой процедуре должно быть
var i: integer;