Как сделать заявление if относительно радиогруппы с двумя радиокнопками в Delphi

Question

Как сделать оператор if, касающийся TRadioGroup, с двумя переключателями, чтобы он выводил текст при проверке определенной переключателя в TRadioGroup.

TradioGroup.Items имеет следующие значения:

• Мужской
• Женщина

Таким образом, когда проверяется кнопка «Мужчина», она должна выводить 'Mr', а если проверяется кнопка «Женщина», она должна выводить 'Ms' для расширенного редактирования.

Answer 1

Вы можете использовать оператор if, чтобы определить, что произойдет, если произойдет определенное событие. В радиогруппе индекс начинает отсчитываться от 0 1 2 3 и т.д.

    if TRadioGroup1.ItemIndex = 0 then
    RedDisplay.Lines.add('Mr') //This displays Mr in the richedit
    else
    if TRadioGroup1.ItemIndex = 1 then
  RedDisplay.Lines.Add('Ms') ;  // this displays Ms in the richedit

    //You can add an extra else if ,if there is another button in the radioGroup.
```

Answer 2

Используйте ItemIndex свойство TRadioGroup как

Case RadioGroup1.ItemIndex of
 0: //Add Mr to RichEdit;
 1: //Add Ms to RichEdit;
 //else if needed
end;

Если вам действительно нужно использовать if, тогда

if RadioGroup1.ItemIndex = 0 then
  //Add Mr to RichEdit
else
if RadioGroup1.ItemIndex = 1 then
  //Add Ms to RichEdit;
//else if needed

Вы не указываете, будете ли вы Clear компонент TRichEdit перед добавлением строки, Add или Insert строка к ней, или даже заменить другую строку в соответствии с Index, таким образом, я оставьте это на ваше усмотрение и просто пишите комментарии.

Поскольку у вас есть две кнопки (при условии Mr - Ms в этом порядке), свойство ItemIdex компонента TRadioGroup будет содержать:

• -1, если ни один из них не был выбран.
• 0 означает 'Mr' выбрано.
• 1 означает 'Ms' выбран.