QuantumGrid Filter als SQL Filter weiterverwenden

[alzaimar]

Zitat von Surrounder:

... Leider schreibt er dann aber 'DATE 2006-02-08' anstelle von DATE '2006-02-08'

Delphi-Quellcode:

Function SQLFlashFilerDateFilterTranslator (Const cxFilterStr : String) : String;
Begin
  Result := StrReplace (cxFilterStr,'''DATE ','DATE ''')
End;

Ersetzt einfach >'DATE foo'< nach >DATE 'foo<... Vielleicht stimmt der String nicht, aber egal. Und falls Du StrReplace nicht hast, nimm dies:

Delphi-Quellcode:

Function StrReplace     (Src,s1,s2   : String) : String;
Var
  p : Integer;

Begin
  if (pos (s1,src)=0) Or (s1=s2) then
    result := src
  Else Begin
    Result := '';
    p := 1;
    while p<=length (src) do
      if copy (src,p,length (s1)) = s1 then begin
   result := result + s2;
   p := p + length (s1)
   End
      else Begin
   result := result + copy (src,p,1);
   inc (p);
   End
    End;
End;