Delphi Anführungszeichen entwerten

Thema durchsuchen

Ansicht

Themen-Optionen

Anführungszeichen entwerten

Ein Thema von Morfio · begonnen am 4. Feb 2004 · letzter Beitrag vom 4. Feb 2004

Antwort

Phoenix

(Moderator)

Registriert seit: 25. Jun 2002
Ort: Hausach
7.643 Beiträge

Re: Anführungszeichen entwerten

4. Feb 2004, 16:59

Such mal nach StrReplace (oder so ähnlich).

ansonsten:

zusammenfalten · markieren

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;