paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 21:20:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Removed unused SetIndexDefs

Browse Source 
* IndexDefs should not be passed as var to UpdateIndexDefs

git-svn-id: trunk@9107 -
This commit is contained in:
joost 2007-11-03 16:08:34 +00:00
parent 6ac5ed6a47
commit 53b6757c6e
5 changed files with 12 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/sqldb/interbase/ibconnection.pp
View File

@ -91,7 +91,7 @@ type
function StartdbTransaction(trans : TSQLHandle; AParams : string) : boolean; override;
procedure CommitRetaining(trans : TSQLHandle); override;
procedure RollBackRetaining(trans : TSQLHandle); override;
procedure UpdateIndexDefs(var IndexDefs : TIndexDefs;TableName : string); override;
procedure UpdateIndexDefs(IndexDefs : TIndexDefs;TableName : string); override;
function GetSchemaInfoSQL(SchemaType : TSchemaType; SchemaObjectName, SchemaPattern : string) : string; override;
procedure LoadBlobIntoBuffer(FieldDef: TFieldDef;ABlobBuf: PBufBlobField; cursor: TSQLCursor; ATransaction : TSQLTransaction); override;
function RowsAffected(cursor: TSQLCursor): TRowsCount; override;
@ -995,7 +995,7 @@ begin
end;
procedure TIBConnection.UpdateIndexDefs(var IndexDefs : TIndexDefs;TableName : string);
procedure TIBConnection.UpdateIndexDefs(IndexDefs : TIndexDefs;TableName : string);
var qry : TSQLQuery;

4
packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
View File

@ -116,7 +116,7 @@ Type
procedure CommitRetaining(trans : TSQLHandle); override;
procedure RollBackRetaining(trans : TSQLHandle); override;
function GetSchemaInfoSQL(SchemaType : TSchemaType; SchemaObjectName, SchemaPattern : string) : string; override;
procedure UpdateIndexDefs(var IndexDefs : TIndexDefs;TableName : string); override;
procedure UpdateIndexDefs(IndexDefs : TIndexDefs;TableName : string); override;
function RowsAffected(cursor: TSQLCursor): TRowsCount; override;
Public
constructor Create(AOwner : TComponent); override;
@ -825,7 +825,7 @@ begin
Result := True;
end;
procedure TConnectionName.UpdateIndexDefs(var IndexDefs : TIndexDefs;TableName : string);
procedure TConnectionName.UpdateIndexDefs(IndexDefs : TIndexDefs;TableName : string);
var qry : TSQLQuery;

4
packages/fcl-db/src/sqldb/odbc/odbcconn.pas
View File

@ -102,7 +102,7 @@ type
{$ENDIF}
procedure FreeFldBuffers(cursor:TSQLCursor); override;
// - UpdateIndexDefs
procedure UpdateIndexDefs(var IndexDefs:TIndexDefs; TableName:string); override;
procedure UpdateIndexDefs(IndexDefs:TIndexDefs; TableName:string); override;
// - Schema info
function GetSchemaInfoSQL(SchemaType:TSchemaType; SchemaObjectName, SchemaObjectPattern:string):string; override;
@ -990,7 +990,7 @@ begin
end;
end;
procedure TODBCConnection.UpdateIndexDefs(var IndexDefs: TIndexDefs; TableName: string);
procedure TODBCConnection.UpdateIndexDefs(IndexDefs: TIndexDefs; TableName: string);
var
StmtHandle:SQLHSTMT;
Res:SQLRETURN;

4
packages/fcl-db/src/sqldb/postgres/pqconnection.pp
View File

