unit ZDbcInterbase6Statement, seems like a bug

The BETA tester's forum for ZeosLib 7.2 Report problems. Ask for help, post proposals for the new version and Zeoslib 7.2 features here. This is a forum that will be edited once the 7.2.x version goes into RC/stable!!

My personal intention for 7.2 is to speed up the internals as optimal a possible for all IDE's. Hope you can help?! Have fun with testing 7.2
Fr0sT
Junior Boarder
Junior Boarder
Posts: 33
Joined: 08.05.2014, 12:08

unit ZDbcInterbase6Statement, seems like a bug

Postby Fr0sT » 13.09.2017, 12:20

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;

Return to “ZeosLib 7.2 Betatest Forum”

Who is online

Users browsing this forum: No registered users and 1 guest