Форум: "Основная";
Текущий архив: 2003.09.08;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.08;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c
