Скачать: CL | DM;

---|Ветка была без названия|---   Найти похожие ветки 

← →
Crey   (2002-11-14 13:41) [0]

Никто не сталкивался с поиском текста в 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;
В общем подсобите... коль смогите... по почте могу доступней объяснить, если что...

---

← →
Song ©   (2002-11-14 13:49) [1]

EM_FINDTEXT(EX)

---

← →
Crey   (2002-11-18 16:12) [2]

эх... и к чему бы это... ну не знакомо мне:((( только начинаю :(((

---

← →
han_malign ©   (2002-11-18 16:40) [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.

---

← →
Smithson ©   (2002-11-18 16:44) [4]

C:\Program Files\Borland\Delphi5\Source\VCL + [b]Alt+F7[b/] +
файлы - *.pas, содержищие EM_FINDTEXT(EX) и читай!

---

← →
Crey   (2002-11-19 15:22) [5]

Всем, уделившим внимание, выражаю благодарность:) тема закрыта, текст найден:))) признаю, был малоосведомлен:))))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c