Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.039 c