Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 28.11.2010, 12:59   #1
Asblue
Пользователь
 
Аватар для Asblue
 
Регистрация: 21.10.2010
Сообщений: 78
Восклицание Поиск по тексту в Memo

Здравствуйте!
Вот есть две формы. В Form1 в Memo загружаем текстовый файл, нажимаем на кнопку и открывается Form2.
При нажатии на кнопку в Form2 осуществляется поиск по тексту, загруженному в Form1.Memo1 и выводится в Form2.Memo1.
Вложение 32581
В общем, нужно, чтоб выводились все строки после 'Comments:', но у меня в коду выводится только та строка, которая находится в той же строке, что и 'Comments:'.
Помогите пожалуйста исправить, буду очень благодарна! ^___^
Код:
procedure TForm2.Button2Click(Sender: TObject);
var i:integer;
    s:string;
begin
for i:=0 to Form1.Memo1.Lines.Count-1 do
if Pos('Comments:', Form1.Memo1.Lines.Strings[i])<>0 then
begin
s:=Form1.Memo1.Lines.Strings[i];
delete(s,1,pos(' ',s));
Memo1.Lines.Add(s);
end;
end;
Asblue вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
поиск по тексту Cmon Помощь студентам 2 16.07.2010 02:08
поиск в Memo Yokka Общие вопросы C/C++ 1 24.05.2010 15:50
Поиск в MEMO dimafe6 Общие вопросы Delphi 9 09.02.2010 22:03
Поиск по тексту khofa Общие вопросы Delphi 6 08.02.2010 11:18
Присваивание тексту Memo значения из TStringList Alex Cones Общие вопросы Delphi 10 14.08.2009 20:07


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840