14.08.2010, 17:23
|
#6
|
AnyKey`щик
Регистрация: 04.08.2010
Сообщений: 7
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Help...Lib or function to replace String
thanks for the code..
Сообщение от abcdef
function repls(str, s1, s2 : string) : string;
var
p,len1 : integer;
begin
len1 := length(s1);
repeat
p := pos(str,s1);
if (p<0) then break;
str := copy(str,0,p) + s2 + copy(str,p+len1,length(str));
until false;
repls := str;
end;
var
i : integer;
s : string;
begin
s := repls('4501234567890123456789454','45','abcdef');
showForm;
i := formAddString('>> '+s);
repeat until false;
end.
|
|
(Offline)
|
|