Einzelnen Beitrag anzeigen

alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#6

Re: QuantumGrid Filter als SQL Filter weiterverwenden

  Alt 10. Feb 2006, 10:54
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;
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat