[Novice99]

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

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

[angvelem]

Код:

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

[Novice99]

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

[angvelem]

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

Код:

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.]

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

Код:

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.
Я не сразу понял. Пробуй так:

Код:

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