ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/fbintf/client/FBEvents.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/FBEvents.pas (file contents):
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 217 by tony, Fri Mar 16 10:27:26 2018 UTC

# Line 138 | Line 138 | begin
138      try
139        for i := 0 to FEvents.Count-1 do
140        begin
141 <        EventName := FEvents[i];
141 >        EventName := FEvents[i];
142          EventNames[i] := PAnsiChar(EventName);
143        end;
144  
# Line 246 | Line 246 | end;
246  
247   procedure TFBEvents.SetEvents(EventNames: TStrings);
248   begin
249 +  if (EventNames.Count > 0) and not IsMultiThread then
250 +    IBError(ibxMultiThreadRequired,['Firebird Events Handling']);
251    if EventNames.Text <> FEvents.Text then
252    begin
253      Cancel;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines