Зависает цикл while

[fezilk24]

while Pos('#',name)<>0 do
      begin
      namel:=getinfo('#',';',0,0,0);
      delete(name,pos(namel,name),length(namel));
      end;

function TForm1.getinfo(bpos,endpos:string;p1,p2,p3,p4:integer):string;
var
bposit,endposit:integer;
begin
bposit := Pos(bpos, form1.memo2.text);
endposit := PosEx(endpos, form1.memo2.text, bposit+p2);
result := Copy(form1.memo2.text, bposit+p3, endposit - (bposit+p4));
end;

name - Вася #9143;#9142; Vasya #9142;#9143; Пупкин

цикл должен удалить все коды #9142;#9143;. но он зависает. почему?

[vovk]

Как раз такипохоже что ваш код имена и удаляет, а вот это #9143;#9142; как раз и остаётся

[T_I_T_A_N]

попробуй так

i:=pos('#',name);
while i<>0 do
begin
delete(name,1,i);
i:=pos(';',name);
delete(name,1,i);
i:=pos('#',name);
end;

[fezilk24]

спасибо, сейчас попробую

[Don Karleone]

или может так

var
  st: string;
  k,z,h: integer;
begin
  k:=Pos('#',st);
  while k <> 0 do
    begin
      z:=Pos(';',st);
      h:=z-k+1;
      Delete(st,k,h);
      k:=Pos('#',st);
    end;
end;

[Don Karleone]

Сообщение от T_I_T_A_N

попробуй так

i:=pos('#',name);
while i<>0 do
begin
delete(name,1,i);
i:=pos(';',name);
delete(name,1,i);
i:=pos('#',name);
end;

работать не будет

[T_I_T_A_N]

var i,t: integer;  name: string;
begin
name:=edit1.text;
i:=pos('#',name);
while i<>0 do
begin
t:=pos(';',name);
if t>i then delete(name,i,(t-i)+1);
i:=pos('#',name);
end;
ShowMessage(name);
end;

этот код работает проверил

[T_I_T_A_N]

name:=edit1.text;
i:=pos('#',name);
t:=pos(';',name);
while (i<>0) and (t>i) do
begin
delete(name,i,(t-i)+1);
i:=pos('#',name);
t:=pos(';',name);
end;

вот еще рабочий цикл

[T_I_T_A_N]

Сообщение от Don Karleone

работать не будет

а если текст вот такой будет 'ввы; fdfd#444;ddd' то зависнет

[Don Karleone]

Сообщение от T_I_T_A_N

а если текст вот такой будет 'ввы; fdfd#444;ddd' то зависнет

мой цикл будет правильно работать только в том случае если во входной строке (st) для каждого символа # существует ; причем ; стоит правее #. Если же входная строка может не соответствовать этому, например
" Вася #1945; #4568 Коля " то и обработку этой строки необходимо проводить совсем по другому.