Привет всем помогите мне пожалуйста как запрограммировать button1 чтоб при нажатии на него текст введённый в memo1 менялся на такой-же текст только все буквы А заменялись на буквы Я во втором memo2. Заранее благодарен всем. Задавайте и мне вопросы возможно я отвечу на них.

Это сообщение отредактировал(а) Alex - 13.8.2005, 12:33

Код

Memo2.Text:=StringReplace(Memo1.Text,'A','Я',[rfReplaceAll, rfIgnoreCase]);

а как чтоб буква а на я б на ю в на э
Добавлено @ 12:36
что то не получается а меняется опять на а

Please отпавь мне исходник на почтуотправь исходник пожалуйста

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

Цитата

подскажите как загрузить gif анимашку на форму

Блин, vovan430, заколебал!

Цитата(vovan430 @ 13.8.2005, 13:05)

мне нужно чтоб при нажатии на кнопку буквы менялись по алгоритму а на я б на ю в на э

Тебе ведь ответили уже!

Код

procedure TForm.Button1Click(Sender:TObject); begin Memo2.Text:=StringReplace(Memo1.Text,'а','я',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo1.Text,'б','ю',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo1.Text,'в','э',[rfReplaceAll, rfIgnoreCase]); end;

Добавлено @ 17:35

Цитата(vovan430 @ 13.8.2005, 15:40)

подскажите как загрузить gif анимашку на форму

Используй компонент RxGifAnimator из библиотеки RxLib

не получается меняется только буква в на э остальные остаются неизменными

а если у меня нету библиотеки RxLib не получится?

Цитата(vovan430 @ 13.8.2005, 17:49)

не получается меняется только буква в на э остальные остаются неизменными

Хех, точно. А ошибка мелочная. Вот работающий вариант:

Код

procedure TForm.Button1Click(Sender:TObject); begin Memo2.Text:=StringReplace(Memo1.Text,'а','я',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'б','ю',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'в','э',[rfReplaceAll, rfIgnoreCase]); end;

да-а-а и всё из-за одной цифры. Какая тонкая вещь программирование. Спасибо тебе. Вот ещё подскажи мне пожалуйста как загрузить картинку в statusbar?

Млин, не нужно дублировать вопросы в личку и на форуме. Пиши либо там, либо там.

http://vingrad.ru/DELPHI-DLP-000523

Помогите пожалуйста как сделать чтоб при нажатии на BitBtn1 вылазил PrintDialog и при нажатии OK началась распечатка текста который находится в Memo1 и Memo2.

Блин, ты видать не читал вот это

Цитата

1) Заголовок сообщения должен кратко отражать суть проблемы, нельзя давать заголовки типа "Помогите", "Срочно нужна помощь", "Есть вопрос", "Очень надо", "Сложный вопрос по программированию" и тому подобное. ... 10) Запрещается создание сообщения с несколькими вопросами. На каждый вопрос должна создаваться отдельная тема. В случае возникновения таких тем, администрация форума оставляет за собой право изменить текст сообщения, удалить его или закрыть тему. ... 12) Перед тем как задать вопрос поищите в соответствующем разделе и FAQ ответ, очень может быть что такой вопрос уже задавался.

По-русски это звучит как:
Один топик, один вопрос!
Заголовок темы должен кратко отражать её суть!
Загляни в FAQ!

Посмотри пожалуйста я запрграммировал кнопку а работает только вторая половина кода в чём проблема?

Код

Memo2.Text:=StringReplace(Memo1.Text,'п','н',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'р','м',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'с','л',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'т','к',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'ф','з',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'х','ж',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'ц','д',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'ч','г',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'ш','в',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo1.Text,'б','щ',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'в','ш',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'г','ч',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'щ','б',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'д','ц',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'ж','х',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'з','ф',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'к','т',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'л','с',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'м','р',[rfReplaceAll, rfIgnoreCase]); Memo2.Text:=StringReplace(Memo2.Text,'н','п',[rfReplaceAll, rfIgnoreCase]);

