Скачать: CL | DM;

Работа с 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"у! :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c