Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1212380 Wed, 09 Aug 2006 17:41:22 +0000 Поиск строки в Мемо https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1212380 Цитата Soul :) @
    memo1.text:=stringreplace(memo1.text,substr,'',[rfReplaceAll, rfIgnoreCase]);

такой вариант для меня лучше, т.к. сразу удаляет из всех строк нужную подстроку
как тем временем первый вариант только первое найденное и нужно вызывать еще раз
Soul :), спасибо :yes:]]> olga90 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1212352 Wed, 09 Aug 2006 17:18:46 +0000 Поиск строки в Мемо https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1212352
    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]);
]]> Soul :) Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1212329 Wed, 09 Aug 2006 17:07:18 +0000 Поиск строки в Мемо https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1212329 Цитата Anatoly Podgoretsky @
    Pos() должен быть > 0

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

так как удалить, я так и не поняла??? :huh:]]> olga90 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1212240 Wed, 09 Aug 2006 16:34:02 +0000 Поиск строки в Мемо https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1212240 SelText := ''
SelStart вернет Pos, SelLength=длина текста поиска
Pos() должен быть > 0]]> Anatoly Podgoretsky Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1212227 Wed, 09 Aug 2006 16:28:21 +0000 Поиск строки в Мемо https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1212227 т.е. нахожу так
    if Pos('55', Memo1.Text)=0 then
    //нужно их удалить из Мемо1
]]> olga90 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1201478 Wed, 02 Aug 2006 16:43:47 +0000 Поиск строки в Мемо https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1201478 olga90 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1201469 Wed, 02 Aug 2006 16:24:32 +0000 Поиск строки в Мемо https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1201469 Цитата olga90 @
а можно пример или чуть поподробнее


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


Вместо '55' - подставь то, что тебе надо найти]]> Alex Wolf Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1201461 Wed, 02 Aug 2006 16:17:25 +0000 Поиск строки в Мемо https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1201461
    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;
]]> DMX_XC Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1201459 Wed, 02 Aug 2006 16:16:13 +0000 Поиск строки в Мемо https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1201459 Цитата Shaggy @
Memo.Text+pos

а можно пример или чуть поподробнее]]> olga90 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1201441 Wed, 02 Aug 2006 16:02:25 +0000 Поиск строки в Мемо https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1201441 Shaggy Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1201439 Wed, 02 Aug 2006 15:58:20 +0000 Поиск строки в Мемо https://forum.sources.ru/index.php?showtopic=150189&view=findpost&p=1201439 Как мне в этом Мемо1 организавать поиск средующей построки -####
и если ее нет в Мемо1 то выдать сообщение об этом]]> olga90 Delphi: Общие вопросы