Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.07.09;
Скачать: [xml.tar.bz2];

Вниз

определение индекса строки по найденному слову   Найти похожие ветки 

 
arturich ©   (2006-06-24 02:20) [0]

Здравствуйте! У меня такая проблемка возникла: я нахожу по поиску некое слово в большом тексте richedit, но не знаю индекс строки, в которой находится найденное слово. Никак не могу догнать, как её узнать.

На деле, мне нужно вставить в ячейку таблицы целиком всю строку, в которой находится найденное слово.

Заранее вам спасибо!


 
!_SM_!   (2006-06-24 03:05) [1]

ShowMessage(RichEdit1.Lines[N]);


 
!_SM_!   (2006-06-24 03:06) [2]

Блин, просмотрел про индекс :(
А как ищешь слово?


 
Германн ©   (2006-06-24 03:34) [3]

Ищи не в большом тексте richedit, а в его строках (Lines).


 
arturich ©   (2006-06-24 04:09) [4]

я ищу следующим образом:

var
 x: LongInt;
 StartPos, ToEnd: Integer;

...

   x := RichEdit1.FindText("ГБ", StartPos, ToEnd, [stMatchCase]);
   if FoundAt <> -1 then //выделение найденного слова "ГБ"
   begin
     SetFocus;
     SelStart := FoundAt;
     SelLength := Length("ГБ");
   end;


а далее должно быть так:

f1book1.TextRC[3, 2]:=lines.Strings[???]; //вставка в ячейку таблицы строки, которую не могу определить :-[


 
!_SM_!   (2006-06-24 14:14) [5]

f1book1.TextRC[3, 2]:=RichEdit1.Lines[RichEdit1.CaretPos.y];


 
arturich ©   (2006-06-25 02:10) [6]

спасибо, !_SM_!, теперь всё ок!



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

Форум: "Начинающим";
Текущий архив: 2006.07.09;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.009 c
2-1150648613
mctarik
2006-06-18 20:36
2006.07.09
Почему ничего не происходит при выполнении данного кода ...


9-1127402261
Домовенок
2005-09-22 19:17
2006.07.09
Пластилиновая стратегия (!!)


2-1150978238
Delphi basic
2006-06-22 16:10
2006.07.09
Имя компьютера


2-1150983823
DimaRik
2006-06-22 17:43
2006.07.09
помогите


2-1150635281
antoxa2005
2006-06-18 16:54
2006.07.09
Интересно почему, Если в IBDataBase.DatebaseName:= Comp1 d mybd.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский