| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
---|Ветка была без названия|---
Crey © (2002-11-14 13:41:00)Никто не сталкивался с поиском текста в richedit и txt файлом на 0.5Mb? такая забавная картина получается в течении 10 сек... при 900Mhz :( так и ко всему прочему его бы еще и продолжить не помешало... пробовал исходник из какой-то книги.
Знакомый, загнав 2Mb - просто повесил машину.
RichEdit1.SelStart:=
Pos(AnsiLowerCase(FindText),
AnsiLowerCase(Copy(RichEdit1.Lines.Text,SPos+1,
Length(RichEdit1.Lines.Text))))+Spos-1;
В общем подсобите... коль смогите... по почте могу доступней объяснить, если что...
Crey (2002-11-19 15:22:00) [1]Всем, уделившим внимание, выражаю благодарность:) тема закрыта, текст найден:))) признаю, был малоосведомлен:))))
Smithson (2002-11-18 16:44:00) [2]C:\Program Files\Borland\Delphi5\Source\VCL + [b]Alt+F7[b/] +
файлы - *.pas, содержищие EM_FINDTEXT(EX) и читай!
han_malign (2002-11-18 16:40:00) [3]Searches a given range in the text for a target string.
type
TSearchType = (stWholeWord, stMatchCase);
TSearchTypes = set of TSearchType;
function FindText(const SearchStr: string; StartPos, Length: Integer; Options: TSearchTypes): Integer;
Description
Use FindText to search a range of text in a rich edit control for the string specified by the SearchStr parameter. Only the text in the range starting at the position StartPos and continuing through the next Length positions will be searched. Use Options to specify whether the search should match whole words only and whether the search should be case sensitive. FindText returns the position of the search string, where 0 is the position of the first character in the rich edit control (as opposed to the first position in the search range). If the search string does not appear in the indicated range, FindText returns -1.
Use FindText rather than programmatically searching through the text of the control, to keep from being thrown off by the encoding of rich text characteristics.
Crey (2002-11-18 16:12:00) [4]эх... и к чему бы это... ну не знакомо мне:((( только начинаю :(((
Song (2002-11-14 13:49:00) [5]EM_FINDTEXT(EX)
| |
