| Код |
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Button1: TButton;
RadioGroup1: TRadioGroup;
Listbox1: TListBox;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
variantkol,nomervernogo,kolvoverno,nomervoprosa,nomerstroki,kolvovoprosov,i: integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.LoadFromFile('Test.txt');
label1.Caption:=listbox1.Items[1];
variantkol:=StrToInt(Listbox1.Items[2]);
radiogroup1.items.clear;
for i:=1 to variantkol do begin
radiogroup1.Items.Add(listbox1.Items [3+i]) ;
end;
kolvovoprosov:=strtoint (listbox1.Items[0]);
nomervernogo:=strtoint (listbox1.Items [3]);
kolvoverno:=0;
nomervoprosa:=1;
nomerstroki:=variantkol+4;
end;
procedure TForm1.Button1Click(Sender: TObject);
var variantkol,nomervernogo,kolvoverno,nomervoprosa,nomerstroki,kolvovoprosov: integer;
Ocenka: real;
begin
if (RadioGroup1.ItemIndex+1)=nomervernogo then begin
kolvoverno:=kolvoverno+1;
end;
if nomervoprosa=kolvovoprosov then begin
Ocenka:=kolvoverno*(5-1)/kolvovoprosov+1;
messagedlg('Âàøà îöåíêà='+floattostr (Ocenka),
mtinformation, [mbOK], 0);
Form1.Close;
end;
if nomervoprosa<kolvovoprosov then begin
end;
nomervoprosa:=nomervoprosa+1;
label1.caption:=listbox1.items[1+nomerstroki-1];
variantkol:=strtoint(listbox1.items[2+nomerstroki-1]);
nomervernogo:=strtoint(listbox1.items[3+nomerstroki-1]);
radiogroup1.items.clear;
for i:=1 to variantkol do begin
radiogroup1.items.add(listbox1.items[3+i+nomerstroki-1]);
end;
nomerstroki:=nomerstroki+variantkol+3;
end;
end.
|
пишет нераспознанный индекс, сижу целый день не могу понять где косяк |
