# | Line 31 | Line 31 | interface | |
---|---|---|
31 | ||
32 | uses | |
33 | Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, | |
34 | < | StdCtrls, ExtCtrls, ComCtrls, IBSystemTables, IBSQL, IBDatabase, IB; |
34 | > | StdCtrls, ExtCtrls, ComCtrls, IBSystemTables, IBSQL, IBDatabase, IB, |
35 | > | LCLVersion; |
36 | ||
37 | type | |
38 | ||
# | Line 121 | Line 122 | implementation | |
122 | ||
123 | {$R *.lfm} | |
124 | ||
125 | < | uses InterfaceBase; |
125 | > | uses InterfaceBase |
126 | > | {$if lcl_fullversion >= 01070000}, LCLPlatformDef {$ENDIF}; |
127 | ||
128 | function EditIBSQL(DataSet: TIBSQL): boolean; | |
129 | begin |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |