SQL Parser in Delphi

[Leuselator]

Das Beispiel geht von der Annahme aus, das einem WHERE zwingend ein Leerzeichen folgt (leider kann dem WHERE ein #13#10 vorangehen):

Delphi-Quellcode:

var
  FirstPos,
  LastPos : Integer;
  UGotTheFirst, 
  UGotTheLast,
  ThereAreMany : Boolean;
  QueryText : String;
begin
  FirstPos     := 0;
  LastPos      := 0;
  FirstPos     := pos('WHERE ',UPPERCASE(QueryText));
  UGotTheFirst := (FirstPos > 0);
  LastPos      := FirstPos;
  while pos('WHERE ',copy(UPPERCASE(QueryText),LastPos,MaxInt)) > 0 
    do LastPos := pos('WHERE ',copy(UPPERCASE(QueryText),LastPos,MaxInt));
  UGotTheLast  := (LastPos > 0);
  ThereAreMany := (FirstPos <> LastPos);
end;

Gruß