Array de radio groups

[lunicirus]

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


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:

...
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
...