Buscar

Colocar zero a esquerda de um inteiro e retornar uma string

Código

Function colocazero(num: Integer; qtd: Integer): String;
var
  zeros, cont: Integer;
  numero: String;
begin
  zeros := qtd - length(IntToStr(num));
  cont := 0;
  numero:= IntToStr(num);
  while cont < zeros do
    begin
      numero := '0'+numero;
      cont := cont+1;
    end;
Result := numero;
end;
 

Publicidade

Vote na dica




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


Detalhes da dica

Categoria: Componentes
Adicionada dia: 18/11/06
Por: Robson Gonçalves Pinheiro
Visualizada: 3658 vezes

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