Добавлено @ 11:49
То есть получается код будет таким?

Код

if printdialog1.execute then   PrintStrings(Memo1.Lines);

Так будет код или нет?

Все, честно, достал! Последний раз я в этой теме. Неужели трудно создать на каждый вопрос отдельную тему?

Цитата(vovan430 @ 14.8.2005, 11:41)

Посмотри пожалуйста я запрграммировал кнопку а работает только вторая половина кода в чём проблема?

Ошибка в 11 строчке. Там нужно Memo2.Text

PS. И того, что код сработал ты не заметишь, т.к. вторая часть кода вернет все то, что сделала первая часть. т.е.

Код

Memo2.Text:=StringReplace(Memo2.Text,'р','м',[rfReplaceAll, rfIgnoreCase]); ... Memo2.Text:=StringReplace(Memo2.Text,'м','р',[rfReplaceAll, rfIgnoreCase]);

как вариант

Код

for i:=1 to length(Memo1.Lines) do  begin if copy(Memo1.Lines,i,1)='а' then Memo2.Lines:=Memo2.Lines+'я'; if copy(Memo1.Lines,i,1)='б' then Memo2.Lines:=Memo2.Lines+'ю'; if copy(Memo1.Lines,i,1)='в' then Memo2.Lines:=Memo2.Lines+'э'; ------ if copy(Memo1.Lines,i,1)='э' then Memo2.Lines:=Memo2.Lines+'в'; if copy(Memo1.Lines,i,1)='ю' then Memo2.Lines:=Memo2.Lines+'б'; if copy(Memo1.Lines,i,1)='я' then Memo2.Lines:=Memo2.Lines+'а'; if copy(Memo1.Lines,i,1)=' ' then Memo2.Lines:=Memo2.Lines+' '; // так же прописать для всех остальных знаков препинания. end;

Добавлено @ 12:01
Poseidon

Цитата(Poseidon @ 14.8.2005, 12:54)

Все, честно, достал! Последний раз я в этой теме.

терпение... ну немного не по правилам, но ведь сам говорил, что ты тут просто так хочешь всем помогать.


Это сообщение отредактировал(а) Femida - 14.8.2005, 12:00

Цитата(Femida @ 14.8.2005, 11:59)

терпение... ну немного не по правилам, но ведь сам говорил, что ты тут просто так хочешь всем помогать

Ууууговорил
Только вот модераторам явно не понравится.

Цитата(Poseidon @ 14.8.2005, 13:03)

Только вот модераторам явно не понравится

это им решать, на то они и модераторы.

Femida Извини меня за нелепый вопрос но Dekpgi выдаёт ошибку на for i:=1 точнее на I

в var i:integer написал?

точно всё понятно спасибо большое

работает?

не хочу тебя огорчать но нет. вот этот код пишу и не получается проверь у себя пожалуйста

Код

