VPF::Найденый текст +4 символа впереди

elestrago

Дата 20.1.2008, 15:53 (ссылка)

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

Загрузка ...

Шустрый

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

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

Парни в общем используя этот код

Код


function SearchForText_AndSelect(RichEdit: TRichEdit; SearchText: string): Boolean; 

var 

StartPos, Position, Endpos: Integer; 

begin 

StartPos := 0; 

with RichEdit do 

begin 

   Endpos := Length(RichEdit.Text); 

   Lines.BeginUpdate; 

   while FindText(SearchText, StartPos, Endpos, [stMatchCase])<>-1 do 

   begin 

     Endpos   := Length(RichEdit.Text) - startpos; 

     Position := FindText(SearchText, StartPos, Endpos, [stMatchCase]); 

     Inc(StartPos, Length(SearchText)); 

     SetFocus; 

     SelStart  := Position; 

     SelLength := Length(SearchText); 

   end; 

   Lines.EndUpdate; 

end; 

end; 

 

 

procedure TForm1.Button1Click(Sender: TObject); 

begin 

SearchForText_AndSelect(RichEdit1, 'Some Text'); 

end;

я в ричэдите исчу текст но как сделать так чтоб по нажите кнопки + ко всему этому выводились еще 4 бита после Some Text просто после Some Text идет динамический текст

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

MetalFan

Дата 20.1.2008, 17:01 (ссылка)

(голосов:2)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

Цитата(elestrago @ 20.1.2008, 15:53

)

еще 4 бита

автор путает биты и байты(символы)?

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

There are always someone smarter than you...

elestrago

Дата 21.1.2008, 11:27 (ссылка)

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

Загрузка ...

Шустрый

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

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

точна

ну короче + 4 символа smile

ну так че мне поможет кто нибуть?

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

mmvds

Дата 21.1.2008, 11:34 (ссылка)

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

Загрузка ...

Бывалый

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

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

это же твоя же тема: http://forum.vingrad.ru/forum/topic-192139.html

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