21.06.2009, 17:58
|
Прохожий
|
|
Регистрация: 21.06.2009
Сообщения: 4
Репутация: 10
|
|
примерно так
Код:
//глобальные
type TTest = Record
ask, v1, v2, v3, v4, vt: String;
var
Test: array of TTest;
TNum, TrueCnt: Integer;
SL: TStringList;
//это туда где будешь загружать тест
SL.LoadFromFile('твой файл');
i:=0;
while i<sl.lines.count do
begin
SetLength(Test, Length(Test)-1);
with Test[Length(Test)-1] do begin
Ask:=SL[i];
V1:=SL[i+1];
V2:=SL[i+2];
V3:=SL[i+3];
V4:=SL[i+4];
VT:=SL[i+5];end;
i:=i+6;
end;
Label1.Caption:=Test[0].Ask;
RadioGroup1.Items.Clear;
RadioGroup1.Items.Add(Test[0].V1);
RadioGroup1.Items.Add(Test[0].V2);
RadioGroup1.Items.Add(Test[0].V3);
RadioGroup1.Items.Add(Test[0].V4);
Tnum:=0; //текущий вопрос
TrueCnt:=0; //верных ответов
//это кнопка СЛЕД. ВОПРОС
if RadioGroup1.Items[itemIndex]=Test[TNum].VT then inc(TrueCnt);
inc(TNum);
Label1.Caption:=Test[TNum].Ask;
RadioGroup1.Items.Clear;
RadioGroup1.Items.Add(Test[TNum].V1);
RadioGroup1.Items.Add(Test[TNum].V2);
RadioGroup1.Items.Add(Test[TNum].V3);
RadioGroup1.Items.Add(Test[TNum].V4);
|