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

Comparing ibx/trunk/runtime/IBXConst.pas (file contents):
Revision 32 by tony, Tue Jul 14 15:31:25 2015 UTC vs.
Revision 33 by tony, Sat Jul 18 12:30:52 2015 UTC

# Line 1 | Line 1
1 < {************************************************************************}
2 < {                                                                        }
3 < {       Borland Delphi Visual Component Library                          }
4 < {       InterBase Express core components                                }
5 < {                                                                        }
6 < {       Copyright (c) 1998-2000 Inprise Corporation                      }
7 < {                                                                        }
8 < {    InterBase Express is based in part on the product                   }
9 < {    Free IB Components, written by Gregory H. Deatz for                 }
10 < {    Hoagland, Longo, Moran, Dunst & Doukas Company.                     }
11 < {    Free IB Components is used under license.                           }
12 < {                                                                        }
13 < {    The contents of this file are subject to the InterBase              }
14 < {    Public License Version 1.0 (the "License"); you may not             }
15 < {    use this file except in compliance with the License. You            }
16 < {    may obtain a copy of the License at http://www.Inprise.com/IPL.html }
17 < {    Software distributed under the License is distributed on            }
18 < {    an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either              }
19 < {    express or implied. See the License for the specific language       }
20 < {    governing rights and limitations under the License.                 }
21 < {    The Original Code was created by InterBase Software Corporation     }
22 < {       and its successors.                                              }
23 < {    Portions created by Inprise Corporation are Copyright (C) Inprise   }
24 < {       Corporation. All Rights Reserved.                                }
25 < {    Contributor(s): Jeff Overcash                                       }
26 < {                                                                        }
27 < {    IBX For Lazarus (Firebird Express)                                  }
28 < {    Contributor: Tony Whyman, MWA Software http://www.mwasoftware.co.uk }
29 < {    Portions created by MWA Software are copyright McCallum Whyman      }
30 < {    Associates Ltd 2011                                                 }
31 < {                                                                        }
32 < {************************************************************************}
33 <
34 < unit IBXConst;
35 <
36 < interface
37 <
38 < uses IBUtils;
39 <
40 < resourcestring
41 < { generic strings used in code }
42 <  SIBDatabaseEditor = 'Da&tabase Editor...';
43 <  SIBTransactionEditor = '&Transaction Editor...';
44 <  SDatabaseFilter = 'Database Files (*.fdb; *.gdb)|*.gdb; *.fdb|All files (*.*)|*.*';
45 <  SDisconnectDatabase = 'Database is currently connected. Disconnect and continue?';
46 <  SCommitTransaction = 'Transaction is currently Active. Rollback and continue?';
47 <  SExecute = 'E&xecute';
48 <  SNoDataSet = 'No dataset association';
49 <  SSQLGenSelect = 'Must select at least one key field and one update field';
50 <  SSQLNotGenerated = 'Update SQL statements not generated, exit anyway?';
51 <  SIBUpdateSQLEditor = '&UpdateSQL Editor...';
52 <  SIBDataSetEditor = '&Dataset Editor...';
53 <  SSQLDataSetOpen = 'Unable to determine field names for %s';
54 <  SDefaultTransaction = '%s, Default';
55 <
56 < { strings used in error messages}
57 <  SUnknownError = 'Unknown error';
58 <  SInterBaseMissing = 'Firebird library not found in the path. Please install Firebird to use this functionality';
59 <  SInterBaseInstallMissing = 'InterBase Install DLL ibinstall.dll not found in the path. Please install InterBase 6 to use this functionality';
60 <  SIB60feature = '%s is an InterBase 6 function. Please upgrade to InterBase 6 to use this functonality';
61 <  SNotSupported = 'Unsupported feature';
62 <  SNotPermitted = 'Not permitted';
63 <  SFileAccessError = 'Temporary file access error';
64 <  SConnectionTimeout = 'Database connection timed out';
65 <  SCannotSetDatabase = 'Cannot set database';
66 <  SCannotSetTransaction = 'Cannot set transaction';
67 <  SOperationCancelled = 'Operation cancelled at user''s request';
68 <  SDPBConstantNotSupported = 'DPB Constant (isc_dpb_%s) is unsupported';
69 <  SDPBConstantUnknown = 'DPB Constant (%d) is unknown';
70 <  STPBConstantNotSupported = 'TPB Constant (isc_tpb_%s) is unsupported';
71 <  STPBConstantUnknown = 'TPB Constant (%d) is unknown';
72 <  SDatabaseClosed = 'Cannot perform operation -- DB is not open';
73 <  SDatabaseOpen = 'Cannot perform operation -- DB is currently open';
74 <  SDatabaseNameMissing = 'Database name is missing';
75 <  SNotInTransaction = 'Transaction is not active';
76 <  SInTransaction = 'Transaction is active';
77 <  STimeoutNegative = 'Timeout values cannot be negative';
78 <  SNoDatabasesInTransaction = 'No databases are listed in transaction component';
79 <  SUpdateWrongDB = 'Updating wrong database';
80 <  SUpdateWrongTR = 'Updating wrong transaction. Unique transaction expected in set';
81 <  SDatabaseNotAssigned = 'Database not assigned';
82 <  STransactionNotAssigned = 'Transaction not assigned';
83 <  SXSQLDAIndexOutOfRange = 'XSQLDA index out of range';
84 <  SXSQLDANameDoesNotExist = 'XSQLDA name does not exist (%s)';
85 <  SEOF = 'End of file';
86 <  SBOF = 'Beginning of file';
87 <  SInvalidStatementHandle = 'Invalid statement handle';
88 <  SSQLOpen = 'IBSQL Open';
89 <  SSQLClosed = 'IBSQL Closed';
90 <  SDatasetOpen = 'Dataset open';
91 <  SDatasetClosed = 'Dataset closed';
92 <  SUnknownSQLDataType = 'Unknown SQL Data type (%d)';
93 <  SInvalidColumnIndex = 'Invalid column index (index exceeds permitted range)';
94 <  SInvalidParamColumnIndex = 'Invalid parameter index (index exceeds permitted range)';
95 <  SInvalidDataConversion = 'Invalid data conversion';
96 <  SColumnIsNotNullable = 'Column cannot be set to null (%s)';
97 <  SBlobCannotBeRead = 'Blob stream cannot be read';
98 <  SBlobCannotBeWritten = 'Blob stream cannot be written';
99 <  SEmptyQuery = 'Empty query';
100 <  SCannotOpenNonSQLSelect = 'Cannot "open" a non-select statement. Use ExecQuery';
101 <  SNoFieldAccess = 'No access to field "%s"';
102 <  SFieldReadOnly = 'Field "%s" is read-only';
103 <  SFieldNotFound = 'Field "%s" not found';
104 <  SNotEditing = 'Not in edit mode';
105 <  SCannotInsert = 'Cannot insert into dataset. (No insert query)';
106 <  SCannotPost = 'Cannot post. (No update/insert query)';
107 <  SCannotUpdate = 'Cannot update. (No update query)';
108 <  SCannotDelete = 'Cannot delete from dataset. (No delete query)';
109 <  SCannotRefresh = 'Cannot refresh row. (No refresh query)';
110 <  SBufferNotSet = 'Buffer not set';
111 <  SCircularReference = 'Circular references not permitted';
112 <  SSQLParseError = 'SQL Parse Error:' + CRLF + CRLF + '%s';
113 <  SUserAbort = 'User abort';
114 <  SDataSetUniDirectional = 'Data set is uni-directional';
115 <  {$IFDEF UNIX}
116 <  SCannotCreateSharedResource = 'Cannot create shared resource. %s';
117 <  {$ELSE}
118 <  SCannotCreateSharedResource = 'Cannot create shared resource. (Windows error %d)';
119 <  {$ENDIF}
120 <  SWindowsAPIError = 'Windows API error. (Windows error %d [$%.8x])';
121 <  SColumnListsDontMatch = 'Column lists do not match';
122 <  SColumnTypesDontMatch = 'Column types don''t match. (From index: %d; To index: %d)';
123 <  SCantEndSharedTransaction = 'Can''t end a shared transaction unless it is forced and equal ' +
124 <                             'to the transaction''s TimeoutAction';
125 <  SFieldUnsupportedType = 'Unsupported Field Type';
126 <  SCircularDataLink = 'Circular DataLink Reference';
127 <  SEmptySQLStatement = 'Empty SQL Statement';
128 <  SIsASelectStatement = 'use Open for a Select Statement';
129 <  SRequiredParamNotSet = 'Required parameter "%s" value not set';
130 <  SNoStoredProcName = 'No Stored Procedure Name assigned';
131 <  SIsAExecuteProcedure = 'use ExecProc for Procedure; use TQuery for Select procedures';
132 <  SUpdateFailed = 'Update Failed';
133 <  SNotCachedUpdates = 'CachedUpdates not enabled';
134 <  SNotLiveRequest = 'Request is not live - cannot modify';
135 <  SNoProvider = 'No Provider';
136 <  SNoRecordsAffected = 'No Records Affected';
137 <  SNoTableName = 'No Table Name assigned';
138 <  SCannotCreatePrimaryIndex = 'Cannot Create Primary Index; are created automatically';
139 <  SCannotDropSystemIndex = 'Cannot Drop System Index';
140 <  STableNameMismatch = 'Table Name Mismatch';
141 <  SIndexFieldMissing = 'Index Field Missing';
142 <  SInvalidCancellation = 'Cannot Cancel events while processing';
143 <  SInvalidEvent = 'Invalid Event';
144 <  SMaximumEvents = 'Exceded Maximum Event limits';
145 <  SNoEventsRegistered = 'No Events Registered';
146 <  SInvalidQueueing = 'Invalid Queueing';
147 <  SInvalidRegistration = 'Invalid Registration';
148 <  SInvalidBatchMove = 'Invalid Batch Move';
149 <  SSQLDialectInvalid = 'SQL Dialect Invalid';
150 <  SSPBConstantNotSupported = 'SPB Constant Not supported';
151 <  SSPBConstantUnknown = 'SPB Constant Unknown';
152 <  SServiceActive = 'Cannot perform operation -- service is not attached';
153 <  SServiceInActive = 'Cannot perform operation -- service is attached';
154 <  SServerNameMissing = 'Server Name Missing';
155 <  SQueryParamsError = 'Query Parameters missing or incorrect';
156 <  SStartParamsError = 'start Parameters missing or incorrect';
157 <  SOutputParsingError = 'Unexpected Output buffer value';
158 <  SUseSpecificProcedures = 'Generic ServiceStart not applicable: Use Specific Procedures to set configuration params';
159 <  SSQLMonitorAlreadyPresent = 'SQL Monitor Instance is already present';
160 <  SCantPrintValue = 'Cannot print value';
161 <  SEOFReached = 'SEOFReached';
162 <  SEOFInComment = 'EOF in comment detected';
163 <  SEOFInString = 'EOF in string detected';
164 <  SParamNameExpected = 'Parameter name expected';
165 <  SSuccess = 'Successful execution';
166 <  SDelphiException = 'DelphiException %s';
167 <  SNoOptionsSet = 'No Install Options selected';
168 <  SNoDestinationDirectory = 'DestinationDirectory is not set';
169 <  SNosourceDirectory = 'SourceDirectory is not set';
170 <  SNoUninstallFile = 'Uninstall File Name is not set';
171 <  SOptionNeedsClient = '%s component requires Client to function properly';
172 <  SOptionNeedsServer = '%s component requires Server to function properly';
173 <  SInvalidOption = 'Invalid option specified';
174 <  SInvalidOnErrorResult = 'Unexpected onError return value';
175 <  SInvalidOnStatusResult = 'Unexpected onStatus return value';
176 <
177 <  SInterbaseExpressVersion = 'Firebird Express for Lazarus 1.3.0';
178 <  SEditSQL = 'Edit SQL';
179 <  SIBSQLEditor = 'IBSQL Editor';
180 <  SIBServiceEditor = 'Edit IB Service';
181 <  SDPBConstantUnknownEx = 'DPB Constant (%s) is unknown';
182 <  STPBConstantUnknownEx = 'TPB Constant (%s) is unknown';
183 <  SSV5APIError = 'SV5 API API Error - %s';
184 <  SThreadFailed = '%s Thread failed with Exception: %s';
185 <  sFieldSizeError = 'Field %s is too small to receive the data';
186 <  STransactionNotEnding = 'Transaction is not being completed';
187 <  SDscInfoTokenMissing = '%s token not found';
188 <  SNoLoginDialog = 'Default Login Dlalog not found. Have you included ibexpress ' +
189 <                   'in your program uses list?';
190 <
191 < implementation
192 <
193 < end.
194 <
1 > {************************************************************************}
2 > {                                                                        }
3 > {       Borland Delphi Visual Component Library                          }
4 > {       InterBase Express core components                                }
5 > {                                                                        }
6 > {       Copyright (c) 1998-2000 Inprise Corporation                      }
7 > {                                                                        }
8 > {    InterBase Express is based in part on the product                   }
9 > {    Free IB Components, written by Gregory H. Deatz for                 }
10 > {    Hoagland, Longo, Moran, Dunst & Doukas Company.                     }
11 > {    Free IB Components is used under license.                           }
12 > {                                                                        }
13 > {    The contents of this file are subject to the InterBase              }
14 > {    Public License Version 1.0 (the "License"); you may not             }
15 > {    use this file except in compliance with the License. You            }
16 > {    may obtain a copy of the License at http://www.Inprise.com/IPL.html }
17 > {    Software distributed under the License is distributed on            }
18 > {    an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either              }
19 > {    express or implied. See the License for the specific language       }
20 > {    governing rights and limitations under the License.                 }
21 > {    The Original Code was created by InterBase Software Corporation     }
22 > {       and its successors.                                              }
23 > {    Portions created by Inprise Corporation are Copyright (C) Inprise   }
24 > {       Corporation. All Rights Reserved.                                }
25 > {    Contributor(s): Jeff Overcash                                       }
26 > {                                                                        }
27 > {    IBX For Lazarus (Firebird Express)                                  }
28 > {    Contributor: Tony Whyman, MWA Software http://www.mwasoftware.co.uk }
29 > {    Portions created by MWA Software are copyright McCallum Whyman      }
30 > {    Associates Ltd 2011                                                 }
31 > {                                                                        }
32 > {************************************************************************}
33 >
34 > unit IBXConst;
35 >
36 > interface
37 >
38 > uses IBUtils;
39 >
40 > resourcestring
41 > { generic strings used in code }
42 >  SIBDatabaseEditor = 'Da&tabase Editor...';
43 >  SIBTransactionEditor = '&Transaction Editor...';
44 >  SDatabaseFilter = 'Database Files (*.fdb; *.gdb)|*.gdb; *.fdb|All files (*.*)|*.*';
45 >  SDisconnectDatabase = 'Database is currently connected. Disconnect and continue?';
46 >  SCommitTransaction = 'Transaction is currently Active. Rollback and continue?';
47 >  SExecute = 'E&xecute';
48 >  SNoDataSet = 'No dataset association';
49 >  SSQLGenSelect = 'Must select at least one key field and one update field';
50 >  SSQLNotGenerated = 'Update SQL statements not generated, exit anyway?';
51 >  SIBUpdateSQLEditor = '&UpdateSQL Editor...';
52 >  SIBDataSetEditor = '&Dataset Editor...';
53 >  SSQLDataSetOpen = 'Unable to determine field names for %s';
54 >  SDefaultTransaction = '%s, Default';
55 >
56 > { strings used in error messages}
57 >  SUnknownError = 'Unknown error';
58 >  SInterBaseMissing = 'Firebird library not found in the path. Please install Firebird to use this functionality';
59 >  SInterBaseInstallMissing = 'InterBase Install DLL ibinstall.dll not found in the path. Please install InterBase 6 to use this functionality';
60 >  SIB60feature = '%s is an InterBase 6 function. Please upgrade to InterBase 6 to use this functonality';
61 >  SNotSupported = 'Unsupported feature';
62 >  SNotPermitted = 'Not permitted';
63 >  SFileAccessError = 'Temporary file access error';
64 >  SConnectionTimeout = 'Database connection timed out';
65 >  SCannotSetDatabase = 'Cannot set database';
66 >  SCannotSetTransaction = 'Cannot set transaction';
67 >  SOperationCancelled = 'Operation cancelled at user''s request';
68 >  SDPBConstantNotSupported = 'DPB Constant (isc_dpb_%s) is unsupported';
69 >  SDPBConstantUnknown = 'DPB Constant (%d) is unknown';
70 >  STPBConstantNotSupported = 'TPB Constant (isc_tpb_%s) is unsupported';
71 >  STPBConstantUnknown = 'TPB Constant (%d) is unknown';
72 >  SDatabaseClosed = 'Cannot perform operation -- DB is not open';
73 >  SDatabaseOpen = 'Cannot perform operation -- DB is currently open';
74 >  SDatabaseNameMissing = 'Database name is missing';
75 >  SNotInTransaction = 'Transaction is not active';
76 >  SInTransaction = 'Transaction is active';
77 >  STimeoutNegative = 'Timeout values cannot be negative';
78 >  SNoDatabasesInTransaction = 'No databases are listed in transaction component';
79 >  SUpdateWrongDB = 'Updating wrong database';
80 >  SUpdateWrongTR = 'Updating wrong transaction. Unique transaction expected in set';
81 >  SDatabaseNotAssigned = 'Database not assigned';
82 >  STransactionNotAssigned = 'Transaction not assigned';
83 >  SXSQLDAIndexOutOfRange = 'XSQLDA index out of range';
84 >  SXSQLDANameDoesNotExist = 'XSQLDA name does not exist (%s)';
85 >  SEOF = 'End of file';
86 >  SBOF = 'Beginning of file';
87 >  SInvalidStatementHandle = 'Invalid statement handle';
88 >  SSQLOpen = 'IBSQL Open';
89 >  SSQLClosed = 'IBSQL Closed';
90 >  SDatasetOpen = 'Dataset open';
91 >  SDatasetClosed = 'Dataset closed';
92 >  SUnknownSQLDataType = 'Unknown SQL Data type (%d)';
93 >  SInvalidColumnIndex = 'Invalid column index (index exceeds permitted range)';
94 >  SInvalidParamColumnIndex = 'Invalid parameter index (index exceeds permitted range)';
95 >  SInvalidDataConversion = 'Invalid data conversion';
96 >  SColumnIsNotNullable = 'Column cannot be set to null (%s)';
97 >  SBlobCannotBeRead = 'Blob stream cannot be read';
98 >  SBlobCannotBeWritten = 'Blob stream cannot be written';
99 >  SEmptyQuery = 'Empty query';
100 >  SCannotOpenNonSQLSelect = 'Cannot "open" a non-select statement. Use ExecQuery';
101 >  SNoFieldAccess = 'No access to field "%s"';
102 >  SFieldReadOnly = 'Field "%s" is read-only';
103 >  SFieldNotFound = 'Field "%s" not found';
104 >  SNotEditing = 'Not in edit mode';
105 >  SCannotInsert = 'Cannot insert into dataset. (No insert query)';
106 >  SCannotPost = 'Cannot post. (No update/insert query)';
107 >  SCannotUpdate = 'Cannot update. (No update query)';
108 >  SCannotDelete = 'Cannot delete from dataset. (No delete query)';
109 >  SCannotRefresh = 'Cannot refresh row. (No refresh query)';
110 >  SBufferNotSet = 'Buffer not set';
111 >  SCircularReference = 'Circular references not permitted';
112 >  SSQLParseError = 'SQL Parse Error:' + CRLF + CRLF + '%s';
113 >  SUserAbort = 'User abort';
114 >  SDataSetUniDirectional = 'Data set is uni-directional';
115 >  {$IFDEF UNIX}
116 >  SCannotCreateSharedResource = 'Cannot create shared resource. %s';
117 >  {$ELSE}
118 >  SCannotCreateSharedResource = 'Cannot create shared resource. (Windows error %d)';
119 >  {$ENDIF}
120 >  SWindowsAPIError = 'Windows API error. (Windows error %d [$%.8x])';
121 >  SColumnListsDontMatch = 'Column lists do not match';
122 >  SColumnTypesDontMatch = 'Column types don''t match. (From index: %d; To index: %d)';
123 >  SCantEndSharedTransaction = 'Can''t end a shared transaction unless it is forced and equal ' +
124 >                             'to the transaction''s TimeoutAction';
125 >  SFieldUnsupportedType = 'Unsupported Field Type';
126 >  SCircularDataLink = 'Circular DataLink Reference';
127 >  SEmptySQLStatement = 'Empty SQL Statement';
128 >  SIsASelectStatement = 'use Open for a Select Statement';
129 >  SRequiredParamNotSet = 'Required parameter "%s" value not set';
130 >  SNoStoredProcName = 'No Stored Procedure Name assigned';
131 >  SIsAExecuteProcedure = 'use ExecProc for Procedure; use TQuery for Select procedures';
132 >  SUpdateFailed = 'Update Failed';
133 >  SNotCachedUpdates = 'CachedUpdates not enabled';
134 >  SNotLiveRequest = 'Request is not live - cannot modify';
135 >  SNoProvider = 'No Provider';
136 >  SNoRecordsAffected = 'No Records Affected';
137 >  SNoTableName = 'No Table Name assigned';
138 >  SCannotCreatePrimaryIndex = 'Cannot Create Primary Index; are created automatically';
139 >  SCannotDropSystemIndex = 'Cannot Drop System Index';
140 >  STableNameMismatch = 'Table Name Mismatch';
141 >  SIndexFieldMissing = 'Index Field Missing';
142 >  SInvalidCancellation = 'Cannot Cancel events while processing';
143 >  SInvalidEvent = 'Invalid Event';
144 >  SMaximumEvents = 'Exceded Maximum Event limits';
145 >  SNoEventsRegistered = 'No Events Registered';
146 >  SInvalidQueueing = 'Invalid Queueing';
147 >  SInvalidRegistration = 'Invalid Registration';
148 >  SInvalidBatchMove = 'Invalid Batch Move';
149 >  SSQLDialectInvalid = 'SQL Dialect Invalid';
150 >  SSPBConstantNotSupported = 'SPB Constant Not supported';
151 >  SSPBConstantUnknown = 'SPB Constant Unknown';
152 >  SServiceActive = 'Cannot perform operation -- service is not attached';
153 >  SServiceInActive = 'Cannot perform operation -- service is attached';
154 >  SServerNameMissing = 'Server Name Missing';
155 >  SQueryParamsError = 'Query Parameters missing or incorrect';
156 >  SStartParamsError = 'start Parameters missing or incorrect';
157 >  SOutputParsingError = 'Unexpected Output buffer value';
158 >  SUseSpecificProcedures = 'Generic ServiceStart not applicable: Use Specific Procedures to set configuration params';
159 >  SSQLMonitorAlreadyPresent = 'SQL Monitor Instance is already present';
160 >  SCantPrintValue = 'Cannot print value';
161 >  SEOFReached = 'SEOFReached';
162 >  SEOFInComment = 'EOF in comment detected';
163 >  SEOFInString = 'EOF in string detected';
164 >  SParamNameExpected = 'Parameter name expected';
165 >  SSuccess = 'Successful execution';
166 >  SDelphiException = 'DelphiException %s';
167 >  SNoOptionsSet = 'No Install Options selected';
168 >  SNoDestinationDirectory = 'DestinationDirectory is not set';
169 >  SNosourceDirectory = 'SourceDirectory is not set';
170 >  SNoUninstallFile = 'Uninstall File Name is not set';
171 >  SOptionNeedsClient = '%s component requires Client to function properly';
172 >  SOptionNeedsServer = '%s component requires Server to function properly';
173 >  SInvalidOption = 'Invalid option specified';
174 >  SInvalidOnErrorResult = 'Unexpected onError return value';
175 >  SInvalidOnStatusResult = 'Unexpected onStatus return value';
176 >
177 >  SInterbaseExpressVersion = 'Firebird Express for Lazarus 1.3.1';
178 >  SEditSQL = 'Edit SQL';
179 >  SIBSQLEditor = 'IBSQL Editor';
180 >  SIBServiceEditor = 'Edit IB Service';
181 >  SDPBConstantUnknownEx = 'DPB Constant (%s) is unknown';
182 >  STPBConstantUnknownEx = 'TPB Constant (%s) is unknown';
183 >  SSV5APIError = 'SV5 API API Error - %s';
184 >  SThreadFailed = '%s Thread failed with Exception: %s';
185 >  sFieldSizeError = 'Field %s is too small to receive the data';
186 >  STransactionNotEnding = 'Transaction is not being completed';
187 >  SDscInfoTokenMissing = '%s token not found';
188 >  SNoLoginDialog = 'Default Login Dlalog not found. Have you included ibexpress ' +
189 >                   'in your program uses list?';
190 >
191 > implementation
192 >
193 > end.
194 >

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines