Browse Source

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

git-svn-id: trunk@38553 -
michael 7 years ago
parent
commit
efa950a021
1 changed files with 2 additions and 2 deletions
  1. 2 2
      packages/fcl-db/src/base/bufdataset.pas

+ 2 - 2
packages/fcl-db/src/base/bufdataset.pas

@@ -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;