Работа с циклом.

[ParadoxX27]

Доброго утра, дня или вечера! Кому как.
Не могу разобраться с циклом:

for (int i=sl->Count-1;i>=0;i--)
if (sl->Strings[i].Pos(edit3->Text))
{
sl->Delete(i);
sl->Delete(i-1);
sl->Delete(i-2);
break;
}
else {Form3->Show();
break;}

Если не выполняются условия if, то выскакивает нужная Form3 и ошибка цикла. Не могу добиться, чтобы просто появлялась Form3.

[nick42]

- последний break вообще ни к чему.

[ParadoxX27]

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

- последний break вообще ни к чему.

Знаю, там вместо него return стоит. Но всё равно не работает.

[nick42]

Я считаю, что неправилен сам подход: в цикле нужно модифицировать какую-то логическую переменную, а после исполнения цикла, в зависимости от значения этой переменной, уже работать с самой формой3.
Напр: bool isdeleted; for(...){.. isdeleted=true;}; if(!isdeleted) Form3->Show;

[Smitt&Wesson]

У Вас цикл организован как i=sl->Count-1, а внутри цикла размер массива sl изменяется. Если действительно хотите менять размер массива, тогда нужно это делать через while.

int i=sl->Count-1;
while(i >= 0)
{
  if (sl->Strings[i].Pos(edit3->Text))
  {
  sl->Delete(i);
  sl->Delete(i-1);
  sl->Delete(i-2);
  i = Count-1;// получаем новый размер массива
  }
  else i--;
}

Но у Вас при первом-же совпадении со строкой происходит выход из цикла. Тогда нужно делать иначе.

bool x;
int i;
for (i=sl->Count-1;i>=0;i--)
if (sl->Strings[i].Pos(edit3->Text)) {x=true; break;}
else x=false;
if(x)
{
  sl->Delete(i);
  sl->Delete(i-1);
  sl->Delete(i-2);
}
else Form3->Show();

[ParadoxX27]

Сообщение от Smitt&Wesson

Но у Вас при первом-же совпадении со строкой происходит выход из цикла. Тогда нужно делать иначе.

bool x;
int i;
for (i=sl->Count-1;i>=0;i--)
if (sl->Strings[i].Pos(edit3->Text)) {x=true; break;}
else x=false;
if(x)
{
  sl->Delete(i);
  sl->Delete(i-1);
  sl->Delete(i-2);
}
else Form3->Show();

При запуске цикла выскакивает ошибка "List index out of bounds (-1)".
.

[nick42]

никаких парадоксов, - если Вы собираетесь удалять две предшествующие строки, то ограничивать цикл надо не i>=0, а i>1 или внутри цикла сделать анализ, чтоб не обращаться к несуществующим (с отрицательным индексом) строкам компонента.

[ParadoxX27]

void __fastcall TForm1::Button4Click(TObject *Sender)
{
TStringList* sl= new TStringList();
sl->LoadFromFile("Variables.txt");
bool x;
      for (int i=sl->Count-1;i > 1;i--)
        if (sl->Strings[i].Pos(edit3->Text))
        {
          sl->Delete(i);
          sl->Delete(i-1);
          sl->Delete(i-2);
          x = true;
sl->SaveToFile("Variables.txt");
delete sl;
edit3->Clear();
Form2->Show();
        }
if (!x) {ShowMessage("Not Found");}
}

Выскакивает ошибка "raised exception class EStringListError with message List index out of bounds.
Помогите найти ошибку =(

[nick42]

- просто надо душевнее к циклам относиться... - Вы и запись в файл, и открытие новой формы - все выполняете, не выйдя из цикла. Тут любой компилятор взбесится.
После x=true; я бы еще добавил i = i-2: для коррекции индекса (Вы ж три последние в цикле строки "снесли"...) и закрыл фигурную скобку. Потом - анализ х: если истина - ... ну, и дальше по тексту - иначе - ShowMessage.

[ParadoxX27]

Вот весь код кнопки, при выполнении условия if в первом цикле всё работает нормально, ошибок не вылетает. Но если выполняется else {ShowMessage("Not Found");}, то после нажатия в этом сообщении на "Ок" вылетает "raised exception class EStringListError with message List index out of bounds (-1)"

int id;

void __fastcall TForm1::Button4Click(TObject *Sender)
{
TStringList* sl= new TStringList();
sl->LoadFromFile("Variables.txt");
bool x;
int i;
        for (i=sl->Count-1;i>1;i--)
        if (sl->Strings[i].Pos(edit3->Text)) {x=true; break;}
        else x=false;
        if(x)
        {
          String s=sl->Strings[i];
          id=s.SubString(4,s.Pos("Name=")-4).ToInt();
          sl->Delete(i);
          sl->Delete(i-1);
          sl->Delete(i-2);
        }
        else {ShowMessage("Not Found");}
sl->SaveToFile("Variables.txt");
sl->LoadFromFile("App.ini");
sl->Text = StringReplace(sl->Text,"[!ShowMeter App"+String(id)+"]","",TReplaceFlags()<<rfReplaceAll);
sl->Text = StringReplace(sl->Text,"[!HideMeter App"+String(id)+"]","",TReplaceFlags()<<rfReplaceAll);
int u = sl->IndexOf("[Back"+String(id)+"]");
for (i=0;i<8;i++)
{
sl->Delete(u);
}
int p = sl->IndexOf("[App"+String(id)+"]");
for (i=0;i<15;i++)
{
sl->Delete(p);
}
sl->Strings[14];
int idY=sl->Values["Y"].ToInt();
idY+=2;
sl->Values["Y"]=idY;
sl->Strings[15];
int idH=sl->Values["H"].ToInt();
idH-=30;
sl->Values["H"]=idH;
sl->SaveToFile("App.ini");
delete sl;
edit3->Clear();
Form2->Show();
}

Помогите, пожалуйста, подскажите, в чём причина ошибки?