procedure TForm1.Button1Click(Sender: TObject); begin for i:=1 to length(Memo1.Lines.Text) do begin if copy(Memo1.Lines.Text,i,1)='à' then Memo2.Lines.Text:=Memo2.Lines.Text+'ÿ; if copy(Memo1.Lines.Text,i,1)='á' then Memo2.Lines.Text:=Memo2.Lines.Text+'þ; if copy(Memo1.Lines.Text,i,1)='â' then Memo2.Lines.Text:=Memo2.Lines.Text+'ý; if copy(Memo1.Lines.Text,i,1)='ã' then Memo2.Lines.Text:=Memo2.Lines.Text+'ü; if copy(Memo1.Lines.Text,i,1)='ä' then Memo2.Lines.Text:=Memo2.Lines.Text+'û; if copy(Memo1.Lines.Text,i,1)='å' then Memo2.Lines.Text:=Memo2.Lines.Text+'ú; if copy(Memo1.Lines.Text,i,1)='¸' then Memo2.Lines.Text:=Memo2.Lines.Text+'ù; if copy(Memo1.Lines.Text,i,1)='æ' then Memo2.Lines.Text:=Memo2.Lines.Text+'ø; if copy(Memo1.Lines.Text,i,1)='ç' then Memo2.Lines.Text:=Memo2.Lines.Text+'÷; if copy(Memo1.Lines.Text,i,1)='è' then Memo2.Lines.Text:=Memo2.Lines.Text+'ö; if copy(Memo1.Lines.Text,i,1)='é' then Memo2.Lines.Text:=Memo2.Lines.Text+'õ; if copy(Memo1.Lines.Text,i,1)='ê' then Memo2.Lines.Text:=Memo2.Lines.Text+'ô; if copy(Memo1.Lines.Text,i,1)='ë' then Memo2.Lines.Text:=Memo2.Lines.Text+'ó; if copy(Memo1.Lines.Text,i,1)='ì' then Memo2.Lines.Text:=Memo2.Lines.Text+'ò; if copy(Memo1.Lines.Text,i,1)='í' then Memo2.Lines.Text:=Memo2.Lines.Text+'ñ'; if copy(Memo1.Lines.Text,i,1)='î' then Memo2.Lines.Text:=Memo2.Lines.Text+'ð'; if copy(Memo1.Lines.Text,i,1)='ï' then Memo2.Lines.Text:=Memo2.Lines.Text+'ï'; if copy(Memo1.Lines.Text,i,1)='ð' then Memo2.Lines.Text:=Memo2.Lines.Text+'î'; if copy(Memo1.Lines.Text,i,1)='ñ' then Memo2.Lines.Text:=Memo2.Lines.Text+'í'; if copy(Memo1.Lines.Text,i,1)='ò' then Memo2.Lines.Text:=Memo2.Lines.Text+'ì'; if copy(Memo1.Lines.Text,i,1)='ó' then Memo2.Lines.Text:=Memo2.Lines.Text+'ë'; if copy(Memo1.Lines.Text,i,1)='ô' then Memo2.Lines.Text:=Memo2.Lines.Text+'ê'; if copy(Memo1.Lines.Text,i,1)='õ' then Memo2.Lines.Text:=Memo2.Lines.Text+'é'; if copy(Memo1.Lines.Text,i,1)='ö' then Memo2.Lines.Text:=Memo2.Lines.Text+'è'; if copy(Memo1.Lines.Text,i,1)='÷' then Memo2.Lines.Text:=Memo2.Lines.Text+'ç'; if copy(Memo1.Lines.Text,i,1)='ù' then Memo2.Lines.Text:=Memo2.Lines.Text+'æ'; if copy(Memo1.Lines.Text,i,1)='ù' then Memo2.Lines.Text:=Memo2.Lines.Text+'¸'; if copy(Memo1.Lines.Text,i,1)='ú' then Memo2.Lines.Text:=Memo2.Lines.Text+'å'; if copy(Memo1.Lines.Text,i,1)='û' then Memo2.Lines.Text:=Memo2.Lines.Text+'ä'; if copy(Memo1.Lines.Text,i,1)='ü' then Memo2.Lines.Text:=Memo2.Lines.Text+'ã'; if copy(Memo1.Lines.Text,i,1)='ý' then Memo2.Lines.Text:=Memo2.Lines.Text+'â'; if copy(Memo1.Lines.Text,i,1)='þ' then Memo2.Lines.Text:=Memo2.Lines.Text+'á'; if copy(Memo1.Lines.Text,i,1)='ÿ' then Memo2.Lines.Text:=Memo2.Lines.Text+'à'; end; end; end.

у меня здесь Delphi нет,
что пишет? На что жалуется?

жалуется на первую строку после второго Begin в частности на if

и что говорит?
Если прописано все нормально, т.е. без ошибок, лишних точек, запятых... то должен пройти

А ты не знаешь как запрограммировать кнопку чтоб при нажатии открывался PrintDialog и началась печать?

vovan430, давай уже в отдельную тему.
Раз, два, три - нарушать можно, но 4 - не хорошо

