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