Buscar

Zeros a esquerda

Código

function ZeroAEsquerda(Numero: string; QtdZero: integer):string;
var I,Tamanho: integer;
    aux, Zeros: string;
Begin
  aux:=Numero;
  Tamanho:=length(Numero);
  ZEROS:='';
  for I:=1 to QtdZero-tamanho do
  ZEROS:=ZEROS+'0';
  Result:=zeros+aux;
End;

Publicidade

Vote na dica




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

Detalhes da dica

Categoria: Forms
Adicionada dia: 26/02/10
Por: Walter Lucchesi Dias
Visualizada: 2936 vezes

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