Zeoslib Portal

Posted: **04.04.2016, 17:09**

I am doing some updates on some old D5 stuff with SQLite3 so have to use Zeos 6.

This is not working as expected.
..Click Next until the Last File is in use.
....Click Next again and it displays the Last File again. // Surely it should have be at the last File after the Last Next??
......Click Next and then it will go to the First File in the DB.

Code: Select all

procedure TfrmMain.btnNextClick(Sender: TObject);
begin
  if dm.tblFiles.EOF then
    dm.tblFiles.First else
    dm.tblFiles.Next;
end;

Is it me or is this the correct behavior?
It works similarly for the Prior button too.
How do I remove the need for that second click at the end?

Posted: **04.04.2016, 21:22**

Hello Bob,

this is really Delphi stuff. EOF is only set if you try to browse behind the last record. So your procedure should look something like this:

Code: Select all

procedure TfrmMain.btnNextClick(Sender: TObject);
begin
  dm.tblFiles.Next;
  if dm.tblFiles.EOF then
    dm.tblFiles.First;
end;

Best regards,

Jan

Posted: **06.04.2016, 00:15**

Awesome, thanks. Had not thought of trying that, must be getting older than I thought.

Posted: **07.04.2016, 15:42**

Naah - everybody has moments where one just doesn't see the easy and obvious solution. I had it too...

Zeoslib Portal

EOF / BOF not really End / Start

EOF / BOF not really End / Start

Re: EOF / BOF not really End / Start

Re: EOF / BOF not really End / Start

Re: EOF / BOF not really End / Start