ViewVC Help

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

root/public/ibx/trunk/fbintf/client/FBEvents.pas

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