[Novice99]

Edit1
Memo1
Memo2
Button1
Cписок слов в файле txt.

Нужно загрузить список слов в Memo1, при вводе букв в Edit1 например "ок" и по нажатию на Button1, все слова содержащие "ок" перенеслись в Memo2. Подскажите примеры.

[angvelem]

Код:

1 2 3 4 5

procedure Button1Click(Sender : TObject); begin   if Edit.Text = 'ok' then     Memo2.Text := Memo1.Text; end;

[Novice99]

angvelem, когда я в Edit1 другой текст вписываю. Не работает, мне не только с 'ok' нужно.

[angvelem]

Добавь какие нужны проверки:

Код:

1 2 3 4 5

procedure Button1Click(Sender : TObject); begin   if (Edit.Text = 'ok') or (Edit.Text = 'bla-bla') or (Edit.Text = 'he-he') then     Memo2.Text := Memo1.Text; end;

[Novice99]

Не понимаю какие проверки, это мне год или больше надо будет добавлять. Надо чтобы сам текст брался из самого Edit1.Text и если в списке Memo1 присутвтвует он словах в Memo2 парсить.

[U.B.M.]

Если правильно понял, то

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Button1Click(Sender: TObject); var   list : TStringList;   i : cardinal; begin   list := TStringList.Create;   list.LoadFromFile('123.txt');   Memo1.Lines := list;   Memo2.Clear;   for i := 0 to memo1.Lines.Count-1 do     if Pos(edit1.Text, memo1.Lines[i]) > 0 then       memo2.Lines.Append(memo1.Lines[i]); end;

[angvelem]

Не нужен StringList, достаточно Memo1.Lines.LoadFromFile.
Я не сразу понял. Пробуй так:

Код:

1 2 3

for I := 0 to Memo1.Lines.Count - 1 do   if Pos(Edit1.Text, Memo1.Lines[i]) > 0 then     Memo2.Lines.Add(Memo1.Lines[i]);