Asignar numero incremental

[[maeyanes]]

Hola...

Otra forma es que uses las etiquetas [delphi] y [/delphi] al inicio y al final del código:

[delphi]
procedure TAltaClientes.JvHTButton5Click(Sender: TObject);
var
  Ultimo : Integer;

begin
  Ultimo := ConfigurarNumeros.ADONumerosCodClientes.Value + 1;
  ADOClientes.Open;
  ADOClientes.Insert;
  ADOClientes.FieldByName('CodCliente').Value := Ultimo;
  ADOClientes.Post;
  ConfigurarNumeros.ADONumeros.Edit;
  ConfigurarNumeros.ADONumerosCodClientes.Value := Ultimo;
  ConfigurarNumeros.ADONumeros.Post;
end;
[/delphi]

El cual se verá:

Código Delphi [-]
procedure TAltaClientes.JvHTButton5Click(Sender: TObject);
var
  Ultimo : Integer;

begin
  Ultimo := ConfigurarNumeros.ADONumerosCodClientes.Value + 1;
  ADOClientes.Open;
  ADOClientes.Insert;
  ADOClientes.FieldByName('CodCliente').Value := Ultimo;
  ADOClientes.Post;
  ConfigurarNumeros.ADONumeros.Edit;
  ConfigurarNumeros.ADONumerosCodClientes.Value := Ultimo;
  ConfigurarNumeros.ADONumeros.Post;
end;

Saludos...