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

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

← →
..::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 вся ветка

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



Память: 0.47 MB
Время: 0.044 c