Скачать: CL | DM;

ReplaceStr   Найти похожие ветки 

← →
Коля   (2003-08-27 02:25) [0]

Привет, мастера.

Есть ли функция, заменяющая в str1 str2 на str3.

На пример:
str1 - "Наша Маша горько плачет"
str2 - "ша"
str3 - "БЕБЕ"

После вызова
ReplaceStr(str1,str2,str3)
str1 - "НаБЕБЕ МаБЕБЕ горько плачет"

---

← →
Спрашивающий_   (2003-08-27 03:51) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
I,J:Integer;
S,S1,S2:String;
begin
S:=Edit1.Text;
S1:=Edit2.Text;
S2:=Edit3.Text;
J:=Pos(S1,S);
Repeat
Delete(S,J,Length(S1));
Insert(S2,S,J);
J:=Pos(S1,S);
Until J=0;
Text:=S;
end;
В этом примере не учтен регистр строки, если захочешь использовать этот пример для написания своей функции то учти этот момент.

---

← →
Германн ©   (2003-08-27 04:02) [2]

2 Спрашивающий_ (27.08.03 03:51) [1]
Не вдумываясь особо в приведенный пример, замечу, что я бы вместо repeat until поставил бы while.

---

← →
Спрашивающий_   (2003-08-27 04:22) [3]

2 Германн © (27.08.03 04:02) [2]
Да хоть что можно поставить лижбы работало быстро.

---

← →
default ©   (2003-08-27 05:31) [4]

SysUtils.StringReplace )))

---

← →
Hooch ©   (2003-08-27 06:42) [5]

AnsiReplaceStr
AnsiReplaceText

---

← →
Коля   (2003-08-27 08:23) [6]

>default © (27.08.03 05:31) [4]
Спасибо.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.018 c