Поиск в StringGrid

[II_Dimit_II]

Мне нужно найти записи в стринг гриде а не нужные удалить!!! вот код, но он что то не работает!!!!

void __fastcall TForm6::Button2Click(TObject *Sender)
{
int i;
if (ComboBox1->ItemIndex==0) {
for (i = Form1->StringGrid1->Row; i < Form1->StringGrid1->RowCount-1; i++) {
if (Form1->StringGrid1->Cells[0][i] != Form6->Edit1->Text) {
 for (i = Form1->StringGrid1->Row; i < Form1->StringGrid1->RowCount-1; i++) {
	 Form1->StringGrid1->Rows[i]=Form1->StringGrid1->Rows[i+1];
	 Form1->StringGrid1->RowCount=Form1->StringGrid1->RowCount-1;
 }
 }}}
 }

[Smitt&Wesson]

И где Вас учили такому написанию говнокода?
Просто жуть. Минут двадцать пытался, что-либо разобрать, нихрена не разобрался.
Ужас.
Если Вы самоучка, это простительно. Но если Вы учитесь у кого-то, я бы Вашего учителя избил-бы до полусмерти.

[Stilet]

Предложу свой Shitcode:

void __fastcall TForm6::Button2Click(TObject *Sender)
{
int i;
TStringList *s=new TStringList();
if (ComboBox1->ItemIndex==0) {
 for (i = Form1->StringGrid1->Row; i < Form1->StringGrid1->RowCount-1; i++) {
  if (Form1->StringGrid1->Cells[0][i] == Form6->Edit1->Text) s->Append(Form1->StringGrid1->Rows[i]->Text;
 }
}

Form1->StringGrid1->RowCount=s->Count;
 for(i=0;i<s->Count;i++) Form1->StringGrid1->Rows[i]->Text=s[i];

delete s;

Надуюсь смысл идеи понятен...

[Smitt&Wesson]

Надуюсь смысл идеи понятен...

Не надувайся .
А II_Dimit_II-у скажу - учись.

[Stilet]

Упс... Не проснулся еще мабудь

[nick42]

А я самоучка, и в общем-то смысл понял: сравнивается в цикле содержимое первой (инд.0) ячейки таблицы с полем эдит с 6-й формы и при неравенстве строка таблицы удаляется методом сдвига оставшихся строк; число строк таблицы при этом корректируется. Только... для вложенных циклов нужно использовать РАЗНЫЕ индексы (у вас i в обоих), и по собственному опыту - опасно использовать в ограничителе цикла (циклов в вашем случае) переменную, которая внутри этих циклов корректируется. Лучше как-то по другому.

[II_Dimit_II]

как говорится на ошибках учатся, а про того кто меня этому научил, я согласен))!!! убить бы его!!!))

[Krok27]

if (Form1->StringGrid1->Rows[i]->IndexOf(Form6->Edit1->Text) != -1)
{
      for (i = Form1->StringGrid1->Row; i < Form1->StringGrid1->RowCount-1; i++) 
      {
	  Form1->StringGrid1->Rows[i]->Assign(Form1->StringGrid1->Rows[i+1]);
	  Form1->StringGrid1->RowCount=Form1->StringGrid1->RowCount-1;
      }
}

[II_Dimit_II]

может, кто ещё какой вариант предложит?

[Krok27]

Остальные варианты - за деньги.