SQLCmd Manipulation

[Sir Rufo]

Ganz simpel und einfach?

StringReplace

SQL-Code:

SELECT A.ID, (SELECT FIRST 1 B.ID FROM TABB B WHERE B.X = A.X)
, A.TEST
FROM TABA A 
WHERE (%WHEREADD%) AND (A.ID IN (SELECT C.ID FROM TABC C WHERE C.Y = A.Y) AND A.DELETED = 0)
UNION
SELECT D.ID, (SELECT FIRST 1 B.ID FROM TABB B WHERE B.X = D.X)
, D.TEST
FROM TABD D 
WHERE (%WHEREADD%) AND (D.ID IN (SELECT C.ID FROM TABC C WHERE C.Y = D.Y) AND D.DELETED = 0)

Delphi-Quellcode:

function ModifyWhereAdd(const SqlCmd, WhereAdd : string) : string;
var
  LReplacePattern : string;
begin
  if ( WhereAdd = '' ) then
    LReplacePattern := '1=1'
  else
    LReplacePattern := WhereAdd;

  Result := StringReplace( SqlCmd, '(%WHEREADD%)', '( ' + LReplacePattern + ' )', [ rfReplaceAll, rfIgnoreCase ] ); 
end;