Текущий архив: 2004.11.21;
Скачать: CL | DM;
Вниз
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]> Verg ©
Огромное спасибо!!!
Страницы: 1 вся ветка
Текущий архив: 2004.11.21;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.025 c