@ -62,7 +62,7 @@ type
procedure CommitRetaining(trans : TSQLHandle); override;
function StartdbTransaction(trans : TSQLHandle; AParams : string) : boolean; override;
procedure RollBackRetaining(trans : TSQLHandle); override;
procedure UpdateIndexDefs(var IndexDefs : TIndexDefs;TableName : string); override;
procedure UpdateIndexDefs(IndexDefs : TIndexDefs;TableName : string); override;
function GetSchemaInfoSQL(SchemaType : TSchemaType; SchemaObjectName, SchemaPattern : string) : string; override;
procedure LoadBlobIntoBuffer(FieldDef: TFieldDef;ABlobBuf: PBufBlobField; cursor: TSQLCursor;ATransaction : TSQLTransaction); override;
function RowsAffected(cursor: TSQLCursor): TRowsCount; override;
@ -764,7 +764,7 @@ begin
end;
end;
procedure TPQConnection.UpdateIndexDefs(var IndexDefs : TIndexDefs;TableName : string);
procedure TPQConnection.UpdateIndexDefs(IndexDefs : TIndexDefs;TableName : string);
var qry : TSQLQuery;

15
packages/fcl-db/src/sqldb/sqldb.pp
View File

@ -104,7 +104,7 @@ type
function StartdbTransaction(trans : TSQLHandle; aParams : string) : boolean; virtual; abstract;
procedure CommitRetaining(trans : TSQLHandle); virtual; abstract;
procedure RollBackRetaining(trans : TSQLHandle); virtual; abstract;
procedure UpdateIndexDefs(var IndexDefs : TIndexDefs;TableName : string); virtual;
procedure UpdateIndexDefs(IndexDefs : TIndexDefs;TableName : string); virtual;
function GetSchemaInfoSQL(SchemaType : TSchemaType; SchemaObjectName, SchemaPattern : string) : string; virtual;
procedure LoadBlobIntoBuffer(FieldDef: TFieldDef;ABlobBuf: PBufBlobField; cursor: TSQLCursor; ATransaction : TSQLTransaction); virtual; abstract;
function RowsAffected(cursor: TSQLCursor): TRowsCount; virtual;
@ -203,7 +203,6 @@ type
procedure InitUpdates(ASQL : string);
function GetIndexDefs : TIndexDefs;
function GetStatementType : TStatementType;
procedure SetIndexDefs(AValue : TIndexDefs);
procedure SetReadOnly(AValue : Boolean);
procedure SetParseSQL(AValue : Boolean);
procedure SetUsePrimaryKeyAsKey(AValue : Boolean);
@ -405,7 +404,7 @@ type
function StartdbTransaction(trans : TSQLHandle; aParams : string) : boolean; override;
procedure CommitRetaining(trans : TSQLHandle); override;
procedure RollBackRetaining(trans : TSQLHandle); override;
procedure UpdateIndexDefs(var IndexDefs : TIndexDefs;TableName : string); override;
procedure UpdateIndexDefs(IndexDefs : TIndexDefs;TableName : string); override;
function GetSchemaInfoSQL(SchemaType : TSchemaType; SchemaObjectName, SchemaPattern : string) : string; override;
procedure LoadBlobIntoBuffer(FieldDef: TFieldDef;ABlobBuf: PBufBlobField; cursor: TSQLCursor; ATransaction : TSQLTransaction); override;
Property Proxy : TSQLConnection Read FProxy;
@ -461,7 +460,7 @@ begin
end;
end;
procedure TSQLConnection.UpdateIndexDefs(var IndexDefs : TIndexDefs;TableName : string);
procedure TSQLConnection.UpdateIndexDefs(IndexDefs : TIndexDefs;TableName : string);
begin
// Empty abstract
@ -1421,12 +1420,6 @@ begin
Result := FIndexDefs;
end;
procedure TCustomSQLQuery.SetIndexDefs(AValue : TIndexDefs);
begin
FIndexDefs := AValue;
end;
procedure TCustomSQLQuery.SetUpdateMode(AValue : TUpdateMode);
begin
@ -1919,7 +1912,7 @@ begin
FProxy.RollBackRetaining(trans);
end;
procedure TSQLConnector.UpdateIndexDefs(var IndexDefs: TIndexDefs;
procedure TSQLConnector.UpdateIndexDefs(IndexDefs: TIndexDefs;
TableName: string);
begin
CheckProxy;