HexToDec

← →
Progh (2004-11-03 08:02) [0]

Дайте ктонибдь процедуру перевода текста типа "englesh%F2%E5%EA%F1%F2" в текст типа "engleshтекст"

и обратно

Заранее благодарен

← →
Nalexey © (2004-11-03 09:49) [1]

Пожалуйста:
procedure EndleshToText_TextToEnglesh(var sOut: string; ThereAndBack: boolean); const aStr: array[boolean] of string[22] = ("englesh%F2%E5%EA%F1%F2", "engleshтекст"); begin sOut := aStr[ThereAndBack]; end;
...
вызов:
EndleshToText_TextToEnglesh(True);

← →
Progh (2004-11-03 10:42) [2]

>Nalexey
Смешно конечно ...

Народ, ну я серьезно, очень надо!

← →
Verg © (2004-11-03 10:51) [3]

function DecodeTriplet(const Value: string; Delimiter: Char): string; var x: Integer; c: Char; s: string; begin Result := ""; x := 1; while x <= Length(Value) do begin c := Value[x]; Inc(x); if c <> Delimiter then Result := Result + c else if x < Length(Value) then begin s := Copy(Value, x, 2); Inc(x, 2); if pos(#13, s) + pos(#10, s) = 0 then Result := Result + Char(StrToIntDef("$" + s, 32)); end; end; end;

← →
Progh (2004-11-03 13:01) [4]

HexToDec Найти похожие ветки