conversion de sistema de numeracion + delphi 7

[ecfisa]

Hola Nicolas.

Echando una segunda mirada al código que te puse, veo que se puede simplificar aún más... RGroupBasesClick puede quedar así:

Código Delphi [-]
{ RadioGroup OnClick }
procedure TForm1.RGroupBasesClick(Sender: TObject);
var
  Valor: string;
begin
  Valor:= Edit.Text;
  Edit.SetFocus;
  if RGroupBases.ItemIndex <> 2 then   // Binario, Octal, Hexadecimal
    DivisionReiterada(Valor, Integer(RGroupBases.Items.Objects[RGroupBases.ItemIndex]))
  else                                // Decimal
    SumaPonderada(Valor, Integer(RGroupBases.Items.Objects[RGroupBases.ItemIndex])); 
  FBasePrevia:= Integer(RGroupBases.Items.Objects[RGroupBases.ItemIndex]);  // Actualizar valor de la base
  Edit.Text:= Valor;
end;

Seguramente encuentres algunas partes más para optimizar.

Saludos.