Campo auto-incremento no ClientDataSet

Campo auto-incremento no ClientDataSet

  dezembro 26, 2014    Anônimo

---

Exemplo simples de auto incremento sem conexão com banco de dados:

procedure TFAutoInc.DoCreate;
begin
  inherited;
  with CDSTestes.FieldDefs do begin
    Add('CODIGO_MAX', ftAutoInc,  0, False);
    Add('DESCRICAO_100'  ,ftString ,  100, False);
  end;
  CDSTestes.CreateDataSet;
  CDSTestes.Open;
end;

Exemplo: Download do exemplo