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

* fcld-db: oracle: cosmetic

Browse Source 
git-svn-id: trunk@28224 -
This commit is contained in:
reiniero 2014-07-15 11:35:29 +00:00
parent 0ebd33180e
commit 0cb92962e3
1 changed files with 6 additions and 7 deletions

13
packages/fcl-db/src/sqldb/oracle/oracleconnection.pp
View File

@ -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 '+