Скачать: CL | DM;

Не могу найти.   Найти похожие ветки 

← →
zamkom ©   (2004-04-19 16:47) [0]

Помню что было где то, но не могу найти.
Необходима процедура которая конвертирует Иван Пупкин в Ivan Pupkin. Помогите пожалуйста.

---

← →
Карелин Артем ©   (2004-04-19 17:02) [1]

Если других вариантов нет, переведи строку в Koi-8 и у каждого символа обнули старший бит. :)

---

← →
zamkom ©   (2004-04-19 17:04) [2]

А попроше ничего нет, а то я не знаю как это сделать.

---

← →
Карелин Артем ©   (2004-04-19 17:11) [3]

Куда уж проще. Ищи в поисковике "Delphi win koi-8" и будет счастье.

---

← →
Карелин Артем ©   (2004-04-19 17:15) [4]

А вообще вот ссылка на перекодировку из 1251 в KOI: http://www.delphikingdom.com/asp/itemq.asp?Mode=1&ItemID=447

---

← →
clickmaker ©   (2004-04-19 17:16) [5]

http://delphibase.endimus.com/?action=viewfunc&topic=strconvert&id=10370

---

← →
zamkom ©   (2004-04-19 17:39) [6]

Громадное спасибо clickmaker ©   (19.04.04 17:16) [5] за ссылку. :)
З.Ы. И будет счастье.

---

← →
SergP ©   (2004-04-19 20:21) [7]

function IvanPupkinConverter(Str:string):string;
begin
 if str="Иван Пупкин"
    then result:="Ivan Pupkin"
    else result:="Ne Ivan Pupkin";
end;

:-)))

---

← →
Гарри Поттер ©   (2004-04-19 21:16) [8]

Ну вот спрашивают почему мало помогают мастера? ДА КОМУ ПОМОГАТЬ??!!
Обалдеть! Вопрос: "Не могу найти, помогите!". Жуть. А самому написать не судьба?? Неужели это так трудно? Неужели программист на Дельфи это человек который кнопки по форме таскает и чужие функции копипастит??
zamkom © не позорься, сядь и напиши сам, чуть-чуть включи мозги и напиши, это не трудно, попробуй и получится.

---

← →
RealRascal ©   (2004-04-19 21:52) [9]

чуть сложнее написать алгоритм обратной транслитерации, поскольку возможны двоякие ситуации

chut" slozhnee napisat" algoritm obratnoi transliteratsii, poskol"ku vozmozhny dvoyakie situatsii

чутъ сложнее написатъ алгоритм обратнои транслитерации, посколъку возможны двоякие ситуации

---

← →
SergP ©   (2004-04-19 22:05) [10]

2 zamkom

Вопрос не совсем понятный. Тебе что нужно: преобразование в транслит или замена руских символов в латинские? Если последнее, то лови....:

const
PerecodTable:="...Засовываешь сюда свои 256 символов для перекодировки ...";

...
function IvanPupkinConverter(Str:string):string;
var
i:integer;
begin
Result:=Str;
For i:=1 to Length(Result) do Result[i]:=PerecodTable[Ord(Result[i])+1];
end;

А там далее сам думай... Например как сделать чтобы не пихать в таблицу все 256 символов.... и т.д...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.03 c