Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: 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 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.062 c
1-1080156667
jetty
2004-03-24 22:31
2004.04.11
Как организовать секундомер,


14-1081789281
Инкогнито
2004-04-12 21:01
2004.04.11
Азбука Морзе!


14-1079111038
Fyjybv
2004-03-12 20:03
2004.04.11
Autarization Key


1-1079840364
Alibaba
2004-03-21 06:39
2004.04.11
Назначаем процедуру


3-1078982260
Лысый
2004-03-11 08:17
2004.04.11
Запрос