Как сделать посточное считывание с Memo

[Sanek777]

Я делаю программу для перевода лексики по английскому(лексика - это список слов, который идет в строку). Мне нужно сделать так чтобы при нажатии Button считывалось значение с Memo1, где введено на английском и записывался перевод в memo2 на русскому то есть перевод Memo1. Я тут вот сообразил что Editы переводят например if Edit1.Text = 'dog' then Edit2.TExt := 'собака'; мне нужно то ж самое только с мемо и чтобы строго соблюдалось расположение строк. Помогите пожалуйста. Заранее благодарен!!!

[Манжосов Денис :)]

К примеру идёт проверка что первая строка содержит текст:
if Memo1.Lines.Strings[0]='dog' then Memo2.text:='Собака';
Дальше можно проверять есть ли вообще какая-нибудь строка, содержащая одно только слово dog
var
i: integer;
begin
for i:=1 to Memo1.Count-1 do
if Memo1.Lines.Strings[i]='dog' then Memo2.Text:='Собака';
end;
Вместо Memo2 можно использовать Edit

[mihali4]

Как сделать посточное считывание с Memo

Нужно просто иметь под рукой книжку про 100 компонентов Дельфи (скачивается с сайта форума, ссылка внизу на каждой странице форума) или научиться, наконец, пользоваться встроенным хэлпом.
И тогда не составит труда узнать, что у МЕМО есть своство LINES...
А STRINGS здесь ни при чем, ибо присвоение делается просто:
Edit1.Text:=Memo1.Lines[i];

[eoln]

Свойства Memo2
WordWrap в false, - будет строка к строке
ScrollBars в ssBoth
Добавлять memo2.lines.add('строка')

[Sanek777]

for i:=1 to Memo1.Count-1 do. Count - на нем ошибка какя-то

[Манжосов Денис :)]

Значит ошибся, пробуй Memo1.Lines.Count-1

[Sanek777]

Попробуй у себя, нет результата уже все пробовал.

[Манжосов Денис :)]

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:=0 to Memo1.Lines.Count do
if Memo1.Lines.Strings[i]='Денис' then ShowMessage('Ура');
end;

[Sanek777]

Мне ShowMessage не надо мне нужно в Memo или Edit

[Sanek777]

Все сделал! Дэн большое спасибо, напиши мне в асю 404-590-739. Поболтаем!