Hacer un Bucle en Delphi

[webmasterplc]

Como hago para hacer un bucle donde asignas un número, intentas grabarlo y si da error (porque ya existe) entonces le sumas 1, hasta que no dé error.
el numero lo asigno consultando una base de datos y le sumo uno pero si por error esta repetido que haga el bucle aca coloco un poco del codigo.

Código Delphi [-]
procedure Todespacho.BitBtn1Click(Sender: TObject);
        var
        AccExclusivo:Boolean;
        proximonumero:Integer;
        numero:Integer;
        tord:Real;
        tpart:Real;
        begin
  with Data.sqcaval do
  begin
    Close;
    SQL.Clear;
      SQL.Add('SELECT');
      SQL.Add('MAX(IDORDEN) as idorden');
      SQL.Add(' FROM cartaavaleulalia');
    Open;
    proximonumero := FieldByName('IDORDEN').AsInteger +1;
    numero := 0;
  end;

   begin

       Data.orden.Append;
       Data.mtiva.Append;
       Data.ttrans.Append;
       Data.orden.FieldByname('programa').AsString := programa.LookupValue;
       Data.ejecucion.FieldByname('programa').AsString := programa.LookupValue;

[rgstuamigo]

Me parece que éstas creando muchos hilos para tu misma pregunta...
lee por favor nuestra Guía de estilo...para conocer ciertas reglas del foro.
Saludos...

[Casimiro Noteví]

He unido todos los hilos creados sobre el mismo tema.

[Casimiro Noteví]

Si tienes una tabla con un campo CODIGO que quieras tenerlo numerado y no repetido entonces crea ese campo como índice y único, y si es posible también como clave principal de la tabla

Código SQL [-]
create table tutabla (
  codigo integer not null,
  nombre varchar(64),
  telefono varchar(9),
  primary key (codigo) )

Si no te importa tener números "en blanco" entonces puedes usar un generador, en caso contrario tendrás que controlar tú mismo el número cada vez que se va a crear un registro.

Código Delphi [-]
while true do
begin
  q1.close;
  q1.selectsql.text := 'select max(codigo)+1 from tutabla';
  q1.open;
  iNumero := q1.fields[0].asinteger;
  tudataset.fieldbyname('CODIGO').asinteger = iNumero;
  try
    tudataset.post;
    break;
  except
    //
  end;
end;

Más o menos es así, lo he escrito de memoria y depende de tus componentes, dataset, etc.

[[newtron]]

Y digo yo....

Ya que pareces empeñado en hacerlo calculando el último registro mas uno no sería mejor hacerlo en un "before insert" trigger?