Поиск строки в Мемо

[olga90]

есть компонент Мемо1 в нем имеется некоторый текст
Как мне в этом Мемо1 организавать поиск средующей построки -####
и если ее нет в Мемо1 то выдать сообщение об этом

[Shaggy]

Memo.Text+pos

[olga90]

Цитата Shaggy @ 02.08.06, 16:02

Memo.Text+pos

а можно пример или чуть поподробнее

[DMX_XC]

Если правильно понял тебя. Но эту процедуру я использовал для RichEdit

procedure TTextDoc.Stroka;
VAR
RLNum : LongInt;
RKNum : LongInt;
begin
RLNum := RichEdit.Perform(EM_LINEFROMCHAR, RichEdit.SelStart, 0);
RKNum := RichEdit.Perform(EM_LINEINDEX, RLNum, 0);
StatusBar1.Panels[0].text := 'Ст '+IntToStr(RLNum+1)+'    Кол '+IntToStr((RichEdit.SelStart-RKNum)+1);
end;

[Alex Wolf]

Цитата olga90 @ 02.08.06, 16:16

а можно пример или чуть поподробнее

if Pos('55', Memo1.Text)=0 then
  ShowMessage('Не найден текст "55"');

Вместо '55' - подставь то, что тебе надо найти

Сообщение отредактировано: Alex Wolf - 02.08.06, 16:27

[olga90]

Всем спасибо.

[olga90]

а как мне удалить найденные символы
т.е. нахожу так

if Pos('55', Memo1.Text)=0 then
//нужно их удалить из Мемо1

[Anatoly Podgoretsky]

SelStart, SelLength
SelText := ''
SelStart вернет Pos, SelLength=длина текста поиска
Pos() должен быть > 0

[olga90]

Цитата Anatoly Podgoretsky @ 09.08.06, 16:34

Pos() должен быть > 0

это конечно же так - я видать просмотрела

так как удалить, я так и не поняла???

[Soul :)]

ps:=Pos(substr, Memo1.Text);
if ps<>0 then
  begin
   st:=memo1.text;
   delete(st,ps,length(substr));
   memo1.text:=st;
  end;
 else
  showmessage('Ошибка!');

ИМХО так элегантнее, и удалит все вхождения подстроки в строку...

memo1.text:=stringreplace(memo1.text,substr,'',[rfReplaceAll, rfIgnoreCase]);

[olga90]

Цитата Soul  @ 09.08.06, 17:18

memo1.text:=stringreplace(memo1.text,substr,'',[rfReplaceAll, rfIgnoreCase]);

такой вариант для меня лучше, т.к. сразу удаляет из всех строк нужную подстроку
как тем временем первый вариант только первое найденное и нужно вызывать еще раз
Soul , спасибо