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

Comparing ibx/trunk/design/IBSQLEditFrame.pas (file contents):
Revision 314 by tony, Fri Apr 17 10:26:08 2020 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC

# Line 33 | Line 33 | uses
33    Classes, SysUtils, FileUtil, SynEdit, SynHighlighterSQL, LResources, Forms,
34    Controls, ActnList, Menus, Dialogs, ComCtrls, ExtCtrls, StdCtrls, IBQuery,
35    IBSQL, IBDatabase, IBUpdate, IBDatabaseInfo,
36 <  IBCustomDataset, db, LazSynTextArea, IB;
36 >  IBCustomDataSet, db, LazSynTextArea, IB;
37  
38   type
39  
# Line 381 | Line 381 | begin
381    SQLTransaction.Active := false;
382    SQLTransaction.DefaultDatabase := FDatabase;
383    for i := 0 to ComponentCount - 1 do
384 <    if Components[i] is TIBCustomDataset then
385 <      TIBCustomDataset(Components[i]).Database := FDatabase
384 >    if Components[i] is TIBCustomDataSet then
385 >      TIBCustomDataSet(Components[i]).Database := FDatabase
386      else
387      if Components[i] is TIBSQL then
388        TIBSQL(Components[i]).Database := FDatabase

Diff Legend

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