Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Оцените велосипед инвалида. / 3 сообщений из 3, страница 1 из 1
16.02.2010, 09:16:07
    #36471642
Master4
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Оцените велосипед инвалида.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
function ureplace(stext:string;const s1,s2:string):string;
var
i:integer;
begin
i:= 0 ;
while true do begin
i:=posex(s1,stext,i);
if i<> 0  then begin
delete(stext,i,length(s1));
insert(s2,stext,i);
inc(i,length(s2));
end;
if i= 0  then break;
end;
result:=stext;
end;

Так же предусмотрен нюанс с заменой самого себя.
...
Рейтинг: 0 / 0
16.02.2010, 09:42:47
    #36471717
Master4
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Оцените велосипед инвалида.
Код: plaintext
1.
end;
if i= 0  then break;
на
Код: plaintext
end else break;
...
Рейтинг: 0 / 0
16.02.2010, 10:13:41
    #36471794
eNose
Участник
[не активирован]
[не одобрен]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Оцените велосипед инвалида.
"while true do begin"

репит ... антил - как то логичнее, чтоли :)
...
Рейтинг: 0 / 0
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Оцените велосипед инвалида. / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]