Фоновый поиск

← →
Dominus (2004-07-02 15:25) [0]

Подскажите, как произвести фоновый поиск текста(Найти далее) в Memo? Если можно с примером

← →
Семен Сорокин © (2004-07-02 15:29) [1]

фоновый - только в дополнительном потоке.

← →
Тимохов © (2004-07-02 15:31) [2]

сейчас все начтун выяснять, что автор вкладывал в поняте "фоновый"...

← →
clickmaker © (2004-07-02 15:44) [3]

Да, Dominus, что ты вкладываешь в понятие "фоновый" ? :)

← →
TUser © (2004-07-02 16:52) [4]

Posex в отдельном потоке. Будет тебе фоновый

← →
Dominus (2004-07-02 17:05) [5]

Найти далее :) Без вызова окна поиска, но тоже слово, которое искалось

← →
Тимохов © (2004-07-02 17:07) [6]

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

← →
TUser © (2004-07-02 17:15) [7]

Ну тогда селай окошко поиска Stay on Top, и не скрывай его.

← →
Тимохов © (2004-07-02 17:15) [8]

> Ну тогда селай окошко поиска Stay on Top, и не скрывай его.

и не диалоговым, т.е. не showmodal!

← →
Dominus (2004-07-02 17:25) [9]

Не совсем так:) Первый раз вызывается окно поиска, нажимается найти, оно скрывается, в мемо происходит поиск текста, затем при нажатии определенный клавиши происходит поиск далее по тексту, но без показа окна поиска.

← →
default © (2004-07-02 17:27) [10]

ну вроде ты всё описал...в чём проблема?

← →
Digitman © (2004-07-02 17:28) [11]

> Dominus (02.07.04 17:25) [9]

никакого отношения реализация польз.граф.интерфейса такой логики к "фоновому поиску" не имеет

← →
Fay © (2004-07-02 17:28) [12]

2Dominus (02.07.04 17:25) [9]
Ну так и сделай! В чём сложность?

Dominus (02.07.04 17:25) [9]
под "фоновой" обработкой, обычно, понимают обработку в потоке непользовательского интерфейса, т.е. в потоке не владеющим никаким окном(поток владеющий окном это тот поток который его создал)

← →
Dominus (2004-07-02 17:42) [14]

знал бы как, сделал:)

что-то типа этого
const
SubStr = "dog";

var
Form1: TForm1;
NextPos: Cardinal = 1;
Ps: Cardinal;

implementation

{$R *.dfm}

procedure TForm1.SearchClick(Sender: TObject);
begin
Ps := Pos(SubStr, PChar((@Memo1.Lines.Text[NextPos])));
if Ps <> 0 then begin
Inc(NextPos, Ps - 1);
Memo1.SelStart := NextPos - 1;
Memo1.SelLength := Length(SubStr);
Memo1.SetFocus;
Inc(NextPos, Length(SubStr));
end else NextPos := 1
end;

Нут так posex чем не устраивает?

← →
Dominus (2004-07-02 19:32) [17]

Все работает:) Всем спасибо:)

← →
Dominus (2004-07-02 19:33) [18]

p.s. а в мемо можно сделать REDO? или только UNDO есть?

Фоновый поиск Найти похожие ветки