Тест

[ITanyshka]

Помогите плиз у меня есть такой код:
var Text : array [1..2] of String;
Begin
Randomize;
Text[1] := 'Есть ли дождь за окном? ';
Text[2] := 'Не идёт ли снег за окном? ';
if Text[1]=True then
if rg1.ItemIndex = 0 then
lbl2.Caption := 'akdcgakshgca'
else
if rg1.ItemIndex =1 then
lbl2.Caption := '';
end;
но выбивает ошибку:[Error] Unit1.pas(40): Incompatible types: 'String' and 'Boolean', я понимаю что нужно поменять тип но как это сделать в цикле?

[Sciv]

if Text[1]=True then

Вот Ваша ошибка. Сравниваете строковую переменную с логической. По моему, ее вообще можно убрать - проверка ответа у Вас вроде бы дальше, где rg1.ItemIndex.

[ITanyshka]

Да, но мне эту проверку нужно привезать именнно к этому условию

[ITanyshka]

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

[Sciv]

Ну можно сделать так:

var Text: array [1..2] of string; //массив вопросов
    i: integer;
const  ans: array [1..2] of byte=(1,0); //массив ответов. 1=Да, 0=Нет

Begin
  Text[1] := 'Есть ли дождь за окном? ';
  Text[2] := 'Не идёт ли снег за окном? ';
  for i:=1 to 2 do
    if Ans[i]=rg1.ItemIndex then
      lbl2.Caption := 'akdcgakshgca'
    else
      lbl2.Caption := '';
end;

При условии, что rg1 уже заполнен значениями: Item[0]=Нет, Item[1]=Да

[ITanyshka]

Спасибо за идею, щас поробуем ещё пошаманить