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;