Asignar numero incremental

[Caren]

Bueno Casimiro y eso con que programa se hace, lo desconozco totalmente y siento mucho esta situacion, no me podrias asesorar un poco?
Veo la imagen pero no ningun nombre que me identifique el programa.
Reitero mis disculpas y muchas gracias por tu atencion. Intwntare por todos los medios no volver a molestar en el foro.

[Neftali [Germán.Estévez]]

Si le das al botón de RESPONDER que hay debajo de este mensaje, te aparece el editor donde se escribe el mensaje. A la parte derecha del editor junto a donde a aparecen los iconos está el botón para añadir TAG's.

[Casimiro Notevi]

Empezado por Caren

Intwntare por todos los medios no volver a molestar en el foro.

No has molestado. Sólo tratamos de explicarte cómo "resaltar" el código fuente.

Unicamente debes seleccionar con el ratón, el código que has puesto.
Cuando está seleccionado, le pinchas en el icono, tal y como indica la imagen de ejemplo que puse antes.
Y no hay más

[[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...