Generator

Question

Caros amigos como eu fa�o para trazer para o delphi o valor atual de um generator....

Afarias · Answer

use um componente Query (TIBQuery por exemplo) ::

select gen_id(nome_generator, 0) from rdb$database;

e no delphi::

with IBQuery1 do
try
Open;
ValorGenerator := Fields[0].AsInteger;
finally
Transaction.Commit;
end;

T+

F�rum Generator #38455