Sorry, но видется Знак2

Цитата(vovan430 @ 14.8.2005, 13:04)

не хочу тебя огорчать но нет. вот этот код пишу и не получается проверь у себя пожалуйста

Ёпрст! А где

Цитата(Femida @ 14.8.2005, 12:34)

var i:integer

Ну это так, кстати. А ругается на то, что у тебя не закрыта строчка. В конце каждой строки (после буквы) поставь ' (знак открытия/закрытия строки).

у тебя много end'ов
Добавлено @ 14:17
Poseidon, ругается насовсем на то, что ты написал

Народ! Кончайте дурью маяться! Проще, по-моему, вот так буквочки заменять...

Код

var  c:char; begin  c:='а';  while (ord('я') - ord(c) + ord('а')) > ord(c) do    begin     Memo2.Text:=StringReplace(Memo2.Text, c, chr(ord('я') - ord(c) + ord('а')));     c:=succ(c);    end; end;

Должно сработать и всего 6 строк кода...
Добавлено @ 14:30
Тьфу... не дочитал вторую часть перекодировок... щас подправим...

Цитата(Femida @ 14.8.2005, 14:17)

у тебя много end'ов

Неа, end'ов у него как раз достаточно (просто бегины некоторые не указаны). А вот ругается именно на то, что я указал!

Цитата

Unterminated string

Добавлено @ 14:32
Pakshin A. S.

Как мне понимается у нас в Memo2 исдет измененный текст из Memo1 в соответствии с постевленными правилами...

Самое разумное сделать вот так:

Код

var  i:integer; begin  Memo2.Text:='';  for i:=1 to Length(Memo1.Text) do   if Memo1.Text[i] in ['а'..'я']    then     Memo2.Text:=Memo2.Text + chr(ord('я') - ord(Memo1.Text[i]) +1)    else     Memo2.Text:=Memo2.Text + Memo1.Text[i] end;

Вроде формула должна быть верна...

P. S.
Проверьте ошибки, у кого под рукой есть дельфя...

Это сообщение отредактировал(а) Pakshin A. S. - 14.8.2005, 14:37

Цитата(Pakshin @ 14.8.2005, 14:35)

Проверьте ошибки, у кого под рукой есть дельфя...

Плохо по приборам писать
Ошибок нет, как и функционала. Не фуркает в общем.

Верно... поправка на формулу (сразу тестом... кому надо - перепишет вышеизложенный код...):

Код

var  c:char; begin  c:='б';  c:=chr(ord('я') - ord(c) + ord('а'));  ShowMEssage(c); end;

Добавлено @ 14:46
На разных буквах тестил... вроде работает...
Добавлено @ 14:47
Короче: вместо единички в вышеизложенном коде с Memo должно стоять

Код

ord('а');

Я не знаю почемуно у меня ни один из вышесказанных исходников не работает
У Pakshin A. S. буквы заменяет на какие-то палочки,
У Poseidon меняет только половину букв,
У Femida выдаёт ошибку

Код

var  c:char; begin  for c:='а' to 'я' do   Memo1.Lines.Add(chr(ord('я') - ord(c) + ord('а')));

В Memo запихивает алфавит в обратном порядке:

Цитата(Memo1)

я ю э ь ы ъ щ ш ч ц х ф у т с р п о н м л к й и з ж е д г в б а

Проверь прогу этим кодом... Если нет, то по таблицке ASCII кодов идет в системе разрыв русских малых букв и данные вариант не будет работать...
Добавлено @ 09:19
Так... в досе табличка реально имеет разрыв в малых русских... А в винде у меня такого не наблюдается.. И в ЗАГЛАВНЫХ буквах разрыва нету...

Надо будет придумать универсальный способ...

Это сообщение отредактировал(а) Pakshin A. S. - 16.8.2005, 09:17

Нет не полчается, может быть есть ещё какой нибудь способ?

vovan430,
А ты точно измененный код используешь?

Код

