URL decodieren

[sakura]

Hi,

Leerzeichen werden in einer URL i.A. mit "+" dargestellt Egal, hier der Code:

Delphi-Quellcode:

class URLDecode(aSrc: string): string;
var
  I, Max: Integer;
begin
  Result := '';
  // convert plus to space
  for I := 1 to Length(aSrc) do
    if aSrc[I] = '+' then
      aSrc[I] := #32;
  I := 1;
  Max := Length(aSrc);
  while I <= Max do
  begin
    if aSrc[I] <> '%' then
    begin
      Result := Result + ASrc[i]
    end else begin
      try
        Inc(I);
        Result := Result + Chr(StrToInt('$' + Copy(aSrc, I, 2)));
      except
      end;
      Inc(I);
    end;
    Inc(I);
  end;
end;

......