Преобразование URL
vlv © (2002-08-15 15:40:00)
Как преобразовать строку web-адреса в обычную (заменить
обозначения спец-символов на их изображения)?
panov (2002-08-15 15:46:00) [1]
Что-то такое...
function Decode(Value: String):String;
var
i,L: Integer;
begin
Result := "";
L := 0;
for i := 1 to Length(Value) do
begin
if (Value[i]<>"%") and (Value[i]<>"+") and
(L<1) then
begin
Result := Result + Value[i];
end
else
begin
if Value[i]="+" then Result := Result+" "
else if Value[i]="%" then
begin
L := 2;
if (i<Length(Value)-1) then
begin
Result := Result + Chr(StrToInt("$"+Copy(Value,i+1,2)));
//Chr(HexToInt(Value[i+1])*16+HexToInt(Value[i+2]));
end;
end
else Dec(L);
end;
end;
end;
Наверх 
ЧАТ |
Орешник |
|