for i:=1 to Length(Memo1.Text) do   if Memo1.Text[i] in ['а'..'я']    then     Memo2.Text:=Memo2.Text + chr(ord('я') - ord(Memo1.Text[i]) + ord('а')) // вот этот ord('а') вместо 1    else     Memo2.Text:=Memo2.Text + Memo1.Text[i]

Мне нужна такая тема чтоб если я например ввёл в Memo1 'Вова' то в Memo2 появлялось 'Ороя' Буквы заменялисьпри нажатии кнопки в любом введённом слове

vovan430, а я что тебе тут пытаюсь сделать?
Добавлено @ 09:33
Вот с калькулятьром сижу и проверяю формулу по табличке кодов в книжке по паскалю:

160 - а
...
175 - п
<разрыв другими символами>
224 - р
...
239 - я

На данной табличке формула chr(ord('я') - ord(Memo1.Text[i]) + ord('а')) верна

Точно работает а как сделать чтоб заменялись только согласные по алгоритму

б - щ
в - ш
г - ч
д - ц
ж - х
з - ф
к - т
л - с
м - р
н - п

Нафиг тебе оно... ЩАс попробую изобразить...
Добавлено @ 09:52
Самый тупой вариант:

Код

const  sogl: set of char = ('б', 'в', {и т. п.}); function GetNo(c: char):integer; var  i:char; begin  Result:=0;  i:='а';  while i < c do   begin    if i in sogl     then      inc(Result);    i:=succ(i);   end; end; function GetCode(no: integer):char; var  c:char; begin  c:='я';  while no <> 0 do   begin    if c in sogl     then      dec(no)    c:=pred(c);   end;  Result:=succ(c) end;

Как юзать:

Код

c:='б';  c:=GetCode(GetNo(c));

Теоритически должно работать...

Это сообщение отредактировал(а) Pakshin A. S. - 16.8.2005, 09:55

Поправочка на описание множества: вместо круглых скобок должны стоять квадратные...
Добавлено @ 10:06
Добавление в функцию GetNo():
В конце ее тела нуно добавить inc(Result), т. е. будем иметь:

Код

function GetNo(c: char):integer; var  i:char; begin  Result:=0;  i:='а';  while i < c do   begin    if i in sogl     then      inc(Result);    i:=succ(i);   end;  inc(Result); // Вот это end;

Добавлено @ 10:07
Если в описание множества вместо согласных кинуть гласные, то код будет работать и для гласных... если в описание множества кинуть вообще все буквы, то код будет работать как тот, что был ранее (со всеми буквами)...

Еще вариант:

Код

type  CodesL = 36; // Скока тама у нас букв в алфавите?  Code = string[2]; const  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); end; fucntion 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); end;

Пример юзания:

Код

var  c:char; begin  c:='a';  ShowMessage(c);  c:=CodeChar(c);  ShowMessage(c);  c:=DeCodeChar(c);  ShowMessage(c); end;

Итого можно в абсолютно произвольном порядке делать пары, где первый символ - символ, который кодируется, а второй символ - код, в который переходит символ...

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

как сделать чтоб заменялись только согласные по алгоритму
б - щ
в - ш
г - ч
д - ц
ж - х
з - ф
к - т
л - с
м - р
н - п

А гласные оставались неизменными. С 2-мя Memo и с Button как в первом случае где а на я б на ю и т.д

Цитата(vovan430 @ 16.8.2005, 12:33)

как сделать чтоб заменялись только согласные по алгоритму б - щ в - ш г - ч д - ц ж - х з - ф к - т л - с м - р н - п А гласные оставались неизменными. С 2-мя Memo и с Button как в первом случае где а на я б на ю и т.д

Смотри пост от 16.8.2005, 12:32 по Москве
Добавлено @ 11:36
Все вышеизложенное применяется с первым способом вместо формулы...

Цитата(Pakshin @ 16.8.2005, 11:35)

