VPF::найти нужную строку в RichEdit - Форум программистов

Volkogriz

Дата 28.7.2013, 14:12 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: нет
Всего: 1

Доброе время суток!
Собственно Есть неопределённый текст в RichEdit сколько строк до например "Перечень неполадок:" неизвестно.
И сколько будет перечислено до "Выполнить в срок:" тоже неизвестно.
Нужно сохранить если дописано все строки между "Перечень неполадок:" и "Выполнить в срок:".
Честно не знаю как это осуществить(((
Помогите пожалуйста!
Заранее благодарен!
С уважением,
Volkogriz!

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

Rrader

Дата 28.7.2013, 16:06 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191

Пример поиска текста в TRichEdit есть тут

--------------------

Let's do this quickly!
Rest in peace, Vit!

Volkogriz

Дата 28.7.2013, 22:17 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: нет
Всего: 1

Дело в том что мне не искать надо а понять что это поле заполнено и изменить смету.
ЕСЛИ ЭТО ПОЛЕ НЕ ЗАПОЛНЕНО ТО НЕ ИЗМЕНЯТЬ))

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

northener

Дата 29.7.2013, 00:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Цитата(Volkogriz @ 28.7.2013, 22:17

)

Какое поле? В топике ни о каких полях не говорится.

P.S. И зачем так кричать?

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Volkogriz

Дата 29.7.2013, 20:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: нет
Всего: 1

Щас попытаюсь объяснить))
Не получается даже себе объяснить)))
Не поле) В ОБЩЕМ Есть неопределённый текст в RichEdit ))) он подгружается то есть создаётся автоматом типо:

Код


RichEdit .SelAttributes.Style:=[fsBold];
RichEdit .Lines.Add(PChar(Tuningini.ReadString('Parameters', 'Address', '')+' '));
RichEdit .SetSelTextBuf(PChar(Tuningini.ReadString('Parameters', 'City', '')+' '+ Form1.ComboBox1.Text+' '));
RichEdit .SetSelTextBuf(PChar(Tuningini.ReadString('Parameters', 'Street', '')+' '+ Edit8.Text +' '));
RichEdit .SetSelTextBuf(PChar(Tuningini.ReadString('Parameters', 'House', '')+' '+ Edit1.Text +' '));

Если что то дописано между строками "Перечень неполадок:" и "Выполнить в срок:"
После "Перечень неполадок:"
бла
например
бла бла
и заканчивается тутава перед "Выполнить в срок:"
то бланк сохраняется если пусто то не сохраняем бланк)
По умолчанию там пробел:

Код


Перечень неполадок:

Выполнить в срок:

Не могу доходчиво объяснить не получается почему то)))
Заранее благодарен!
С уважением,
Volkogriz!

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

northener

Дата 30.7.2013, 02:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Так и в чем проблема?
1. Ищем строку "Перечень неполадок:"

Код


 k:=Memo1.Lines.IndexOf('Перечень неполадок:');

2. Ищем строку "Выполнить в срок:"

Код


  m:=Memo1.Lines.IndexOf('Выполнить в срок:');

3. Проверяем что есть между этими строками:

Код


  Result:=False;
  for i:=k to m do begin
    if Memo1.Lines[i] <> '' then Result:=True;
    Break;
  end;

P.S.
В следующий раз отвечать на вопрос заданный с использованием "падокафского" жаргона не буду.

Это сообщение отредактировал(а) northener - 30.7.2013, 02:27

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »