Ver Mensaje Individual
  #11  
Antiguo 19-12-2007
mjjj mjjj is offline
Miembro
 
Registrado: mar 2007
Posts: 652
Reputación: 18
mjjj Va por buen camino
justamente eso es lo que me pasa... por lo tanto dejo los campos como varchar.

Ahora bien... para solucionar todos mis problemas, necesito 2 rutinas... aer si me pueden dar una manito...

1) que me agregue los puntos separadores de los miles automaticamente al ingresar cierto numero en un TEdit. y que al presionar el punto del teclado numerico que agrege la coma decimal, representada como una coma (,).

2) una rutina que me transforme un string, por ejemplo (25.006,67) al numero real que corresponda y asi poder hacer calculos con el.

para esto yo utilizaba, la siguiente rutina, pero en la cual no existian la coma deciamal

Cita:
begin
CADENA:=IBQUERY3.FieldByName('MONTO').ASSTRING;
result:=0;
for H:=1 to length(cadena) do
if cadena[H] in ['0'..'9'] then result:=result*10+ord(cadena[H])-48;
en donde cadena es un string y result es un integer... ahora lo que necsito es que me entregue un numero real.

Aer si es que me pueden ayudar.. muchas gracias
Responder Con Cita