Цитата(vovan430 @ 16.8.2005, 12:33) как сделать чтоб заменялись только согласные по алгоритму б - щ в - ш г - ч д - ц ж - х з - ф к - т л - с м - р н - п А гласные оставались неизменными. С 2-мя Memo и с Button как в первом случае где а на я б на ю и т.д Смотри пост от 16.8.2005, 12:32 по Москве Добавлено @ 11:36 Все вышеизложенное применяется с первым способом вместо формулы...

И куда этот вышеизложенный код вставлять?

Код

type  CodesL = 36; // Скока тама у нас букв в алфавите?  Code = string[2]; const  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); end; fucntion 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); end;

Куда это?

Код

var  c:char; begin  c:='a';  ShowMessage(c);  c:=CodeChar(c);  ShowMessage(c);  c:=DeCodeChar(c);  ShowMessage(c); end;

А это куда?
Добавлено @ 11:57
И Кда эти коды вставлять в button или куда ? Не могу понять.

Вот:

Код

implementation <...> type  CodesL = 36; // Скока тама у нас букв в алфавите?  Code = string[2]; const  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); end; fucntion 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); end; procedure TForm1.Button1Click(Sender: TObject); var  i:integer; begin  for i:=1 to Length(Memo1.Text) do   if Memo1.Text[i] in ['а'..'я']    then     Memo2.Text:=Memo2.Text + CodeChar(Memo1.Text[i])    else     Memo2.Text:=Memo2.Text + Memo1.Text[i] end; <...> end.

Понятно?

А ты у себя проверил? программу. У меня выдаёт ошибку на ; после 36
CodesL = 36; // Скока тама у нас букв в алфавите?


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

Цитата(vovan430 @ 16.8.2005, 13:11)

У меня выдаёт ошибку на ; после 36

дай код
Добавлено @ 12:15
тьфу... эту хрень в констуту нужно было поставить... убери из типов и сунь в описание констнт перед описанием массива...

Такая тема получилась

Код

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Memo1: TMemo;     Memo2: TMemo;     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} type  Code = string[2]; const  Codes: array [1..CodesL] of Code = ('ая', 'кп',)  CodesL = 36; // Скока тама у нас букв в алфавите? 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); end; fucntion 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); end; procedure TForm1.Button1Click(Sender: TObject); begin var  i:integer; begin  for i:=1 to Length(Memo1.Text) do   if Memo1.Text[i] in ['а'..'я']    then     Memo2.Text:=Memo2.Text + CodeChar(Memo1.Text[i])    else     Memo2.Text:=Memo2.Text + Memo1.Text[i] end; end; end.

Но не работает опять теперь ошибка
Codes: array [1..CodesL] of Code = ('ая', 'кп',)

vovan430
Ты только вчера начал программировать? И еще внимательней читай, что я пишу...

Код

const  CodesL = 36;   Codes: array [1..CodesL] of Code = {Я за тебя не собираюсь писать все пары для кода... сам пиши}('ая', 'кп',)

А полный список букв в буквы можно увидеть???

Цитата(Romikgy @ 16.8.2005, 14:34)

А полный список букв в буквы можно увидеть???

К кому вопрос?

Вот.. делать нефига было... составил произвольный код

Код

CodesL = 32; Codes: array [1..CodesL] of Code = ( 'йю', 'цб', 'уь', 'кт', 'еи', 'нм', 'гс', 'шч', 'щя', 'зэ', 'хж', 'ъд', 'фл', 'ыо', 'вр', 'ап' 'па', 'рв', 'оы', 'лф', 'дъ', 'жх', 'эз', 'щя', 'шч', 'гс', 'нм', 'еи', 'кт', 'уь', 'цб', 'йю', );

Цитата(Pakshin @ 16.8.2005, 14:03)

К кому вопрос?

К автору темы!!!

А теперь ошибка сдесь

Код

Result:=Copy(Codes[i-1], 2, 1);

После ;

Код

Result:=Copy(Codes[i-1], 2, 1)[1];

Также и во второй функции...

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

Код

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