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 )))

AnsiReplaceStr
AnsiReplaceText

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

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