1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function removeUrlcode(AStr: string): string;
var
  tmpPos: integer;
begin
  // Die + zu blank Konvertierung ist nur bei RawUrlencode notwendig
  tmpPos := Pos('+',AStr);
  while tmpPos > 0 do begin  // Solange '+' vorhanden sind
    AStr[tmpPos] := ' ';  //  + in Leerzeichen ändern
    tmpPos := Pos('+',AStr);
  ed;
  tmpPos := Pos('%',AStr);
  while tmpPos > 0 do  // solange konvertierte Sonderzeichen vorhanden sind
  begin
    AStr[tmpPos] := Char( StrToInt('$'+Copy(AStr,tmpPos+1,2)) );  // %-Zeichen durch Sonderzeichen ersetzen
    Delete(AStr,tmpPos+1,2);  // Die 2 Ziffern nach dem % entfernen
    tmpPos := Pos('%',AStr);
  end;
  result := AStr;
end;