Не могу найти.

← →
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;

:-)))

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

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

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

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

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

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