Поиск в StringGrid

[II_Dimit_II]

ну да и вы мне опять предложите не работающий вариант, но только уже за деньги!!))

[Krok27]

Че не работает то?

[II_Dimit_II]

все не работает!!!

[nick42]

void __fastcall TForm1::Button2Click(TObject *Sender)
{
 int i, j ,d ;
 if (ComboBox1->ItemIndex==0) {
  for (i = Form1->StringGrid1->Row; i < Form1->StringGrid1->RowCount ; i++) {
    if (Form1->StringGrid1->Cells[0][i] != Form6->Edit1->Text)
      Form1->StringGrid1->Rows[i]->Clear();
  }
  d = Form1->StringGrid1->Row;
  for (i=0,j = Form1->StringGrid1->Row; j < Form1->StringGrid1->RowCount; j++) {
    if (Form1->StringGrid1->Cells[0][j].Length()>0) {
      Form1->StringGrid1->Rows[d++]->Assign(Form1->StringGrid1->Rows[j]);
      Form1->StringGrid1->Rows[j]->Clear();
    }
    else i+=1;
  }
  Form1->StringGrid1->RowCount = Form1->StringGrid1->RowCount-i;
 }
}