53 |
|
UseOldValues: boolean = false); |
54 |
|
procedure GetProcParams(ProcName: string; ParamList: TStrings; InputParams: boolean); overload; |
55 |
|
function GetWord(S: string; WordNo: integer): string; |
56 |
+ |
function RemoveSQLText(aMessage: string): string; |
57 |
|
public |
58 |
|
constructor Create; |
59 |
|
destructor Destroy; override; |
262 |
|
end; |
263 |
|
end; |
264 |
|
|
265 |
+ |
function TIBSystemTables.RemoveSQLText(aMessage: string): string; |
266 |
+ |
var idx: integer; |
267 |
+ |
begin |
268 |
+ |
idx := Pos(sSQLErrorSeparator,aMessage); |
269 |
+ |
if idx > 0 then |
270 |
+ |
Result := system.copy(aMessage,1,idx) |
271 |
+ |
else |
272 |
+ |
Result := aMessage; |
273 |
+ |
end; |
274 |
+ |
|
275 |
|
constructor TIBSystemTables.Create; |
276 |
|
begin |
277 |
|
FGetTableNames := TIBSQL.Create(nil); |
729 |
|
FTestSQL.Prepare; |
730 |
|
ShowMessage('SQL '+ GetSQLType(FTestSQL.SQLType) + ' Statement Looks OK'); |
731 |
|
except on E:EIBError do |
732 |
< |
ShowMessage(E.Message); |
732 |
> |
ShowMessage(RemoveSQLText(E.Message)); |
733 |
|
end; |
734 |
|
end; |
735 |
|
|