Firemonkey Mask Edit TCP/IP

04/01/2019

Delphi FireMonkey

Algu�m saberia me ajudar a fazer um edit com mascara pra receber TCP/IP ??

Rodrigo Teixeira

Curtir t�pico + 0

Responder

Posts

07/01/2019

Inarais Jer�nimo

A lib do MaskUtils tem o FormatMaskText
declare o MaskUtils, em seguida escreva a seguinte fun��o

C�digo:

function Mascara(edt: String;str:String):string; 
var 
  i : integer; 
begin 
  for i := 1 to Length(edt) do 
  begin 
     if (str[i] = '9') and not (edt[i] in ['0'..'9']) and (Length(edt)=Length(str)+1) then 
        delete(edt,i,1); 
     if (str[i] <> '9') and (edt[i] in ['0'..'9']) then 
        insert(str[i],edt, i); 
  end; 
  result := edt; 
end;

Exemplo de uso:

OnChange do Edit:

C�digo:

TEdit(Sender).Text := Mascara(TEdit(Sender).Text,'999.999.999.999'); 
TEdit(Sender).SelStart := Length(TEdit(Sender).Text);

OnKeyPress do Edit:

C�digo:

if not (Key in ['0'..'9',#8]) then Abort;

Responder

Gostei + 0

07/01/2019

Rodrigo Teixeira

Boa Tarde,

Este c�digo foi desenvolvido em Firemonkey - Delphi ?

Responder

Gostei + 0

07/01/2019

Inarais Jer�nimo

No modo acima n�o precisa da lib MaskUtils de forma bem pratica use o MaskUtils Assim:

 Edit.Text := FormatMaskText('000\\.000\\.000\\.000;0;', Edit.Text);

Responder

Gostei + 0

07/01/2019

Inarais Jer�nimo

Boa Tarde,

Este c�digo foi desenvolvido em Firemonkey - Delphi ?

SIm rodrigo pode fazer dessa forma ou com a lib do MaskUtils tem o FormatMaskText

Responder

Gostei + 0

07/01/2019

Rodrigo Teixeira

No modo acima n�o precisa da lib MaskUtils de forma bem pratica use o MaskUtils Assim:

 Edit.Text := FormatMaskText('000\\\\.000\\\\.000\\\\.000;0;', Edit.Text);

onde coloco este comando ?

Responder

Gostei + 0

09/01/2019

Inarais Jer�nimo

No onexit por exemplo do edit.<br />

Responder

Gostei + 0

10/01/2019

Rodrigo Teixeira

n�o funcionou ainda =/

Responder

Gostei + 0