Firemonkey Mask Edit TCP/IP

Delphi

FireMonkey

04/01/2019

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

Rodrigo Teixeira

Curtidas 0

Respostas

Inarais Jerônimo

Inarais Jerônimo

04/01/2019

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;

GOSTEI 0
Rodrigo Teixeira

Rodrigo Teixeira

04/01/2019

Boa Tarde,

Este código foi desenvolvido em Firemonkey - Delphi ?
GOSTEI 0
Inarais Jerônimo

Inarais Jerônimo

04/01/2019

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);
GOSTEI 0
Inarais Jerônimo

Inarais Jerônimo

04/01/2019

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
GOSTEI 0
Rodrigo Teixeira

Rodrigo Teixeira

04/01/2019

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 ?
GOSTEI 0
Inarais Jerônimo

Inarais Jerônimo

04/01/2019

No onexit por exemplo do edit.<br />
GOSTEI 0
Rodrigo Teixeira

Rodrigo Teixeira

04/01/2019

não funcionou ainda =/
GOSTEI 0
POSTAR