[firebase-br] RES: Pegar Código

[Alexander Machado]

Desejo excluir meu cadastro.

Em 30 de julho de 2012 14:46, renato wulf jr <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
>