[firebase-br] RES: Pegar Código
Carlos H. Cantu
listas em warmboot.com.br
Seg Jul 30 20:56:59 -03 2012
Leia o rodapé de qq mensagem enviada para a lista.
[]s
Carlos H. Cantu
www.FireBase.com.br - www.firebirdnews.org
www.warmboot.com.br - blog.firebase.com.br
AM> Desejo excluir meu cadastro.
AM> Em 30 de julho de 2012 14:46, renato wulf jr
AM> <renatus em centris.com.br>escreveu:
>> João,
>>
>> Se me permite, no lugar onde vc usa o while pra definir a quantidade de
>> zeros, utilize a função StringOfChar.
>>
>> Ex.:
>>
>> StringOfChar('x', 3) = 'xxx'
>>
>>
>> Renato
>>
>> Em 30 de julho de 2012 12:40, João Marcos <unixkiller em gmail.com> escreveu:
>>
>> > Bem, como as minhas chaves são strings, a função abaixo gera o ID e
>> > preenche já com a quantidade de zeros que você queira.
>> > Gero o código antes de inserir, nunca tive problemas.
>> >
>> > function TDM.geraCodigo(AGenerator: string; tam : integer): string;
>> > var
>> > zeros : string;
>> > ct : integer;
>> > begin
>> > ct:=0;
>> >
>> > while ct < tam do
>> > begin
>> > zeros:=zeros+'0';
>> > ct:=ct+1;
>> > end;
>> > with TIBQuery.Create(Application) do
>> > try
>> > DataBase := dbrestaurante;
>> > Transaction := transacao;
>> > SQL.Text := 'select gen_id(' + AGenerator + ', 1) from rdb$database';
>> > Open;
>> > result:=Formatfloat(zeros,Fields[0].AsInteger);
>> > finally
>> > Free;
>> > end;
>> > end;
>> >
>> >
>> ______________________________________________
>> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
>> Para saber como gerenciar/excluir seu cadastro na lista, use:
>> http://www.firebase.com.br/fb/artigo.php?id=1107
>> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>>
AM> ______________________________________________
AM> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
AM> Para saber como gerenciar/excluir seu cadastro na lista, use:
AM> http://www.firebase.com.br/fb/artigo.php?id=1107
AM> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
Mais detalhes sobre a lista de discussão lista