Hi,

Having a problem with TEDTable.OnFilterRecord.
I'm migrating from DBISAM -> ELEVATEDB. Application makes use of OnFilterRecord in many places in app.

case:
 Table.OnFilterRecord := SomeEvent()
 Table.First;
 while not Table.EOF do
 begin
    // -- something
    Table.Next;
 end.

 procedure SomeEvent()
 begin
    Accept := Table.FieldByName('F1').AsInteger > 1;
 end;

Issue: Once the last record is reached in loop EOF never becomes TRUE, it keeps looping infinitely.

Help!!!!

Praveen A B
Have A Nice Day.

Praveen,

<< Having a problem with TEDTable.OnFilterRecord.
I'm migrating from DBISAM -> ELEVATEDB. Application makes use of
OnFilterRecord in many places in app. >>

Please don't re-post questions that you've sent via email.   Please see my
response via email - I'm still trying to reproduce the issue.

--
Tim Young
Elevate Software
www.elevatesoft.com

"Praveen" <praveenb@tpt.com> wrote in message
news:50ECC94A-054D-4FA1-B30C-B53326F359E0@news.elevatesoft.com...
> Hi,
>
> Having a problem with TEDTable.OnFilterRecord.
> I'm migrating from DBISAM -> ELEVATEDB. Application makes use of
> OnFilterRecord in many places in app.
>
> case:
>  Table.OnFilterRecord := SomeEvent()
>  Table.First;
>  while not Table.EOF do
>  begin
>     // -- something
>     Table.Next;
>  end.
>
>  procedure SomeEvent()
>  begin
>     Accept := Table.FieldByName('F1').AsInteger > 1;
>  end;
>
> Issue: Once the last record is reached in loop EOF never becomes TRUE, it
> keeps looping infinitely.
>
> Help!!!!
>
> Praveen A B
> Have A Nice Day.

We have several instances where this happens as well when using the BDE.
Probably due to some table or field event.

for i := 1 to Table.Recordcount do
begin
 Table.RecNo := i;
 ...
end;



>