problemas avance locate

[anubis]

Hola, nose donde esta el problema por mas vueltas que le doy
tengo una tabla en paradox:

tiene de campos:
numerohabitacion numerico clave principal
Codigot numerico (clave secundaria)
Tipodehabitacion cadena 25 longitud (clave secundaria)

los registros van ordenador por numerohabitacion asi que el codigot esta salteado.

el codigo que uso para visualizar todas las habitaciones segun un codigot es este:

Código Delphi [-]
mcamas.tcamas.Open;
 mcamas.tcamas.IndexFieldNames:='Codigot';
 mcamas.tcamas.First;
 cv:=itemindex;
 while mcamas.tcamas.locate('Codigot',cv,[]) do
 begin
 contador1:=mcamas.tcamas.fieldbyname('Numerohabitacion').AsInteger;
 dibujacell;
 mcamas.tcamas.Next;
 end;

al pasar por ahi, hace el while y lo ejecuta a pesar de hacer el next al siguiente registro pero nunca lo hace.

alguna idea ?

[anubis]

Pues me contesto yo solo, quiza por el cansancio y demas....

Código Delphi [-]
 while mcamas.tcamas.locate('Codigot',cv,[]) do

si hago eso siempre se va a quedar ahi, mientras que si lo pongo antes

Código Delphi [-]
mcamas.tcamas.Open;
 mcamas.tcamas.IndexFieldNames:='Codigot';
 mcamas.tcamas.First;
 cv:=itemindex;
  mcamas.tcamas.locate('Codigot',cv,[]);
 while ((mcamas.tcamas.fieldbyname('Codigot').AsInteger)=cv) and (not mcamas.tcamas.Eof) do
 begin
 contador1:=mcamas.tcamas.fieldbyname('Numerohabitacion').AsInteger;
 mcamas.tcamas.Next;
 dibujacell;

 end;
 mcamas.tcamas.Close;

asi si funciona

gracias