Remove os zeros a frente de um valor
Compartilhe :

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]

Compartilhe :

Posts Similares