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

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

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

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

Ответ
 
Опции темы
Старый 28.11.2010, 13: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 вне форума Ответить с цитированием
Ответ
Опции темы


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