Запись в stringgrid

[mish_k98]

Запись в stringgrid

здравствуйте.помогите составить код.есть база даных.требуется найти определённые строки по ключевому слову и всю строку добавить в stringgrid.но дело в том что колличество и расположение строк определяестя поиском.вот часть кода
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString al=LabeledEdit1->Text;
AnsiString bl;
AnsiString ap=LabeledEdit2->Text;
AnsiString bp;
ADOTable1->First();
bool legal=false;
ADOTable1->First();
for (int i=0;i<ADOTable1->RecordCount;i++)
{
bl=ADOTable1->FieldByName("Товар")->AsString;
bp=ADOTable1->FieldByName("Поставщик")->AsString;
if ((al==bl) || (ap==bp)){ legal = true;
Ini->WriteString("Поиск","Код",ADOTable1->FieldByName("Код")->AsString);
Ini->WriteString("Поиск","Товар",ADOTable1->FieldByName("Товар")->AsString);
Ini->WriteString("Поиск","Дата",ADOTable1->FieldByName("Дата")->AsString);
Ini->WriteString("Поиск","Цена",ADOTable1->FieldByName("Цена")->AsString);
Ini->WriteString("Поиск","Поставщик",ADOTable1->FieldByName("Поставщик")->AsString);
Ini->WriteString("Поиск","Количество",ADOTable1->FieldByName("Количество")->AsString);
Ini->WriteString("Поиск","Сумма",ADOTable1->FieldByName("Сумма")->AsString);



}
ADOTable1->Next();
}
if (!legal)// ShowMessage("Нету!");
MessageDlg("Нету!", mtInformation, TMsgDlgButtons()<<mbOK,0);
else {

ShowMessage("есть!");
ShellExecute(0, "open", "search_p.ini", 0, "HTML", SW_SHOWNORMAL);


}
}
на даном этапе я просто записываю последнюю найденую строку в файл.а их может быть несколько.помогите разобраться

 

[kreol]

Я с ADO совсем не работал, но там же, вроде можно выполнить свой sql? Выбрать все нужные данные и записать куда нужно...

 

[mish_k98]

я с sql пока не умею работать.помогите,знающие люди

 

[mish_k98]

вот мой вариант, но так не работает
Form11->StringGrid1->Rows->Values=ADOTable1->Fields->Fields->Value;

 

[mish_k98]

где ошибка????

 

[mish_k98]

помогите, люди добрые

 

[mish_k98]

прошу помощи

 

[kreol]

остался один экзамен, в пятницу. смогу помочь только после него...

 

[mish_k98]

ок.буду ждать

 

[grelly]

вот мой вариант, но так не работает
Form11->StringGrid1->Rows->Values=ADOTable1->Fields->Fields->Value;

дык ты указателю на массив значений пытаешься значение присвоить) индекс значения в стринггриде укажи

 

[mish_k98]

не очень понял.не могли бы вы написать полностью как должно быть.с стринггридом не очень знаком.это моя первая программа с ним

 

[grelly]

StringGrid1->Rows[0]->Values[0] = ADOTable1->Fields->Fields[0]->Value;
вместо 0 свои индексы пиши

 

[mish_k98]

попробую.отпишусь