From 0cb92962e3d898d50710028f7eb9d7f0c331e093 Mon Sep 17 00:00:00 2001 From: reiniero Date: Tue, 15 Jul 2014 11:35:29 +0000 Subject: [PATCH] * fcld-db: oracle: cosmetic git-svn-id: trunk@28224 - --- .../fcl-db/src/sqldb/oracle/oracleconnection.pp | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/packages/fcl-db/src/sqldb/oracle/oracleconnection.pp b/packages/fcl-db/src/sqldb/oracle/oracleconnection.pp index 4b2be26551..e6a069bb1a 100644 --- a/packages/fcl-db/src/sqldb/oracle/oracleconnection.pp +++ b/packages/fcl-db/src/sqldb/oracle/oracleconnection.pp @@ -335,7 +335,6 @@ procedure TOracleConnection.HandleError; var errcode : sb4; buf : array[0..1023] of char; E : EOraDatabaseError; - begin OCIErrorGet(FOciError,1,nil,errcode,@buf[0],1024,OCI_HTYPE_ERROR); @@ -476,8 +475,8 @@ end; function TOracleConnection.AllocateCursorHandle: TSQLCursor; -var Cursor : TOracleCursor; - +var + Cursor : TOracleCursor; begin Cursor:=TOracleCursor.Create; Result := cursor; @@ -1102,8 +1101,8 @@ begin begin Name := trim(qry.fields[0].asstring); Fields := trim(qry.Fields[1].asstring); - If UpperCase(qry.fields[2].asString)='P' then options := options + [ixPrimary]; - If UpperCase(qry.fields[2].asString)='U' then options := options + [ixUnique]; + If UpperCase(qry.fields[2].asstring)='P' then options := options + [ixPrimary]; + If UpperCase(qry.fields[2].asstring)='U' then options := options + [ixUnique]; qry.next; while (name = qry.fields[0].asstring) and (not qry.eof) do begin @@ -1117,8 +1116,8 @@ end; function TOracleConnection.GetSchemaInfoSQL(SchemaType: TSchemaType; SchemaObjectName, SchemaPattern: string): string; -var s : string; - +var + s : string; begin case SchemaType of stTables : s := 'SELECT '+