fbpx

Remove os zeros a frente de um valor

Função que remove os zeros a frente de um valor em Delphi

function RemoveZeros(S: string): string;
var
I, J : Integer;
begin
I := Length(S);
while (I > 0) and (S[I] <= ‘ ‘) do
begin
Dec(I);
end;
J := 1;
while (J < I) and ((S[J] <= ‘ ‘) or (S[J] = ‘0’)) do
begin
Inc(J);
end;
Result := Copy(S, J, (I-J)+1);
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.