Firemonkey Mask Edit TCP/IP

04/01/2019

26

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

Posts

07/01/2019

Wedson Regis

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
Boa Tarde,

Este código foi desenvolvido em Firemonkey - Delphi ?
Responder

07/01/2019

Wedson Regis

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

07/01/2019

Wedson Regis

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
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

09/01/2019

Wedson Regis

No onexit por exemplo do edit.<br />
Responder
não funcionou ainda =/
Responder