|
#1
|
|||
|
|||
функция найти
как сделать чтоб актизировать функцию найти чтоб искал именно в том месте где хочешь, например в memo1.
или можно ли если есть 5 memo и у них visible:=false функция найти нашел и в нивидемых Мемо желаемый текст зарание спосибо |
#2
|
||||
|
||||
Вы с какого языка это перевели? Это-же надо уметь так вываливать свои мысли.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
Цитата:
ну все просто пример для findtext / что не понятно же ? немогу связать его с мемо |
#4
|
||||
|
||||
Ну вот гдето так:
Код:
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 Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#5
|
||||
|
||||
Насчет невидимых Мемо. Найти-то можно, только как вы визуально сие событие представляете?
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#6
|
|||
|
|||
Цитата:
просто иногда статья бывает очень длинная и не помещяется на 1 мемо приходится сделать несколько и невидимых. хотел узнать, можно ли чтоб нашел текст в нужном мемо и сдел его видимым. ну думаю с этим кодом можно достич такого результата немного добавив где то например memo6.visible:=true |
#7
|
|||
|
|||
Цитата:
конешно не в тему но может Ты знаешь, почему в некоторых комп-ах иногда руские шрифты в прилжентях и в юнитах показывает как "?"(ворос) ? |
#8
|
||||
|
||||
Однозначно трудно ответить, причин может быть несколько, отсутствие родного шрифта, несоответствие текущей локали с локалью шрифта, неподходит кодовая страница и т.д.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |