Форум: "Основная";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];
Внизкак выделить найденый текст в 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c