paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 02:50:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #33449 (BufDataset.FileName type change to TFileName)

Browse Source 
git-svn-id: trunk@38553 -
This commit is contained in:
michael 2018-03-17 17:50:40 +00:00
parent 5c1d8433f7
commit efa950a021
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/base/bufdataset.pas
View File

@ -495,7 +495,7 @@ type
function GetCurrentIndexBuf: TBufIndex;
procedure InitUserIndexes;
private
FFileName: string;
FFileName: TFileName;
FReadFromFile : boolean;
FFileStream : TFileStream;
FDatasetReader : TDataPacketReader;
@ -654,7 +654,7 @@ type
property ReadOnly : Boolean read FReadOnly write SetReadOnly default false;
property ManualMergeChangeLog : Boolean read FManualMergeChangeLog write FManualMergeChangeLog default False;
published
property FileName : string read FFileName write FFileName;
property FileName : TFileName read FFileName write FFileName;
property PacketRecords : Integer read FPacketRecords write SetPacketRecords default 10;
property OnUpdateError: TResolverErrorEvent read FOnUpdateError write SetOnUpdateError;
property IndexDefs : TIndexDefs read GetIndexDefs;