ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/IBExtract.pas
(Generate patch)

Comparing ibx/trunk/runtime/IBExtract.pas (file contents):
Revision 118 by tony, Mon Jan 22 13:58:14 2018 UTC vs.
Revision 140 by tony, Wed Jan 24 16:31:11 2018 UTC

# Line 468 | Line 468 | const
468   var
469    Collation, CharSetId : integer;
470          i : integer;
471 <  ColList, Column, Constraint : String;
471 >  Column, Constraint : String;
472    SubType : integer;
473    IntChar : integer;
474    qryTables, qryPrecision, qryConstraints, qryRelConstraints, qryGenerators : TIBSQL;
# Line 478 | Line 478 | var
478    TableType: integer;
479   begin
480    Result := true;
481 –  ColList := '';
481    IntChar := 0;
482    ValidRelation := false;
483  
# Line 787 | Line 786 | var
786    qryViews, qryColumns : TIBSQL;
787    RelationName, ColList : String;
788   begin
789 +  ColList := '';
790    qryViews := TIBSQL.Create(FDatabase);
791    qryColumns := TIBSQL.Create(FDatabase);
792    try
# Line 937 | Line 937 | const
937   var separator: string;
938      i: integer;
939  
940 –  function GetMask(Bits: integer): byte;
941 –  begin
942 –    case Bits of
943 –      1: Result := $01;
944 –      2: Result := $03;
945 –      3: Result := $07;
946 –    end;
947 –  end;
948 –
940    function GetDDLEvent(Phase: TTriggerPhase; ObjectName: string): string;
941    begin
942      Result := '';
# Line 994 | Line 985 | begin
985        Result += 'ANY DDL STATEMENT'
986      else
987        repeat
988 <        if TypeID and GetMask(DDLTriggers[i].Bits) <> 0 then
989 <        begin
999 <          if (DDLTriggers[i].Bits > 0) and (TypeID and $01 <> 0) then
1000 <           Result += GetDDLEvent(DDLTriggers[i].Bit1,DDLTriggers[i].ObjectName);
988 >        if (DDLTriggers[i].Bits > 0) and (TypeID and $01 <> 0) then
989 >         Result += GetDDLEvent(DDLTriggers[i].Bit1,DDLTriggers[i].ObjectName);
990  
991 <          if (DDLTriggers[i].Bits > 1) and (TypeID and $02 <> 0) then
992 <            Result += GetDDLEvent(DDLTriggers[i].Bit2,DDLTriggers[i].ObjectName);
991 >        if (DDLTriggers[i].Bits > 1) and (TypeID and $02 <> 0) then
992 >          Result += GetDDLEvent(DDLTriggers[i].Bit2,DDLTriggers[i].ObjectName);
993  
994 <          if (DDLTriggers[i].Bits > 2) and (TypeID and $04 <> 0) then
995 <            Result += GetDDLEvent(DDLTriggers[i].Bit3,DDLTriggers[i].ObjectName);
1007 <        end;
994 >        if (DDLTriggers[i].Bits > 2) and (TypeID and $04 <> 0) then
995 >          Result += GetDDLEvent(DDLTriggers[i].Bit3,DDLTriggers[i].ObjectName);
996          TypeID := TypeID shr DDLTriggers[i].Bits;
997          Inc(i);
998        until TypeID = 0;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines