Организовать цикл

@Alex99999 · Регистрация: 03.12.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте! Помогите пожалуйста с решением.
Нужно из строки StrBuff удалить все элементы массива SArray.

Delphi

1 2	type TStringArray = array of string;

......

Delphi

1 2	var SArray: TStringArray;

......

Delphi

var
Pos1 : Integer;
 i : Integer;
begin
  i := Low(SArray);
  repeat
    Pos1 := PosEx(SArray[i], StrBuff, 1);
    Inc(i);
  until (Pos1 > 0) or ( i > High(SArray) );
  if Pos1 >0 then begin
      delete(StrBuff, Pos1,6);

Как можно запустить цикл, т.е. перебор и удаление элементов?

@Puporev · 27.12.2014, 09:51

Вроде так.

Delphi

1
2
3

for i := Low(SArray)to High(SArray) do
while Pos(SArray[i], StrBuff)>0 do 
delete(StrBuff,Pos(SArray[i], StrBuff),length(SArray[i]));

@Alex99999 · 27.12.2014, 09:58 **[ТС]**

Спасибо огромное. То, что нужно!!!

@Alex99999 1 / 1 / 1 Регистрация: 03.12.2012 Сообщений: 292
	27.12.2014, 09:58 [ТС]	3
	Спасибо огромное. То, что нужно!!! 0

Опции темы