Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.25;
Скачать: CL | DM;

Вниз

Поиск в строке   Найти похожие ветки 

 
Jax   (2005-09-01 14:01) [0]

Мастера!
Подскажите, долбаюсь второй день!
Цель: выдрать из Edit1.Text определённый набор символов, заменить его на другой набор символов и всё это вывести в Memo.
Пробую через Copy().. получаются не все варианты
Нужно чтоб находило набор символов вне зависимости от пробелов или спец. знаков. У меня получается сделать только варианты "xaaa", "aaax" если искомая фраза есть "aaa".
Пробую так:

begin
 st:="abc";
     for i:= 0 to Length(edit1.text) do
          begin
         s:=Copy(Edit1.text,i,Length(st)+i);
         if s=st then memo.lines.add("");
          s:="";
          end;
 end;


Что не так? :(


 
begin...end ©   (2005-09-01 14:05) [1]

Переформулируйте вопрос.


 
Юрий Зотов ©   (2005-09-01 14:09) [2]

Поиск подстроки - Pos.
Поиск и замена подстрок - StringReplace.

Чтобы не зависело от пробелов и каких-то еще символов - пройти по символам строки в цикле и исключить из нее ненужные символы (Delete), а уж потом делать поиски и/или замены.



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

Текущий архив: 2005.09.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.046 c
4-1122615350
rentgen
2005-07-29 09:35
2005.09.25
TButton(ALL).Caption:= Батон ;


6-1117675691
Lex_!
2005-06-02 05:28
2005.09.25
Работа с Explorerом (программный выбор елементов)


14-1125557938
user_
2005-09-01 10:58
2005.09.25
Ограниченный доступ к папке


14-1125467609
CHES
2005-08-31 09:53
2005.09.25
Поклонники Opera. Всем срочно на их сайт


14-1125492959
Иксик
2005-08-31 16:55
2005.09.25
Есть ли способ узнать какой DNS сервер установлен по IP?