Текущий архив: 2005.02.20;
Скачать: 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 вся ветка
Текущий архив: 2005.02.20;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.037 c
