Buscar

Formatar o tamanho de um n° incluindo zeros a esquerda

Código

As vezes é necessario informar o valor com uma determinada quantidade de caracteres, nesta função você informa a quantidade de casas que quer e o valor(em string).

formatarTamanhoNumerico(iTamanho: Integer;
  sValor: String): String;
begin
   if (iTamanho > Length(sValor)) then begin
        while(iTamanho > Length(sValor)) do begin
            sValor := '0' + sValor;
        end;
    end;
    Result := sValor;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Arquivos
Adicionada dia: 23/09/08
Por: Kildare Alexandre Pereira Da Silva
Visualizada: 3084 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009