| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с Memo [D6, Win95/98]
Janna © (2005-02-02 17:40:00)Помогите разобраться с memo!
Есть memo, в которое загружено из файла 15000 слов, каждое слово на новой строке, никаких пунктационных знаков нет. Ситуация: через inputbox пользователь ввел один символ(букву). Вопрос: как удалить из memo слова, в которых нету введенной пользователем буквы?
Janna (2005-02-02 18:34:00) [1]Благодарю всех за помощь!
Отдельное спасибо Almaz'у! :)
Drakosha (2005-02-02 18:15:00) [2]memo.lines[i] итое слово
для сверки юзай masks
memo.lines.delete(i) и удаляй
Almaz (2005-02-02 18:13:00) [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;
Удачи.
Janna (2005-02-02 18:07:00) [4]Уточню: через inputbox пользователь ввел один символ(букву), которая присваивается строковой переменной, потом, как я полагала, запускается цикл, в котором проверяется каждое слово на наличие или отсутствие веденной пользователем буквы, слова в которых нет этой самой буквы удаляются. Проблема: я не в курсе как проверить слово и удалить его. Кто-нибудь может помочь?
Neznaika (2005-02-02 17:49:00) [5]х:=индекс строки в которой нет нужной буквы
lines[x].text:='';
:)
или я не понял вопрос?
| |
