[firebase-br] RES: Pegar Código
Alexander Machado
alex.ric.mac em gmail.com
Seg Jul 30 19:01:52 -03 2012
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
>
Mais detalhes sobre a lista de discussão lista