Gerar Codigo com zeros

Delphi

27/05/2014

Ola gostaria de gerar um código, Idgrupo = 30 + idproduto = 1 / tem que gerar o código, exemplo: 30.00001 quando chegar no numero 10 ou tem os zeros vão saindo exemplo 30.00010 / 30.00100
Alguém poderia me ajudar ?
Victor Pereira

Victor Pereira

Curtidas 0

Melhor post

Romulo Silva

Romulo Silva

27/05/2014

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..
GOSTEI 1

Mais Respostas

Victor Pereira

Victor Pereira

27/05/2014

Obrigado pela ajuda
GOSTEI 0
Mauricio Rodrigues

Mauricio Rodrigues

27/05/2014

Cria um Generator para evitar duplicidade de id para produto e grupo.

GrupoID=30
ProdutoId=1

Exemplo
Var
NewIdProduto :String;
begin

NewIdProduto:=DsNewOs.DataSet.FieldByName('GrupoId').AsString + FloattoStr(formatfloat('00000', numero do Generator do produto ));

Resultado
NewIdProduto=3000001

ou
DsNewOs.DataSet.FieldByName('ProdutoId').AsString:=DsNewOs.DataSet.FieldByName('GrupoId').AsString + FloattoStr(formatfloat('00000', numero do Generator do produto ));


Resultado
DsNewOs.DataSet.FieldByName('ProdutoId').AsString=3000001
GOSTEI 0
POSTAR