Simplificar el uso de if al usar RadioGroup

[ecfisa]

Empezado por wull

Pero ahora quiero lograr que si ninguno de los item de los RadioGroup ha sido marcado, entonces mandar un mensaje al usuario para pedirle que marque por lo menos una opción no importa de que RadioGroup sea.

Hola wull.

La lógica planteada arriba es:

Código Delphi [-]
  ...
  if (RadioGroup1.ItemIndex <> -1) or (RadioGroup2.ItemIndex <> -1) then // Si al menos un item fué seleccionado...
  begin
     // Todo bién, hacer lo que haya que hacer
  end
  else 
    // Error, seleccione al menos uno
  ...

Y funcionaría correctamente... de no ser por un detalle: Si hay selección solamente en un RadioGroup, vas a obtener una excepción que se producirá en la línea:

Código Delphi [-]
Parameters.ParamByName('PANIO').Value := RadioGroup1.Items[RadioGroup1.ItemIndex];

Cuando el usuario haya seleccionado un item de RadioGroup2 o en la línea:

Código Delphi [-]
Parameters.ParamByName('PMES').Value := RadioGroup2.Items[RadioGroup2.ItemIndex];

Cuando lo haya echo en el RadioGroup1.


¿ Por que digo esto ?, por que en algun punto estarías haciendo lo mismo que:

Código Delphi [-]
Parameters.ParamByName('PXXX').Value := RadioGroupN.Items[-1]; // Error!!! índice fuera de rango

Saludos.