ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/runtime/IBExtract.pas

Comparing ibx/trunk/runtime/IBExtract.pas (file contents):
Revision 139 by tony, Wed Jan 24 16:16:29 2018 UTC vs.
Revision 140 by tony, Wed Jan 24 16:31:11 2018 UTC

#	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