[hugolom]

как можно сделать так:
Когда в мемо1 пишешь букву О , то при нажатие на кнопку в мемо2 появилялась цифпа 0 , т.е. в программе уже был запомнит алфавит, и какая буква на какую изменялась..
пример
S-$
что то типо того..

[T-dayne]

Можно реализовать небольшой словарик через ini файл. Если интересно, могу написать как это сделать.

[hugolom]

Сообщение от T-dayne

Можно реализовать небольшой словарик через ini файл. Если интересно, могу написать как это сделать.

Да пожалуйста

[Bars1992]

Сообщение от T-dayne

Можно реализовать небольшой словарик через ini файл. Если интересно, могу написать как это сделать.

А зачем ини файл??? это только лишняя морока. Можно этот словарь вбить прямо в код программы. Вот пример:

PHP код:

function slovary(income:char):char;
begin
case income of
's':result:='Z';
'a':result:='0';
'e':result:='1';
...........
и так сколько угодно
end;
end; 


Потом просто используешь эту функцию в коде и все

[dr. F.I.N.]

Объявление алфавита:

Код:

const
  MyAlphabet: array [Char] of Char = (...'a', 's',....);

Использование:

Код:

s := MyAlphabet[InputSymbol];

Думаю, суть ясна

[T-dayne]

Bars1992
ну да. А вдруг у него серьезный проект, где было бы неплохо сделать динамический словарь. А не перекомпилировать после каждого изменения программу. Ну если просто позабавиться, то конечно, твой вариант лучше, не спорю

[hugolom]

Я хочу сделать что на подобие этого конвертера
http://img514.imageshack.us/i/2805.png/

Там вводишь в мемо1 текста, нажимаешь кнопку,и потом в мемо2 появляеться переделанный текст..
Как это сделать?

Bars1992 как сделать с помощью твоего кода, то что я хочу?

[NumLock]

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

Описание:
Просто котвертит текст (eng) вот в такую штуку ϣȝƀϫąƙȝƥ.ŋȝƫ

http://forum.ru-board.com/topic.cgi?forum=5&topic=33850
exe:
http://ro0tt.fileave.com/TextConverter.exe

[hugolom]

Да, можно исходник той проги! сама прога то у меня есть!
Я хотел сам такую сделать, только вот текста чтоб немнго на другой менялся

[T-dayne]

Код:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
memo2.Text:=memo2.Text+slovary(key);
end;

Сама функция выглядит так:

Код:

function slovary(income:char):char; 
begin
result:=income; 
case income of 
's':result:='Z'; 
'a':result:='0'; 
'e':result:='1'; 
........... 
//и так сколько угодно 
end; 
end; 

[hugolom]

T-dayne, спасибо, но вот когда пишешь там другую цифру(букву) он переводит его как ||| полоски, можно ли сделать так символов которых нет в словаре он их переводил в тоже состояние, ну то что написал то и будет?

[T-dayne]

У меня все работает с такой функцией:

Код:

function slovary(income:char):char; 
begin
result:=income; 
case income of 
'1':result:='9'; 
'2':result:='8'; 
'3':result:='7'; 
end; 

[hugolom]

а пробовали писать буквы которых нет в словаре?

[T-dayne]

конечно. держи проект.

[hugolom]

а можно ли сделать чтоб дельфи меняла то что хочшеь на спец символы?
а то за место них вопросительные знаки..
пример спец сим § ╚ ╣ ₣ Σ Ω ϟ Ŧ ☥ ¢ ø