Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Вниз

Поиск по Memo 


Sound   (2002-03-25 22:29) [0]

Как (поподробней) произвести поиск слово по Memo? С проверкой того нашли его или нет, а если да то в какой позиции.



KaPaT   (2002-03-25 22:34) [1]

Я думаю что надо использовать ф-цию POS.
У нее два параметра - строка и подстрока. Так вот она ищет подстроку в строке и возвращает номер символа с какого начинается совпадение. Но она ищет только первое совпадение.



Sound   (2002-03-25 22:47) [2]

Первое и надо, а как это будет выглядеть?



Atrem   (2002-03-25 23:39) [3]

var i:integer;
i:=pos("SearchWord",Memo1.text);
if i>0 then showmessage("Найдено на позиции №"+inttostr(i))
else showmessage("Не найдено)"



KaPaT   (2002-03-26 01:16) [4]

Вот полный код как бы я делал:
var
i,n : Integer;
begin
For i:=0 to Memo1.Lines.Count-1 do
begin
n:=Pos("Word",Memo1.Lines[i]);
If n<>0 then ShowMessage("Строка:"+IntTosTr(i+1)+"Позиция"+IntToStr(n))
end;
end;



KaPaT   (2002-03-26 01:18) [5]

Забыл! Код выше будет искать по всем строкам на первое совпадение в строке!



Sound   (2002-03-26 11:44) [6]

А если ищется слова без знания регистра его букв? к примеру Word, word, WORD, woRD.. и т.д.?



Andrey007   (2002-03-26 11:55) [7]

pos(AnsiUpperCase("Word"),AnsiUpperCase(Memo1.Lines[i])).
Но я не уверен относительно того, преобразовывает ли AnsiUpperCase русские буквы - Вам надо будет проверить.



Anatoly Podgoretsky   (2002-03-26 21:44) [8]

Andrey007 (26.03.02 11:55)
Нет, он поддерживает Ansi



MBo   (2002-03-26 22:04) [9]

i:=pos(AnsiUpperCase("123"),AnsiUpperCase(Memo1.Text));
if i>0 then
i:=memo1.perform(EM_LINEFROMCHAR,i-1,0);




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.022 c
1-22658           LiNkS                 2002-03-27 11:35  2002.04.08  
RxRichEdit


3-22554           Sergant               2002-03-15 15:50  2002.04.08  
Не могу совладать c EhLib 2.1


14-22831          VID                   2002-02-28 20:33  2002.04.08  
Посто интересно


14-22841          vajo                  2002-03-01 16:51  2002.04.08  
Win XP


3-22558           a_a_k                 2002-03-15 15:59  2002.04.08  
CalcFields