Delphi dicas

Fazer um contador no interbase

//Exemplo de uma forma de fazer um contador no Interbase / Paradox com SQL

//exemplo em um table, tambem pode ser em uma Query ou ClienteDataset

//Coloque o comando no evento OnNewRecord do table



procedure TDados.CDClientesNewRecord(DataSet: TDataSet);

begin

        Query1.Close;

        Query1.SQL.Clear;

        Query1.SQL.ADD('SELECT MAX(CODIGO) FROM CLIENTES');

        Query1.Open;

        TableClienteCODIGO.Value := Query1.FieldByName('MAX').AsInteger + 1;

end;

por : Rene De Oliveira Vicente