[firebase-br] RES: Pegar Código

[Carlos H. Cantu]

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