Adicionando Zeros a esquerda

 

A dica que irei mostrar é uma função que adiciona zeros a esquerda de um número. Esta função pode ser bastante utilizada em aplicativos de banco de dados, onde o campo código que possui três casas se não chegar até o valor 100, os seus valores vão ser preenchidos com zero a esquerda. Por exemplo, se for digitado o valor 2, o campo código irá receber o valor 002.

Veja como funciona

No form adicione um componente button e um componente edit. No editor de código, após a seção implementation escreva a seguinte função:

 

function ZeroEsquerda(const I: integer; const Casas: byte): string;

var

  Ch: Char;

begin

  Result := IntToStr(I);

  if Length(Result) > Casas then

  begin

    Ch := '*';

    Result := '';

  end

  else

    Ch := '0';

  while Length(Result) < Casas do

    Result := Ch + Result;

end;

 

No evento OnClick do botão escreva o código abaixo:

 

Edit1.Text := ZeroEsquerda(strtoint(edit1.text), 3);

 

A função possui dois parâmetros: o primeiro identifica o local que será adicionado zero a esquerda, o segundo indica quantas casas terá o valor, que no nosso exemplo é três. Execute a aplicação, digite 1 no edit, clique no botão. A propriedade Text do Edit será alterada para 001.