Ver Mensaje Individual
  #6  
Antiguo 01-12-2009
Avatar de pnikkosis
pnikkosis pnikkosis is offline
Miembro
 
Registrado: nov 2009
Ubicación: Buenos Aires
Posts: 15
Reputación: 0
pnikkosis Va por buen camino
Yo soy muy principiante en esto, pero por lo que veo tu problema se resume a sacarle el "." a los numeros de mas de mil, la coma no se la tenes que sacar a un decimal o ya vas a generar otro numero. Teniendo eso en cuenta podes hacer algo como lo siguiente dentro de delphi:

Código Delphi [-]
var
numconform : String
numsinform: String
poscaract : Integer

begin
numconform := TEdit1.Text;
poscaract := AnsiPos('.', numconform);
numsinform := numconform;
Delete(numsinform, poscaract, 1);
TEdit1.Text := numsinform;
end;

Te explico linea por linea lo que deberia hacer:
(la asignacion de las 3 variables es bastante obvia, una para el texto con formato, una para el texto sin formato o sea sin el punto, y un integer para guardar la posicion del punto dentro de la cadena de texto)
En la primer linea (despues del begin) le asignas a la variable numconform el texto que haya en tu propiedad text del edit. En la segunda resolves en que posicion de la cadena esta el punto, y se lo asignas a la variable poscaract. En la tercera igualas la variable numsinform con numconform, esto lo necesitas para el proximo paso, ya que el Delete va a borrar de la cadena lo que le asignes como "source", si usas el mismo numconform vas a perder la cadena con formato (y por ahi la querrias guardar, esta a gusto eso). En fin, el Delete borra el punto y la siguiente linea te asigna la cadena sin el formato de vuelta a tu TEdit.

Cuando necesites trabajar con el numero como tal, haces StrToInt(numsinform), que te va a transformar el numero de String a Integer para operaciones matematicas o uso en otros procedures o funciones que requieran un Integer. Acordate que siempre te va a quedar en la variable numconform tu texto formateado viejo por si queres volver a mostrarlo.
Hay una forma mas facil, pero al no tener mas info, se me ocurrio esto.

Última edición por pnikkosis fecha: 01-12-2009 a las 13:51:07.
Responder Con Cita