Мемо

[hacknet]

привет всем! а можно сделать к примеру так, сделать проверку в мемо на наличие в первой строчке определенных слов, если есть то ничего не делать, иначе удалить?

[Пепел Феникса]

конечно можно.
Pos в помощью.

[hacknet]

Сообщение от Пепел Феникса

конечно можно.
Pos в помощью.

нашел код

If Pos(',',Edit1.Text)=0 then

все понятно, ну а так скажем куда можно вбить слова для проверки? желательно в столбик? и как сделать проверку в этом случае? спасибо!

вот нашел то что надо, только тут для одного слова, а куда можно вбить еще несколько, для проверки? что использовать? если не сложно можно кодом привести? спасибо

procedure TForm1.Button1Click(Sender: TObject);
var
Find:string; // Искомая строка
i:integer;
begin
find:=Edit1.Text; // Записываем в find текст из Edit
For i:=0 to Memo1.Lines.Count-1 do // Запускаем цикл поиска строки
If Pos(FIND, Memo1.Lines[0])<>0
Then
showmessage('слово есть')
else
memo1.Clear;
Begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Lines[0])-1;
Memo1.SelLength:=Length(FIND);
End;
end;

[Veronikaa]

 for g := 0 to Memo2.Lines.Count - 1 do   begin
find:=Memo2.Lines.Strings[g]; 
//код
end;

с добавлением 2 мемо