paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

TParadoxDataset: Workaround to avoid crash when TParadoxDataset.First is called in a 64-bit application under Win-11/24H2.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9788 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2025-06-30 07:48:46 +00:00
parent d4192904d8
commit f828755ddf
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/tparadoxdataset/paradoxds.pas
View File

@ -630,11 +630,24 @@ begin
ReadBlock;
end;
{
procedure TParadoxDataset.InternalGotoBookmark(ABookmark: Pointer);
begin
if BookmarkValid(ABookmark) then
SetRecNo(PLongWord(ABookmark)^);
end;
}
procedure TParadoxDataset.InternalGotoBookmark(ABookmark: Pointer);
var
bm: LongWord;
begin
if ABookmark <> nil then
begin
bm := PLongWord(ABookmark)^;
if bm <= GetRecordCount then
SetRecNo(bm);
end;
end;
{
procedure TParadoxDataset.InternalHandleException;