Ir para o conteúdo

Formatar Numeros Com Zeros A Esquerda


Criado por Reverson, Out 16 2010 12:02

Não há respostas para este tópico
  • Por favor, faça o login para responder

#1 Reverson

Reverson
  • Reverson
  • Colaborador
  • 1 Revisões
  • LocalizaçãoPinhalzinho - SP

Revisou 16 outubro 2010 - 12:02

function tbStrZero(const Value, Len: integer): string;
var
I: integer;
begin
Result := IntToStr(Value);
I := Length(Result);
if I < Len then
Result := tbReplChar('0', Len-I) + Result
else if I > Len then
Result := tbReplChar('*', Len);
end;




1 usuário(s) está(ão) lendo este código

1 membro(s), 0 visitante(s) e 0 membros anônimo(s)