Hacer un Bucle en Delphi

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

La tabla no, el registro. Y eso es lo que intento decir que se suele hacer utilizando transacciones.

[webmasterplc]

Estoy viendo que aunque le coloque el campo como clave principal permite repetir ragistros por ejemplo el 135 dos veces y deberia darme un error

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

Pues no debes estar haciendolo bien.
Si has puesto el campo como clave principal única y tiene un índice único (cosa automática si es Clave Primaria) no te dejará introducir repetidos.

[webmasterplc]

Estoy usando la conculta de olbeub solo le agregue algo a lado de los parentesis (max (idorden) as idorden)

Código Delphi [-]
 SQL.Add('MAX(IDORDEN) as idorden');

y ademas ya logue que no me repita registros desde la bases de datos pero cuando lo consigue repetido me da un error y listo me gustaria es que si consigue ese registro repetido linpie la consulta y velva a ejecutarla y luego que no este repetido continue el procedimiento aca coloco un trozo de 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;
       Data.orden.FieldByname('presupuesto').AsString := presupuesto.LookupValue;
       Data.ejecucion.FieldByname('presupuesto').AsString := presupuesto.LookupValue;

[Casimiro Noteví]

Empezado por webmasterplc;392006[..

me da un error y listo[..]

¿Y el error es... ?

Amigo, no olvides nuestra guía de estilo, gracias.