Modifiquei o a linha abaixo do else por
begin
b := Value;
a := Trunc(b*intP);
Result := LFill(a, Size, False, Caracter);
end;
onde b é real e a é um inteiro.
Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.