fbpx

Insere Zeros à frente de uma string

Função que insere Zeros à frente de uma string em Delphi

function StrZero(Zeros:string;Quant:integer):String;
var
I,Tamanho:integer;
aux: string;
begin
aux := zeros;
Tamanho := length(ZEROS);
ZEROS:=”;
for I:=1 to quant-tamanho do
ZEROS:=ZEROS + ‘0’;
aux := zeros + aux;
StrZero := aux;
end;

Compartilhe esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.