Нещо такова и обратното

{}function Str_ToHTML(const aStr: string): string;

    var

      i, l: integer;

      c: char;

    begin

      Result:='';

      i:=1; l:=length(aStr);

      while i<=l do begin

        c:=aStr;

        if c in ['*','-','.','0'..'9','A'..'Z','_','a'..'z'] then begin

          Result := Result+c;

        end else begin

          if c=' ' then begin

            Result := Result+'+';

          end else begin

            Result := Result+'%'+BToHex(ord(c));

          end;

        end;

        inc(i);

      end;

    end;

Това за "+" може да го махнеш

Съдържаниет е скрито
Влезте за да го видите