Fórum Gerar Codigo com zeros #480434

Idgrupo = 30
idproduto = 1/

como somar?
30+0,0001
resultado = 30,00001
sendo assim
30,00001 +0,00001= 30,00002

deveria criar uma função
para complementar os zeros a esquerda tanto como a virgula ou ponto
do idproduto

ficaria mais ou menos assim

function ZeroEsquerda(num: string; tamanho: integer): string;
var i, TamAtual : Integer;
begin

Result := num;

TamAtual := tamanho - Length(num);

for i := 1 to TamAtual do

result := '0'+result;

end;


como usar

variavel = Idgrupo + StrToFloat( ZeroEsquerda(idproduto, 4));


variavel = (30,00001)

esta função não implementa o ponto fica ai o exercicio
blz..