переводчик

[Programmist26]

Добрый вечер форумчане! Хочу написать очень простой переводчик!Очень простой переводчик
Например ввести приложение или слово в Memeo1 и при нажатии кнопки он брал перевод слова из словаря(Memo3) и выводил в memo2. Я пока первокурсник и не представляю как это можно правильно реализовать. Был бы благодарен если бы вы набросали примерный код Delphi. Спасибо! Вот форма
Безымянны2й.jpg
переводчик.zip

[Poma][a]

Для начала создаем словарь

type
        TWord = record
                eng, rus :  string
        end;

        TDict = array [1..2] of TWord;
var
        dict : TDict = ((eng : 'i'; rus : 'я'),
                        (eng : 'he'; rus : 'тЫ'));

Читаем строку. Переводим в нижний регистр, в зависимости от алфавита ищем в eng или rus наше слово.. Если нашли - выводим, нет - пишем, что нет его..

Можно словарик брать из файла (файлов).. Можно сделать два массива и дальше с указателем искать в одном массиве в зависимости от словаря..

[Programmist26]

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