ViewVC Help

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

root/public/ibx/trunk/design/ibgeneratoreditor.pas

Comparing ibx/trunk/design/ibgeneratoreditor.pas (file contents):
Revision 290 by tony, Thu Jan 18 14:37:40 2018 UTC vs.
Revision 291 by tony, Fri Apr 17 10:26:08 2020 UTC

#	Line 84 | Line 84 | var Database: TIBDatabase;
84		begin
85		Result := false;
86		if not (AGenerator.Owner is TIBTable) and
87	<	((AGenerator.Owner is TIBQuery and ((AGenerator.Owner as TIBQuery).SQL.Text = '')) or
88	<	(AGenerator.Owner is TIBDataSet and ((AGenerator.Owner as TIBDataSet).SelectSQL.Text = ''))) then
87	>	(((AGenerator.Owner is TIBQuery) and ((AGenerator.Owner as TIBQuery).SQL.Text = '')) or
88	>	((AGenerator.Owner is TIBDataSet) and ((AGenerator.Owner as TIBDataSet).SelectSQL.Text = ''))) then
89		begin
90		ShowMessage('No Select SQL Found!');
91		Exit

Diff Legend

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