[Edi]

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

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

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

[Edi]

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

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

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

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

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

Код:

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.

Код:

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]

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

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

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

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

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