Separar String

[Guest Bianca]

Eu gostaria de fazer com que no campo que o usuário digitou, se ele não preencheu todos os digitos necessários, completar à esquerda, com '0'. Como faço?

OBS: é uma mascara no formato '_____/____'

[Arlon]

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 idêntifica 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. 

Fonte: Clube Delphi - www.clubedelphi.net