Probleme bei MySQL INSERTS,UPDATE

[fiasko]

Delphi-Quellcode:

function EscapeStr(str: string): string;
var
  index: integer;
begin
  index:=1;
  while Pos('''',copy(str,index,length(str)))<>0 do
  begin
    index:=Pos('''',copy(str,index,length(str)))+index+1;
    str:=copy(str,1,index-3)+'\'''+copy(str,index-1,length(str));
  end;
  result:=str;
end;

Die Funktion ersetzt alle ' durch \'.

Thomas