Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

10th
Май

Поиск и замена в memo

Posted by Chas under Delphi

вообщем дело вот в чем не знаю как прописать код в программе чтобы он искал текст из edit1 и заменял на то что в edit2

Noor
Можно готовое взять и заточить под себя

function Replace(Str, X, Y: string): string;

{Str - строка, в которой будет производиться замена.

 X - подстрока, которая должна быть заменена.

 Y - подстрока, на которую будет произведена заменена}
var

  buf1, buf2, buffer: string;

  i: Integer;
begin

  buf1 := '';

  buf2 := Str;

  Buffer := Str;
  while Pos(X, buf2) > 0 do

  begin

    buf2 := Copy(buf2, Pos(X, buf2), (Length(buf2) - Pos(X, buf2)) + 1);

    buf1 := Copy(Buffer, 1, Length(Buffer) - Length(buf2)) + Y;

    Delete(buf2, Pos(X, buf2), Length(X));

    Buffer := buf1 + buf2;

  end;
  Replace := Buffer;

end;
 //Пример использования:

procedure TForm1.Button1Click(Sender: TObject);

var

  a: Integer;

begin

  for a := 0 to Memo1.Lines.Count do

    Memo1.Lines[a] := Replace(Memo1.Lines[a], 'Штаны', '-Штаны-');

end;