I have feared, that you say this :-) The problem is, I can't reproduce it. I
have already a test-app, but there works the locate-method correctly. But in my
main-app, I get alway in the endless loop and since hours I try to find the
error, but no luck. Therefore I thought someone could explain me, what happens
in the GetFinalResult-procedure, so that I get an idea where the error could be.
One further detail, this only happens, when the dataset is ordered by the
lastname. When it is ordered by another column, all works fine.

BTW: Have you got my last test-app concerning the problem with last-method ?


Guido

Jason Wharton wrote:

> I would like a sample app to demonstrate this for me.
> Something is preventing it from getting to Eof somehow.
>
> Jason Wharton
> CPS - Mesa AZ
> http://www.ibobjects.com
>
> ----- Original Message -----
> From: <guido.klapperich@...>
> To: "IBObjects" <IBObjects@yahoogroups.com>
> Sent: Wednesday, November 07, 2001 2:12 PM
> Subject: [IBO] Endless loop in GetFinalResult
>
> > I have a table contacts and when I do locate on the column lastname, I
> > come to an endless loop. The cursor jumps wild across the dataset and I
> > have to terminate the process. After some debugging, I have found where
> > the endless loop starts.
> > In line 1201 in IBA_BDataset.IMP: GetFinalResult( LookupKeyForFields )
> > And the GetFinalResult-procedure never terminates. Here is the procedure
> >
> > procedure GetFinalResult( AFunct: TIB_DataFunction );
> > begin
> > Result := AFunct;
> > if not Result and HaveFromCursor and ( FAGen = FetchingAbortedGen )
> > then
> > begin
> > repeat
> > FLocateCursor.Next;
> > if FAGen <> FetchingAbortedGen then Break;
> > if FLocateCursor.Eof then Break;
> > Self.KeyFields.RowData := FLocateCursor.Fields.RowData;
> > Result := AFunct;
> > if FAGen <> FetchingAbortedGen then Break;
> > until Result;
> > end;
> > end;
> >
> > Can anybody help me understanding what the procedure is doing ?
> >
> > Guido
>
>
> ___________________________________________________________________________
> IB Objects - direct, complete, custom connectivity to Firebird or InterBase
> without the need for BDE, ODBC or any other layer.
> ___________________________________________________________________________
> http://www.ibobjects.com - your IBO community resource for Tech Info papers,
> keyword-searchable FAQ, community code contributions and more !
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/