Foros Club Delphi - Manejo de un maskedit

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Manejo de un maskedit (https://www.clubdelphi.com/foros/showthread.php?t=68151)

Vlady

27-05-2010 17:42:45

Manejo de un maskedit

Como puedo crear un maskedit que me maneje una mascara que cuando un usuaria digite por ejemplo 1200 escriba 1.200 si digita 10005248 escriba
10.005.248 si di 1114578467 escriba 1.114.578.467 les agradeceria me colobaren con esto.

Gracias

Vlady

28-05-2010 01:32:20

alguien conoce la respuesta

ecfisa

28-05-2010 21:00:58

Hola Vlady.

No se me ocurre manera de hacerlo con un TMaskEdit, pero podrías hacerlo con
un TEdit.

Algo como:

Código:

procedure TForm1.Edit1Exit(Sender: TObject);

var

  i: byte;

  c: byte;

  s: string;

begin

  c:= 0;

  s:= '';

  for i:= Length(Edit1.Text) downto 1 do

  begin

    s:= s + Edit1.Text[i];

    inc(c);

    if (c = 3)and(i > 1) then

    begin

      s:= s + '.';

      c:= 0;

    end;

  end;

  Edit1.Text:= '';

  for i:= Length(s) downto 1 do

       Edit1.Text:= Edit1.Text + s[i];

end;

Saludos.

La franja horaria es GMT +2. Ahora son las 10:28:37.