TMemo & Tedit - переводчик

[pnz_punisher]

Здравствуйте!
Прошу вашей помощи...

Делаю переводчик (с НаВи на Русский язык), вот не как не могу реализовать мою мыслю:

В TEdit1 мы пишем предложение (несколько слов...), а в TMemo1 это предложение должно перевестись... (по базе), а именно:
С TEdit1 считываются все слова, (каждое слово переводиться) и готовый результат выводиться в TMemo1.

Можно так сделать? (подскажите пож. как, имхо я начинающий в Delphi7, многово не знаю..., но этот переводчик нужен очень....)

[mihali4]

должно перевестись... (по базе)

Для поиска по базе есть функция POS.
Лучше, если вы будете сравнивать ваши слова (фразы) в одном регистре - для этого есть функции AnsiLowerCase, AnsiUpperCase.
Тогда юзер может вводить хоть большими, хоть маленькими...

[pnz_punisher]

А можно пример? (Плз...)

[QunneD]

А для чего поисковик?

[pnz_punisher]

Я не могу найти ничего похожего...

[russian-stalker]

что-то типа того можно:

for i:=0 to Base.count - 1 do
if ansiuppercase(word)=ansiuppercase(base[i]) then
begin
memo1.text:=memo1.text+TranslitBase[i];
break;
end;

Как выделить слова из предложения, я думаю можно не рассказывать.

[pnz_punisher]

Лучше рассказать ) Ибо я только начинающий ....