Mascara na Variavel

Question

Bom Dia Galera assim estou tentando colocar uma mascara em uma vari�vel que vai receber uma id de um banco de dados exemploproduto x = codigo 3produto y = codigo 10produto k = codigo 125o que eu ...

Natanael Ferreira · Accepted Answer

Voc� pode utilizar a fun��o Format para adicionar zeros a esquerda de uma vari�vel inteira.

Exemplo:

var
   Numero: Integer;
begin
   Numero:= 3;
   Edit1.text:= Format('%3.3d',[Numero]); // resulta '003';
end;

Veja este link:
http://www.delphibasics.co.uk/RTL.asp?Name=format

Raimundo Pereira · Answer

Bom dia!1. function TForm1.Valida_Mask(Valor_Origem: string): string;Var Valor_Conv:integer;begintry Valor_Conv:=StrToInt(Valor_Origem); if Valor_Conv<10 then Result:=00+Valor_Origem; if Valor_Conv>9 then Result:=0+Valor_Origem; if Valor_Conv>99 then Result:=Valor_Origem;exceptShowMessage(Voc� deve informar um valor v�lido);Result:=0;end;end;Chame a fun��o no onkeypress ou onde desejar.procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);beginif key=#13 thenbegin if Edit1.Text<> then begin Edit1.Text:=Valida_Mask(Edit1.Text); end;end;end;...

Raimundo Pereira · Answer

Fiz uma altera��o na fun��o usando a sugest�o do Natanael:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
Edit1.text:= Valida_Mask(Edit1.Text);
end;
end;

function TForm1.Valida_Mask(Valor_Origem: string): string;
var Numero:integer;
begin
try
Numero:=StrToInt(Valor_Origem);
Result:=Format('%3.3d',[Numero]);
except
ShowMessage('Voc� deve informar um valor v�lido');
Result:='';
end;
end;

Abner Carvalho · Answer

Obrigado Natanael Ferreira e P2 T�cnico, pela ajuda me ajudaram muito....

F�rum Mascara na Variavel #595720