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.