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

Вниз

Поиск   Найти похожие ветки 

 
..::KraN::.. ©   (2007-04-20 14:44) [0]

Как сделать поиск в компоненте TMemo?


 
Ega23 ©   (2007-04-20 14:48) [1]

Pos + F1


 
{RASkov}   (2007-04-20 15:05) [2]

> [0] ..::KraN::.. ©   (20.04.07 14:44)

Натрави на него(Мему) TFindDialog....


 
Alexey (AZ)   (2007-04-20 15:06) [3]

Memo1.Lines.Find ?


 
Германн ©   (2007-04-20 15:13) [4]


> {RASkov}   (20.04.07 15:05) [2]
>
> > [0] ..::KraN::.. ©   (20.04.07 14:44)
>
> Натрави на него(Мему) TFindDialog....
>

И что дальше?


 
{RASkov}   (2007-04-20 15:58) [5]

> [4] Германн ©   (20.04.07 15:13)
> И что дальше?

А дальше [1] :)


 
fd979 ©   (2007-04-20 16:36) [6]

     for I := 0 to Memo1.Lines.Count do
     begin
       S1 := UpperCase(Memo1.Lines[I]);
       PosReturn := Pos(UpperCase(edit1.Text), S1);

       if PosReturn <> 0 then {found!}
       begin
         SkipChars := 0;
         for J := 0 to I - 1 do
           SkipChars := SkipChars + Length(Memo1.Lines[J]);
         SkipChars := SkipChars + (I*2);
         SkipChars := SkipChars + PosReturn - 1;
         Memo1.SetFocus;
         Memo1.SelStart := SkipChars;
         Memo1.SelLength := Length(edit1.Text);
         Bool := true;
         Break;
       end;
     end;


Break - можешь не ставить, если хочешь чтобы искало дальше, но надо будет PosReturn присвоить 0 сначала, да и обрабатывать случай когда нашел. А еще лучше после того, как нашел (либо вообще с самого начала) определять на какой строке находится курсор и искать ниже.. Вобщем смотри сам дальше.


 
..::KraN::.. ©   (2007-04-21 12:55) [7]


> Натрави на него(Мему) TFindDialog....

Вот именно что, я пробовал его вызывать, но при вводе в поле слова вместо русских букв вылазят какие-то иероглифы.


 
{RASkov}   (2007-04-21 15:07) [8]

> [7] ..::KraN::.. ©   (21.04.07 12:55)
> Вот именно что, я пробовал его вызывать, но при вводе в
> поле слова вместо русских букв вылазят какие-то иероглифы.

Не понял, где и что у тебя не так... в самом диалоге русбуквы не отображаются? Приведи код вызова диалога и его OnFind, если что подправим...
Но с "буквами" фик знает....


 
..::KraN::.. ©   (2007-04-22 20:55) [9]

Ну я вызываю его FindDialog1.execute, запускаю программу, ввожу в поле какое-нибудь русское слово а вместо этого другие буквы, с английским языком нормально. может кроме FindDialog1.execute надо ещё что-нибудь делать???



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

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

Наверх





Память: 0.46 MB
Время: 0.185 c
2-1177432489
dzhagr
2007-04-24 20:34
2007.05.13
Проблема с SQL-запросом.


15-1176546874
parus
2007-04-14 14:34
2007.05.13
ASP VB Script


15-1176289119
Layner
2007-04-11 14:58
2007.05.13
HKEY_LOCAL_MACHINE доступен ли для "Пользователей" в XP/2000/3?


2-1177005194
Quattro
2007-04-19 21:53
2007.05.13
почтовый клиент


2-1177411845
zet
2007-04-24 14:50
2007.05.13
Создание процедур





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский