[stil]

Кто может объяснить что не так

Код:

c:Inc(i);
        j:=PosEx('|',s,k);
        if j<>0 then begin
          QuestArray[i]:=Copy(s,k,j-1);
          k:=j+1;
          goto c;

1 раз нормально
остальные неправильно

[lmikle]

А что ты хочешь сделать-то?

Код:

var
  Idx : Integer;
  p : Integer;
begin
  Idx := 1;
  p := pos('|',S);
  While p > 0 Do
    Begin
       QuestArray[i]:= Copy(S,1,p-1);
       S := Copy(S,p+1,Length(S));
       Inc(Idx);
    End;
  If Length(S) > 0 then QuestArray[i]:= S;
end;

[stil]

Например у меня есть строка 'Строка1|Cтрока2|Строка3|'
А надо получить
Строка1
Cтрока2
Строка3
А мое дает
Строка1
Cтрока2|Строка3
Строка3|
Хотел сдвигаться по строке через Delete но мне не дает вставить в условие его

[lmikle]

угу. а что мой код дает?

ну и совсем уж тупо:

Код:

var
  l : TStringList;
  i : Integer;
begin
  s := StringReplace(S,'|',#13#10,[rfreplaceAll]);
  l := TStringList.Create;
  l.Text := s;
  For I := 0 To l.count-1 Do
    QuestArray[i+1]:= l[i];
  l.free;
end;

[stil]

Разобрался спасибо