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

TParadoxDataset: Less hints and warnings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8130 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2021-10-27 17:49:22 +00:00
parent abdec8801e
commit 19cbd53aa1
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tparadoxdataset/demo/paradox_demo.lpi
View File

@ -15,7 +15,6 @@
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
@ -26,7 +25,6 @@
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0"/>
</RunParams>
<RequiredPackages Count="3">
<Item1>

10
components/tparadoxdataset/paradoxds.pas
View File

@ -7,6 +7,10 @@ unit paradoxds;
{$mode objfpc}{$H+}
{$IF FPC_FullVersion >= 30200}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
{$IFEND}
interface
uses
@ -197,14 +201,14 @@ type
procedure InternalGotoBookmark(ABookmark: Pointer); override;
// procedure InternalHandleException; override;
procedure InternalInitFieldDefs; override;
procedure InternalInitRecord(Buffer: PChar); override;
procedure InternalInitRecord({%H-}Buffer: PChar); override;
procedure InternalLast; override;
procedure InternalOpen; override;
procedure InternalPost; override;
procedure InternalSetToRecord(Buffer: PChar); override;
function IsCursorOpen: Boolean; override;
procedure ParseFilter(const AFilter: string);
procedure SetBookmarkData(Buffer: PChar; Data: Pointer); override;
procedure SetBookmarkData({%H-}Buffer: PChar; {%H-}Data: Pointer); override;
procedure SetBookmarkFlag(Buffer: PChar; Value: TBookmarkFlag); override;
procedure SetFiltered(Value: Boolean); override;
procedure SetFilterText(const Value: String); override;
@ -304,7 +308,7 @@ var
header: PAnsiChar;
idx: Byte;
loc: Integer;
s: String;
s: String = '';
blobInfo: TPxBlobInfo;
blobIndex: TPxBlobIndex;
begin