paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 04:26:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

sqliteds: * Create SQLList on demand

Browse Source 
git-svn-id: trunk@15134 -
This commit is contained in:
blikblum 2010-04-11 01:09:09 +00:00
parent 4842a5fd1c
commit 7bad77aff8
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/fcl-db/src/sqlite/customsqliteds.pas
View File

@ -116,6 +116,7 @@ type
FStoreDefs: Boolean; FStoreDefs: Boolean;
procedure CopyCacheToItem(AItem: PDataRecord); procedure CopyCacheToItem(AItem: PDataRecord);
function GetIndexFields(Value: Integer): TField; function GetIndexFields(Value: Integer): TField;
function GetSQLList: TStrings;
procedure SetMasterIndexValue; procedure SetMasterIndexValue;
procedure SetOptions(const AValue: TSqliteOptions); procedure SetOptions(const AValue: TSqliteOptions);
procedure UpdateCalcFieldList; procedure UpdateCalcFieldList;
@ -246,7 +247,7 @@ type
property RowsAffected: Integer read GetRowsAffected; property RowsAffected: Integer read GetRowsAffected;
property ReturnCode: Integer read FReturnCode; property ReturnCode: Integer read FReturnCode;
property SqliteHandle: Pointer read FSqliteHandle; property SqliteHandle: Pointer read FSqliteHandle;
property SQLList:TStrings read FSQLList; property SQLList: TStrings read GetSQLList;
published published
property AutoIncrementKey: Boolean read FAutoIncrementKey write FAutoIncrementKey default False; property AutoIncrementKey: Boolean read FAutoIncrementKey write FAutoIncrementKey default False;
property IndexFieldNames: string read FIndexFieldNames write FIndexFieldNames; property IndexFieldNames: string read FIndexFieldNames write FIndexFieldNames;
@ -467,7 +468,6 @@ begin
FUpdatedItems := TFPList.Create; FUpdatedItems := TFPList.Create;
FAddedItems := TFPList.Create; FAddedItems := TFPList.Create;
FDeletedItems := TFPList.Create; FDeletedItems := TFPList.Create;
FSQLList := TStringList.Create;
inherited Create(AOwner); inherited Create(AOwner);
end; end;
@ -531,8 +531,8 @@ begin
FAddedItems.Destroy; FAddedItems.Destroy;
FDeletedItems.Destroy; FDeletedItems.Destroy;
FMasterLink.Destroy; FMasterLink.Destroy;
FSQLList.Destroy;
//lists created on demand //lists created on demand
FSQLList.Free;
FIndexFieldList.Free; FIndexFieldList.Free;
FCalcFieldList.Free; FCalcFieldList.Free;
// dispose special items // dispose special items
@ -601,6 +601,13 @@ begin
Result := TField(FIndexFieldList[Value]); Result := TField(FIndexFieldList[Value]);
end; end;
function TCustomSqliteDataset.GetSQLList: TStrings;
begin
if FSQLList = nil then
FSQLList := TStringList.Create;
Result := FSQLList;
end;
procedure TCustomSqliteDataset.SetMasterIndexValue; procedure TCustomSqliteDataset.SetMasterIndexValue;
var var
i: Integer; i: Integer;