Работа с Memo

← →
Janna (2005-02-02 17:40) [0]

Помогите разобраться с memo!
Есть memo, в которое загружено из файла 15000 слов, каждое слово на новой строке, никаких пунктационных знаков нет. Ситуация: через inputbox пользователь ввел один символ(букву). Вопрос: как удалить из memo слова, в которых нету введенной пользователем буквы?

← →
Neznaika © (2005-02-02 17:49) [1]

х:=индекс строки в которой нет нужной буквы
lines[x].text:="";

:)

или я не понял вопрос?

← →
Janna (2005-02-02 18:07) [2]

Уточню: через inputbox пользователь ввел один символ(букву), которая присваивается строковой переменной, потом, как я полагала, запускается цикл, в котором проверяется каждое слово на наличие или отсутствие веденной пользователем буквы, слова в которых нет этой самой буквы удаляются. Проблема: я не в курсе как проверить слово и удалить его. Кто-нибудь может помочь?

← →
Almaz © (2005-02-02 18:13) [3]

Попробуйте так, если я вас правильно понял:

var S: String; I: Integer; begin I := 0; S := InputBox("Symbol", "Enter symbol", ""); while I < Memo1.Lines.Count do if Pos(S, Memo1.Lines[I]) = 0 then Memo1.Lines.Delete(I) else Inc(I); end;

Удачи.

← →
Drakosha (2005-02-02 18:15) [4]

memo.lines[i] итое слово
для сверки юзай masks
memo.lines.delete(i) и удаляй

← →
Janna (2005-02-02 18:34) [5]

Благодарю всех за помощь!
Отдельное спасибо Almaz"у! :)

Работа с Memo Найти похожие ветки