Array de radio groups

[lunicirus]

Hola
Alguien me puede decir como hacer un arreglo de radio groups ? tengo esto:

Código Delphi [-]
type
  TFormDisenoAlgoritmosGeneticos = class(TForm)
    RgVectorInicial: TRadioGroup;
    RgEcuacionHidraulica: TRadioGroup;
    RgProbabilidades: TRadioGroup;
    RgRecombinacion: TRadioGroup;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormDisenoAlgoritmosGeneticos: TFormDisenoAlgoritmosGeneticos;
  Rgroups: Array[0..3] of TRadioGroup = (RgProbabilidades,RgEcuacionHidraulica , RgRecombinacion, RgVectorInicial);

implementation
...

Pero me aparece el siguiente error: " Undeclared indentifier: 'RgProbabilidades' "

Gracias

[ecfisa]

Hola lunicirus.

No podes asignar los valores del arreglo de ese modo, como si estuvieses definiendo valores enumerativos.

Un ejemplo de como podrías hacer lo que buscas:

Código Delphi [-]
...
var
  ...
  Rgroups: array[0..3] of TRadioGroup;

implementation  

(* Asignar elementos al arreglo *)
procedure TForm1.FormCreate(Sender: TObject);
begin
  RGroups[0]:= RgVectorInicial;
  RGroups[1]:= RgEcuacionHidraulica;
  RGroups[2]:= RgProbabilidades;
  RGroups[3]:= RgRecombinacion;
  Randomize;
end;

(* Seleccionar items al azar en los 4 RadioGroups *)
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to 3 do
    RGroups[i].ItemIndex:= Random(RGroups[i].Items.Count);
end;
...

Saludos.

[lunicirus]

Hola gracias

si yo sabia que se podia asignar asi pero queria una forma mas rapida como lo hice y si funciono con string pense que tambien se podia con RG.

 
var
  FormDisenoAlgoritmosGeneticos: TFormDisenoAlgoritmosGeneticos;
  AConstantes: Array[0..3] of String = (PRO_ESCALADA, Type_HW, GEN_AlEATORIA,REC_ESTANDAR);

implementation
...