在运行时创建TRadioGroup

Question

我需要使用7个不同的RadioButtons动态创建一个TRadioGroup.

RadioButtons如下:

Screws 12mm

Canned Peaches 250g

Refil Blue Pen

Tomatoes

Spaghetti

Twin Flex 5m

Clear glue 250ml

这是我认为它必须看起来的样子:

rgpOptions := TRadioGroup.Create(frmSale);
  rgpOptions.Parent := frmSale;
  rgpOptions.Left := 30;
  rgpOptions.Top := 100;
  rgpOptions.Width := 300;
  rgpOptions.Height := 140;
  rgpOptions.Visible := True;
  rgpOptions.Items.Add := (
                          1 := 'Screws 12mm';
                          2 := 'Canned Peaches 250g';
                          3 := 'Refil Blue Pen';
                          4 := 'Tomatoes';
                          5 := 'Spaghetti';
                          6 := 'Twin Flex 5mm';
                          7 := 'Clear Glue';
                          );

(顺便说一句,我知道它不能编译,这就是我要问的原因)

Answer 1

如果你要使用的东西比Delphi 7中较新的,你要寻找的AddStrings(TArray<String>)方法TStringList.Items,让您的添加array of string到RadioGroup中项的列表:

rgpOptions.Items.AddStrings(
    TArray<String>.Create(
        'Screws 12mm',
        'Canned Peaches 250g',
        'Refil Blue Pen',
        'Tomatoes',
        'Spaghetti',
        'Twin Flex 5m',
        'Clear glue 250ml'
    )
);