Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

segunda-feira, 1 de outubro de 2012

DELPHI - Função de Preenchimento de Caractere Esquerda

Reações: 
Function PreencheCaracEsq(Str, Carac :String; Qtd : Integer) : String;
var
  i : Integer;
  S : String;
begin
  Carac := Carac[1]; // Pega somente o primeiro caractere enviado
  Result := Str;
  if Length(Str) = Qtd then
    Exit;
  if Length(Str) > Qtd then
  begin
    Result := Copy(Str, 1, Qtd);
    Exit;
  end;
  For I := 1 to Qtd do
  begin
    S := S + Carac;
    if Length(S + Str) = Qtd then
    begin
      Result := S + Str;
      Break;
    End;
  end;
end;

//Uso:

Edit1.Text := PreencheCaracEsq(Edit1.Text, '0', 14);

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer