Скачать: CL | DM;

как выделить найденый текст в 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;

---

← →
Anatoly Podgoretsky ©   (2003-04-22 10:43) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c