Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

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

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

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


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

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


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

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


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

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


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

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


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

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


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

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


 
Карелин Артем ©   (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


 
Карелин Артем ©   (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


 
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] за ссылку. :)
З.Ы. И будет счастье.


 
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;

:-)))


 
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 © не позорься, сядь и напиши сам, чуть-чуть включи мозги и напиши, это не трудно, попробуй и получится.


 
Гарри Поттер ©   (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

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


 
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 символов.... и т.д...


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

Наверх




Память: 0.49 MB
Время: 0.035 c
1-1082383062
killer
2004-04-19 17:57
2004.05.09
передача переменной TStringList из DLL


14-1082028252
$tranger
2004-04-15 15:24
2004.05.09
Опрос населения


14-1082118947
Bel
2004-04-16 16:35
2004.05.09
Эксперимент с координацией.


14-1082441697
Vlad Oshin
2004-04-20 10:14
2004.05.09
Делаю книгу. Как сделать лучше?


1-1082544236
IraiZor
2004-04-21 14:43
2004.05.09
Screenshot возникла проьлема при alphablend





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский