31.03.2010, 01:19
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
С нами:
10060964
Репутация:
52
|
|
в Edit2 вводить цифры через запятую.
PHP код:
var
j,i:integer;
m,s:string;
Paste:array[1..255] of integer;
begin
s:=Edit1.Text; { запоминаем текст}
m:=Edit2.text; {запоминает цифры}
m:=m+','; { добавляем , для парсинга}
for i:=1 to 255 do
begin
Paste[i]:=-1;
{заполняем массив -1}
if length(m)>0 then
{ если длина строки с цифрами > 0}
begin
Paste[i]:=strtoint(copy(m,1,pos(',',m)-1));
{ сохраняем значение}
delete(m,1,pos(',',m));
{удаляем, что сохранили }
end;
end;
j:=0; // Счетчик, который фиксирует баг с заменой
for i:=1 to 255 do
begin
if Paste[i]=-1 then break;
{если число в массиве -1 прекращаем цикл}
insert('_',S,Paste[i]+j);
{вставляем текст}
inc(j);
{увеличивываем позицию}
end;
Edit3.Text:=s;
{выводим результат}
Если с конца надо
замени:
Код:
insert('_',S,Paste[i]+j);
на
Код:
insert('_',S,length(s)-Paste[i]+j);
Последний раз редактировалось JnK; 31.03.2010 в 01:29..
Причина: Добавил комментарии, исправил недочет
|
|
|