Duda rapida sobre Locate

[jhonny]

Bueno, disculpa la intromisión anterior pues la cosa no resulto... pero así:

Código Delphi [-]
 i:=0; 
 Repeat 
    i:=i+1; 
 until not (cds.Locate('Numero', i, []));  
 Resultado:=i;

tal y cual como tu la habías planteado hice la prueba con una tabla en memoria y me funciona perfectamente.

P.D: No sera que en realidad le falta el 1 a tu tabla?

[jhonny]

Otra manera de hacerlo es... aunque como ya te he dicho anteriormente la tuya funciona a la perfección:

Código Delphi [-]
  i := 1;
  while (RxMemoryData1.Locate('Numero', i, [])) do
  begin
    inc(i);
  end;
  Result := i;

[yusnerqui]

Hola
Suponiendo que la tabla se llame Tabla1 y el campo numerico se llame codigo yo usaría un SQL del tipo:

Código SQL [-]
SELECT min(t1.codigo) AS Minimo
FROM tabla1 AS t1
WHERE (select codigo from tabla1 as t2  where t2.codigo= t1.codigo+1) Is Null;

Esto me daría el menor número sin susesor inmediato, pues ya se que el menor número que no está en la tabla es la respuesta de esta query mas 1.

Espero sirva de algo.

Saludos

[Bicholoco]

Empezado por jhonny

tal y cual como tu la habías planteado hice la prueba con una tabla en memoria y me funciona perfectamente.

P.D: No sera que en realidad le falta el 1 a tu tabla?

Pues en realidad sí que tiene un 1. Por eso me vuelvo un poquillo loco. Es más, como nunca me encuentra el 1, al final me llena la tabla de unos.

Seguiré investigando a ver lo que puede ser. Gracias.