problemas avance locate

[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