02.06.2013, 23:45 | #1 (permalink) |
Member
Регистрация: 28.11.2010
Сообщений: 728
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 45
|
Запись в 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); } } на даном этапе я просто записываю последнюю найденую строку в файл.а их может быть несколько.помогите разобраться |
02.06.2013, 23:45 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Эти темы сильно схожи с вашей, рекомендую пролистать Запись BD-R Запись CD-DVD StringGrid в Дельфи Запись видеоролика Запись на CD |
03.06.2013, 15:41 | #5 (permalink) |
Member
Регистрация: 28.11.2010
Сообщений: 728
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 45
|
где ошибка????
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
06.06.2013, 10:14 | #10 (permalink) |
падаван
Регистрация: 23.01.2013
Сообщений: 739
Сказал(а) спасибо: 307
Поблагодарили 27 раз(а) в 3 сообщениях
Репутация: 10792
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|