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

Comparing ibx/trunk/design/IBSystemTables.pas (file contents):
Revision 20 by tony, Mon Jul 7 13:00:15 2014 UTC vs.
Revision 21 by tony, Thu Feb 26 10:33:34 2015 UTC

# Line 53 | Line 53 | type
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;
# Line 261 | Line 262 | begin
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);
# Line 718 | Line 729 | begin
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  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines