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