Function StrZero(const AValue: integer; ALength: integer): string;
var
base : string;
begin
base := '%.'+IntToStr(ALength)+'d';
result := Format(base,[AValue]);
end;
Mostrando postagens com marcador Adicionando zeros a esquerda. Mostrar todas as postagens
Mostrando postagens com marcador Adicionando zeros a esquerda. Mostrar todas as postagens
quarta-feira, 4 de novembro de 2009
Assinar:
Postagens (Atom)
