calculadora cientifica

[jose.ignacio.ve]

holaa.. me ayudo mucho este tema.. pero ahora m gustaria q m ayuden con la conversion a otros sistemas.. m pueden ayudar?

[[mightydragonlor]]

La Unit Math contiene todo este tipo de funciones, revisala, creo que te servirá mucho.

Saludos.

[jose.ignacio.ve]

siii sii la uso a la unit math.. pero t explicoo..

Código Delphi [-]
procedure TForm1.rgsClick(Sender: TObject);
var
r:string ;
a:integer;
begin

  case rgs.ItemIndex of
    0: begin
     visor.Caption:=divi_reit(visor.Caption,2);
     bp:=2;
    end;
    1: begin
     visor.Caption:=divi_reit(visor.Caption,8);
     bp:=8;
    end;
    2: begin
        visor.Caption:=divi_reit(visor.Caption,10);
        bp:=10;
    end;
    3:begin
     visor.Caption:=divi_reit(visor.Caption,16);
     bp:=16;
    end;
  end;

mi problema es que de base 10 a otra base sii esta bien m la convierte.. pero cuando quiero ir d otra base a la 10 no la convierte
tengo esta function

Código Delphi [-]
function tform1.su_pond( n:string ; base: integer): string ;
var
  r: single;
  i,s:integer;

begin
  r:=0;
  s:=0;
  for i := 1 to length(n) do
    begin
    r:=power(base,i);
    s:=(strtoint(visor.caption[i])* trunc(r))+s;
    end;
    result:=inttostr(s);
end;

que supuestamente pasa de cualquier base a base 10
que es suma ponderada.. el problem es q no se cuando llamarla.. m podrias ayudar??

[ecfisa]

Hola jose.ignacio.ve y bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

El foro Trucos no es para consultas sino para aportar trucos de programación, moví tu hilo al foro varios por ser este el adecuado al contenido del mensaje.

Aprovecho también a transcribirte el punto 11 de la guía de estilo:

No solicites que te respondan por correo en privado

Los problemas deben ser un proceso público y transparente, durante el cual un primer intento de respuesta puede y debería corregirse si alguien con más conocimientos percibe que la respuesta es incompleta o incorrecta. Además quién te responde obtiene parte de su recompensa al verse que son competentes y útiles a nuestra comunidad.

Cuando pides una respuesta privada, estás interrumpiendo tanto el proceso como la recompensa. No lo hagas.

(Quité la dirección de correo de tu primer mensaje)



Por último para darle más legibilidad, cuando incluyas código en tus mensajes utiliza TAG's, te pongo una imágen que explica el uso:

(ya los agregué a tu mensaje anterior)


Saludos y gracias por tu colaboración.