Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+129
function stringreplaceall(text, byt, mot: string): string;
var
plats: integer;
begin
while pos(byt, text) > 0 do
begin
plats := pos(byt, text);
delete(text, plats, Length(byt));
insert(mot, text, plats);
end;
Result := text;
end;Найди десять отличий с родной дельфийской StringReplace. (trollface)
Запостил: 
Stertor,
23 Июня 2013
Follow us!
Комментарии (2) RSS
Добавить комментарий