unit ZDbcInterbase6Statement, seems like a bug

[Fr0sT]

unit ZDbcInterbase6Statement contains several fragments of this code:

Code: Select all

    if (FStatementType in [stSelect, stExecProc])
      and (FResultXSQLDA.GetFieldCount <> 0) then
      if not Assigned(LastResultSet) then
        LastResultSet := TZInterbase6XSQLDAResultSet.Create(Self, SQL,
          FStmtHandle, FResultXSQLDA, CachedLob, FStatementType)
    else
      LastResultSet := nil;

Indentation and common sense tells that it should be

Code: Select all

    if (FStatementType in [stSelect, stExecProc])
      and (FResultXSQLDA.GetFieldCount <> 0) then
      if not Assigned(LastResultSet) then
        LastResultSet := TZInterbase6XSQLDAResultSet.Create(Self, SQL,
          FStmtHandle, FResultXSQLDA, CachedLob, FStatementType)
      else // !
    else
      LastResultSet := nil;