powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Оцените велосипед инвалида.
3 сообщений из 3, страница 1 из 1
Оцените велосипед инвалида.
    #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
Оцените велосипед инвалида.
    #36471717
Фотография Master4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
end;
if i= 0  then break;
на
Код: plaintext
end else break;
...
Рейтинг: 0 / 0
Оцените велосипед инвалида.
    #36471794
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
[не активирован]
[не одобрен]
"while true do begin"

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


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