%20 in Leerzeichen Umwandeln

[la.reunion]

ICh lass auhc mal wieder was von mir hören.

Delphi-Quellcode:

function wandlelinkum(link : string) : string; 
 var
   position,zahl : integer; 
   zeichen : char; 
 begin 
   result := link;
   while pos('%',result) <> 0 do
   begin 
     position := pos('%',result) + 1; 
     zahl := strtoint('$'+copy(result,position,2)); 
     zeichen := char(zahl); 
     delete(result,position - 1,3); 
     insert(zeichen,result,position - 1); 
   end; 
 end;