Ещё одна ошибка

Код

fucntion DeCodeChar(c: char):char;

Это сообщение отредактировал(а) vovan430 - 16.8.2005, 16:02

vovan430

ИЗДЕВАЕШЬСЯ?

Просто допустил ошибку

Код

fucntion DeCodeChar(c: char):char;

Вот сдесь ошибка. Какая?

vovan430 Кто тут дельфист начинающий? Догадайся сам... Ведь компилятор же говорит...

Ну подскажи я ведь делфи изучаю всего 2 дня а это мне для дела надо

Цитата(vovan430 @ 16.8.2005, 17:16)

Ну подскажи я ведь делфи изучаю всего 2 дня а это мне для дела надо

Обалдеть...

Итак весь листинг (расшевелил ты меня... достал дельфю):

Код

type  Code = string[2]; const CodesL = 32; Codes: array [1..CodesL] of Code = ( 'йю', 'цб', 'уь', 'кт', 'еи', 'нм', 'гс', 'шч', 'щя', 'зэ', 'хж', 'ъд', 'фл', 'ыо', 'вр', 'ап', 'па', 'рв', 'оы', 'лф', 'дъ', 'жх', 'эз', 'щя', 'шч', 'гс', 'нм', 'еи', 'кт', 'уь', 'цб', 'йю' );   function CodeChar(c: char):char; var  i:integer;  b:boolean; begin  i:=1;  b:=false;  while (i <= CodesL) and (not b) do   begin    b:=Copy(Codes[i], 1, 1) = c;    inc(i);   end;  if b   then    Result:=Copy(Codes[i-1], 2, 1)[1]; end; function DeCodeChar(c: char):char; var  i:integer;  b:boolean; begin  i:=1;  b:=false;  while (i <= CodesL) and (not b) do   begin    b:=Copy(Codes[i], 2, 1) = c;    inc(i);   end;  if b   then    Result:=Copy(Codes[i-1], 1, 1)[1]; end;

Спасибо но получилось немного не так как я хотел, но всё равно спасибо!!!

vovan430
Т. е.? Через массив ты задашь все, что угодно!

Люди!
Подскажите пожалуйста!
Пишу тупой и простейший переводчик с транслита на японский!
т.е пример:"privet"="Noshikirukuchi"!Вот!
А алфавит со своего форуса сетевого взял!
Блин такая проблемма...
Похожа на замену ваших там "а" на "я" и т.д.
Вообщем код таков:
Memo1.Text:=StringReplace(Memo1.Text,'A','ka',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'B','zu',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'C','mi',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'D','tе',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'E','ku',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'F','lu',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'G','ji',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'H','ri',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'I','кi',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'J','zu',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'K','me',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'L','ta',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'M','rin',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'N','to',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'O','mo',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'P','no',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'Q','ke',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'R','shi',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'S','ari',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'T','chi',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'U','do',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'V','ru',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'W','mei',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'X','na',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'Y','fu',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'Z','z',[rfReplaceAll, rfIgnoreCase]);
-----
А проблема в следующем...
Он начинает заменять буквы не верно пример!
Пишу в мемо1 "a" а в мемо2 за место "ka" пишет "arihiichimoea"!  
Пипец!Подскажите что ни так???
Я вот тут подумал...И пришёл к мнению, что он начинает заменять все из мемо2...Блин, тока как так сделать, чтобы он просто и корректно переводил...

Voltik, сделай так 

должно помоч

PS и на будущее , есть вопрос создай тему, ибо все вопросы в одну тему сваливать запрещено правилами форума!!!!

Спс!Большущее...
Проканало!
Хорошо, что есть такие форумы...
Блин, ещё раз СПАСИБО!  
----
Да совсем забыл...
Ещё вопросик:  
А как сделать, чтобы автоматически переводило...
Вот например я пишу в МЕМО1, а он мне в МЕМО2 сразу переводит...Без всяких нажатий!
Буду признателен...

Это сообщение отредактировал(а) Voltik - 20.12.2006, 00:24

Цитата(Romikgy @  19.12.2006,  22:27 )

есть вопрос создай тему, ибо все вопросы в одну тему сваливать запрещено правилами форума!!!!

  
Более отвечать не буду....

У мемо есть событие onChange