Ver Mensaje Individual
  #8  
Antiguo 19-12-2007
mjjj mjjj is offline
Miembro
 
Registrado: mar 2007
Posts: 652
Reputación: 18
mjjj Va por buen camino
hola... le cambie el formato separador de los decimales a '.' y funciono.

Pero por ejemplo cuando escribo 1.000 (MIL, no uno coma cero cero cero)...
me lo toma como 1... igual quiero que me mantenga el punto separador de los miles (.) y que me lo diferencie de la coma decimal como si fuera una coma....

se puede lograr eso??

Gracias

aqui les agrego la rutina que utilizo para agregar punto de los miles

En el eveto onChenge del TEdit

Código:
var
i : integer;
aux,aux2,cad : string;
begin
        cad:='0123456789';
        aux2:='';
        with (Sender as TEdit) do
        begin
          if text <> '' then
            begin
                aux:=text;
                if aux[1]='0' then delete(aux,1,1);
                for i:=1 to length(aux) do
                begin
                        if pos(aux[i],cad)>0 then aux2:=aux2+aux[i];
                end;
                i:=1;
                repeat
                        if (i mod 4=0) then Insert('.',aux2,length(aux2)-i+2);
                        inc(i);
                until (i>length(aux2));
                text:=aux2;
                SelStart:=length(aux2);
          end;
        end;
Responder Con Cita