| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

HexToDec

Progh ©   (2004-11-03 08:02:00) 

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

и обратно

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

---

Progh   (2004-11-03 13:01:00) [1]

> Verg ©  

Огромное спасибо!!!

---

Verg   (2004-11-03 10:51:00) [2]

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 10:42:00) [3]

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

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

---

Nalexey   (2004-11-03 09:49:00) [4]

Пожалуйста:

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);

---

Наверх