[Edi]

как сделать чтоб актизировать функцию найти чтоб искал именно в том месте где хочешь, например в memo1.
или можно ли если есть 5 memo и у них visible:=false функция найти нашел и в нивидемых Мемо желаемый текст
зарание спосибо

[Страдалецъ]

Вы с какого языка это перевели? Это-же надо уметь так вываливать свои мысли.

[Edi]

Сообщение от Страдалецъ

Вы с какого языка это перевели? Это-же надо уметь так вываливать свои мысли.

ну все просто
пример для findtext / что не понятно же ? немогу связать его с мемо

[Страдалецъ]

Ну вот гдето так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

unit Unit24;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ActnList, PlatformDefaultStyleActnCtrls, ActnMan, StdCtrls;   type   TForm24 = class(TForm)     FindDialog1: TFindDialog;     Memo1: TMemo;     Edit1: TEdit;     Memo2: TMemo;     Edit2: TEdit;     ActionManager1: TActionManager;     Action1: TAction;     procedure Action1Execute(Sender: TObject);     procedure FindDialog1Find(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form24: TForm24;   implementation  Uses StrUtils; {$R *.dfm}   procedure TForm24.Action1Execute(Sender: TObject); begin  if not FindDialog1.Execute then Exit; end;   procedure TForm24.FindDialog1Find(Sender: TObject); Var i: Integer; begin  if Form24.ActiveControl = Memo1  then begin       Memo1.SelStart := PosEx(FindDialog1.FindText, Memo1.Text, Succ(Memo1.SelStart+Memo1.SelLength))-1;       if Memo1.SelStart = -1 then Exit;       Memo1.SelLength := Length(FindDialog1.FindText);       Memo1.SetFocus;       end; end;   end.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65

object Form24: TForm24   Left = 0   Top = 0   Caption = 'Form24'   ClientHeight = 260   ClientWidth = 635   Color = clBtnFace   Font.Charset = DEFAULT_CHARSET   Font.Color = clWindowText   Font.Height = -11   Font.Name = 'Tahoma'   Font.Style = []   OldCreateOrder = False   PixelsPerInch = 96   TextHeight = 13   object Memo1: TMemo     Left = 16     Top = 16     Width = 281     Height = 89     Lines.Strings = (       'Memo1')     TabOrder = 0   end   object Edit1: TEdit     Left = 16     Top = 112     Width = 281     Height = 21     TabOrder = 1     Text = 'Edit1'   end   object Memo2: TMemo     Left = 16     Top = 136     Width = 281     Height = 89     Lines.Strings = (       'Memo2')     TabOrder = 2   end   object Edit2: TEdit     Left = 16     Top = 232     Width = 281     Height = 21     TabOrder = 3     Text = 'Edit2'   end   object FindDialog1: TFindDialog     OnFind = FindDialog1Find     Left = 304     Top = 16   end   object ActionManager1: TActionManager     Left = 336     Top = 16     StyleName = 'Platform Default'     object Action1: TAction       Caption = 'Action1'       ShortCut = 114       OnExecute = Action1Execute     end   end end

[Страдалецъ]

Насчет невидимых Мемо. Найти-то можно, только как вы визуально сие событие представляете?

[Edi]

Сообщение от Страдалецъ

Насчет невидимых Мемо. Найти-то можно, только как вы визуально сие событие представляете?

просто иногда статья бывает очень длинная и не помещяется на 1 мемо
приходится сделать несколько и невидимых. хотел узнать, можно ли чтоб нашел текст в нужном мемо и сдел его видимым. ну думаю с этим кодом можно достич такого результата немного добавив где то например memo6.visible:=true

[Edi]

Сообщение от Страдалецъ

Насчет невидимых Мемо. Найти-то можно, только как вы визуально сие событие представляете?

конешно не в тему но может Ты знаешь, почему в некоторых комп-ах иногда руские шрифты в прилжентях и в юнитах показывает как "?"(ворос) ?

[Страдалецъ]

Однозначно трудно ответить, причин может быть несколько, отсутствие родного шрифта, несоответствие текущей локали с локалью шрифта, неподходит кодовая страница и т.д.