so ich hab mir jetzt ne funktion gebastelt, leider funktioniert sie nicht so wie sie sollte: also im gunde genommen passiert gar nichts, keine fehlermeldung und bei der ausgabe sieht der string genauso aus wie bei der eingabe
aba so wie ich dich langsam einschaetze, findest du meinen fehler gleich !
Delphi-Quellcode:
function ReplaceHex(
url:
string):
string;
var idx,code: integer;
hex:
string;
begin
idx:=0;
result:=
url;
repeat
idx := PosEx('
%',
url,idx+1);
if idx>0
then
begin
hex:=copy(
url,idx+1,2);
if TryStrToInt('
$'+hex,code)
then
begin
hex:= copy(
url,idx,3);
result:=StringReplace(
url,hex,chr(code),[rfReplaceAll]);
end;
end;
until idx = 0;
end;