Anführungszeichen entwerten

[Phoenix]

Such mal nach StrReplace (oder so ähnlich).

ansonsten:

Delphi-Quellcode:

function MakeItSo(s: string): string;
var
   i: integer;
begin
   result := '';
   for i:= 0 to length(s) do
      if s[i] = '"' then
         result := result + ''''
      else
         result := result + s[i];
end;