delphi - 如何在 Delphi 中制作关于带有两个单选按钮的单选组的 if 语句

Question

如何TRadioGroup使用两个单选按钮制作关于 a 的 if 语句，以便在检查TRadioGroup.

具有这些TradioGroup.Items值：

• 男性
• 女性

所以当男性按钮被选中时，它必须输出'Mr'，如果女性按钮被选中，它必须输出'Ms'到富编辑。

标签： delphidelphi-2010

Answer 1

使用as的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或字符串添加到其中，甚至根据 用它替换另一个组件，因此我将它留给您，只是写评论。TRichEditAddInsertIndex

由于您有两个按钮（假设Mr-按此Ms顺序），因此组件的ItemIdex属性TRadioGroup将保持：

• -1如果没有一个被选中。
• 0表示'Mr'被选中。
• 1表示'Ms'被选中。