E2016 Array type required

[UKRtortik]

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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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

implementation

{$R *.dfm}

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.

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

[doktor255]

otv: integer;
...
otv[i].Caption :=s;

Признавайся что курил?

[UKRtortik]

а как надо?

[doktor255]

Мда... Без комментариев. Слишком уж запущенно.

[UKRtortik]

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

[doktor255]

просто для учебы нужно

Для учёбы нужно слушать учителя, и читать книжки, а не ерундой страдать, и по форумам шариться.

[UKRtortik]

трудно помочь?

[doktor255]

Чем? Ты ошибку допустил, которые допускают новички с практикой меньше недели. Предлагаешь тебя с нуля учить? Так проще отослать тебя к списку литературы. Учись сам. Литература в топике этого раздела. Удачи.

[doktor255]

Мозг включи. Это что?

otv: integer;

Это число. А это что?

otv[i].Caption

Это число массива чисел, к которому ты каким - то боком лепишь Caption типа string. Бред?

[IliaIT]

otv[i] очень похож по структуре на массив чекбоксов. но как его стандартным способом объявить в дельфи я чего то не помню.