Phänomen RadioGroup

[himitsu]

Asso

Delphi-Quellcode:

var
  a : Integer;
begin
  a := RadioGroup1.ItemIndex;
  if a >= 0 then
    ShowMessage(RadioGroup1.Items[a])
  else
    ShowMessage('[nix]');
end;

// bzw. (der Zugriff auf dieses ItemIndex ist recht flott)
begin
  if RadioGroup1.ItemIndex >= 0 then
    ShowMessage(RadioGroup1.Items[RadioGroup1.ItemIndex])
  else
    ShowMessage('[nix]');
end;

-1 = nix ist ausgewählt