Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Закрытая тема
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 14.06.2013, 21:42
Аватар для AlexandrV
AlexandrV AlexandrV вне форума
Начинающий
 
Регистрация: 10.02.2013
Сообщения: 197
Версия Delphi: XE3
Репутация: -624
Хорошо

Осталось сделать функции Найти и найти далее но не знаю как это сделать

Нужно чтобы они выделяли текст. Использую компонент RichEdit если будут эти функции то смогу сделать покраску текста.

Надо использовать стандартные компоненты для этого тоесть кнопка найти кнопка найти далее и текстовое поле Edit для ввода какое слова нужно найти и выделить. Найти далее должна продолжать поиск или лучше скажите как это все в одной функции сделать которое автоматом все найденные слова выделит.

Можете написать как это сделать. Буду очень благодарен и оно значительно повысит уровень моего редактора.

Ой извините ну да эти функции мне тоже нужны но еще мне нужна 1 функция короче 3 функции нужны
1 Функция. Найти с выделение
2 Функция Найти далее с выделением
3 Функция. Выделить от и до
например есть код цвета

MaxID:18
0:
1:SER%d
2:[$FFFF00]Привет мой господин[$FFFF00]Разгромим врага.

Надо от этго кода цвета [$FFFF00] до этого [$FFFF00] выделить этот текст Привет мой господин а если к примеру текст такой
MaxID:18
0:
1:SER%d
2:[$FFFF00] Привет мой господин

то тут просто выделяем текст до конца код для поиска можно использовать только [$ и ] все остальное это шестнадцетеричный код цвета

можете помоч

Последний раз редактировалось M.A.D.M.A.N., 14.06.2013 в 22:09.
  #2  
Старый 14.06.2013, 21:59
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Я не так давно выкладывал пример подсветки синтаксиса в RichEdit - ищите на форуме.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.

Последний раз редактировалось Страдалецъ, 14.06.2013 в 22:14.
  #3  
Старый 14.06.2013, 22:43
Аватар для AlexandrV
AlexandrV AlexandrV вне форума
Начинающий
 
Регистрация: 10.02.2013
Сообщения: 197
Версия Delphi: XE3
Репутация: -624
По умолчанию

Мне не это нужно а покраска текста как я уже говорил и 2 функции
Найти и Найти далее
  #4  
Старый 14.06.2013, 23:04
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Мда... Думаете есть серьезная разница?
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение:
Alegun (14.06.2013)
  #5  
Старый 15.06.2013, 13:49
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

используй EM_FINDTEXT / EM_FINDTEXTEX
__________________
Пишу программы за еду.
__________________
  #6  
Старый 16.06.2013, 08:18
Аватар для AlexandrV
AlexandrV AlexandrV вне форума
Начинающий
 
Регистрация: 10.02.2013
Сообщения: 197
Версия Delphi: XE3
Репутация: -624
По умолчанию

Цитата:
Сообщение от NumLock
используй EM_FINDTEXT / EM_FINDTEXTEX

Можешь мне пример дать поиска и покраски с EM_FINDTEXT / EM_FINDTEXTEX. Буду очень благодарен.

Хотя не надо. Есть идея. Скажите как выделить весь текст начиная с курсора и напишите 2 функции

Найти

Найти Далее

Последний раз редактировалось M.A.D.M.A.N., 16.06.2013 в 08:56.
  #7  
Старый 16.06.2013, 08:56
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

SelStart/SelLength
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
  #8  
Старый 16.06.2013, 09:08
Аватар для AlexandrV
AlexandrV AlexandrV вне форума
Начинающий
 
Регистрация: 10.02.2013
Сообщения: 197
Версия Delphi: XE3
Репутация: -624
По умолчанию

Цитата:
Сообщение от M.A.D.M.A.N.
SelStart/SelLength
можешь подробнее

SelStart это скорее начиная с какого символа а

SelLength от слова длинна до какого должно означать. Но я говорю что мне надо с начало курсора и до конца SelText надо использовать. Не могу придумать скажите пожалуйста.
  #9  
Старый 16.06.2013, 09:45
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

в файле справки есть код поиска и выделения текста в RichEdit.
__________________
Пишу программы за еду.
__________________
  #10  
Старый 16.06.2013, 09:48
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Цитата:
Сообщение от AlexandrV
можешь подробнее
В угуле забанили?
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
  #11  
Старый 16.06.2013, 10:00
Аватар для AlexandrV
AlexandrV AlexandrV вне форума
Начинающий
 
Регистрация: 10.02.2013
Сообщения: 197
Версия Delphi: XE3
Репутация: -624
По умолчанию

Цитата:
Сообщение от NumLock
в файле справки есть код поиска и выделения текста в RichEdit.
мне не поиск нужен а определить координаты курсора и начиная с с координат курсора до конца выделить текст
  #12  
Старый 16.06.2013, 10:02
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

CaretPos, лентяй. В справке тоже есть такое. По поводу выделения я уже написал.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
  #13  
Старый 16.06.2013, 10:14
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

координаты каретки вообще для этой задачи не нужны будут!!!

http://zalil.ru/34584396
__________________
Пишу программы за еду.
__________________

Последний раз редактировалось NumLock, 16.06.2013 в 10:34.
  #14  
Старый 16.06.2013, 10:34
Аватар для AlexandrV
AlexandrV AlexandrV вне форума
Начинающий
 
Регистрация: 10.02.2013
Сообщения: 197
Версия Delphi: XE3
Репутация: -624
По умолчанию

Пытался сделать так
RED1.SelStart:=System.Pos(']',RED1.Text);
RED1.SelLength:=Length(RED1.Text)-system.Pos('[$',RED1.Text);

но он не работает как надо. Тогда надо использовать не просто поиск а найти далее так как код после которого нужно выделять например вот [$FF8080]

Он может быть [$FF8080] [$C08000] [$000040]

общее у них только [$ и ] надо по этим строчком выделить текст

Надо выделять так чтобы в итоги получалось это



так что надо еще выделять до начало новой строки не только до [$

Последний раз редактировалось AlexandrV, 16.06.2013 в 10:37.
  #15  
Старый 16.06.2013, 10:44
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Тебпе принципиально нужен ричэдит? Может SynEdit или Dream подойдет лучше?
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Закрытая тема


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 08:19.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter