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

10
components/tparadoxdataset/paradoxds.pas
View File

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