isolating the where clause

[yarivk]

I would like to isolate the where clause (FinalSql – BaseSql) and use it for a delete statement. Any ideas how to do it?

Thank you

[yarivk]

uses system

var s: String
s := FinalSQL;
Delete(s, 1, Length(BaseSql));

[Plash]

You can use the following code to get WHERE clause:

Code: Select all

  w := _GetWhere(IBCQuery.SQL.Text, TIBCParser, False, lxSELECT, lxWHERE);

You should add IBCParser unit to 'uses' to compile this code.

[yarivk]

Very elegant, and works great, Thank you!