как выделить найденый текст в memo?

← →
exo © (2003-04-21 18:19) [0]

for t:=0 to Memo1.Lines.Count - 1 do
Memo2.Lines.loadfromfile (Memo1.Lines[t]);
for i:=0 to Memo2.Lines.Count-1 do
begin // dr.SaveToFile("c:\MyWords.txt");
if pos("ЗАДНИЦУ",Memo2.Lines.text)>0 then begin showmessage("okey");
в memo1 находятся файлы,по идее файлы должны загружатся по очереди
и искатся заданное слово,а оно ищется только в одном.
подскажите плиз.
как выделить найденное слово?

← →
Anatoly Podgoretsky © (2003-04-21 18:22) [1]

Ни как, не поддерживается

← →
Shirson © (2003-04-22 09:36) [2]

Анатолий, вы не правы.
TMemo наследует от TCustomEdit проперти SelStart и SelLength. И ими прекрасно всё выделяется. Только во время выделения Memo должна быть "под фокусом". Например:
procedure TFMain.Button1Click(Sender: TObject); begin Memo1.SetFocus; Memo1.SelStart:=10; Memo1.SelLength:=5; end;

>exo © (21.04.03 18:19)
for t:=0 to Memo1.Lines.Count - 1 do
Memo2.Lines.loadfromfile (Memo1.Lines[t]);
for i:=0 to Memo2.Lines.Count-1 do
begin // dr.SaveToFile("c:\MyWords.txt");
if pos("ЗАДНИЦУ",Memo2.Lines.text)>0 then begin showmessage("okey");
в memo1 находятся файлы,по идее файлы должны загружатся по очереди
и искатся заданное слово,а оно ищется только в одном.

Правильно, оно ищется в последнем. Потому что Lines.loadfromfile полностью обновляет содержание Lines. У тебя проходит цикл
for t:=0 to Memo1.Lines.Count - 1 do Memo2.Lines.loadfromfile (Memo1.Lines[t]);
после него в lines остаётся загруженным последний файл и поиск идёт по нему. :)

← →
Bel © (2003-04-22 09:49) [3]

for t:=0 to Memo1.Lines.Count - 1 do begin Memo2.Lines.loadfromfile (Memo1.Lines[t]); for i:=0 to Memo2.Lines.Count-1 do begin // dr.SaveToFile("c:\MyWords.txt"); if pos("ЗАДНИЦУ",Memo2.Lines.text)>0 then begin showmessage("okey"); end; end;

Извиняюсь, перепутал с расскрасить

как выделить найденый текст в memo? Найти похожие ветки