[Pilot_Red]

Сообщение от s-mail

Спасибо большое за помощь) работает!!! немного потупил и готово)
вот код для интересующихся!
procedure TForm1.Button2Click(Sender: TObject);

begin
case Combobox1.ItemIndex of
0:if not ADOTable1.Locate('Kod',Edit1.Text,[loCaseInsensitive, loPartialKey])then
ShowMessage('Запись не найдена');
1:if not ADOTable1.Locate('printer',Edit1.Text,[loCaseInsensitive, loPartialKey])then
ShowMessage('Запись не найдена');
2:if not ADOTable1.Locate('Cartridge',Edit1.Text,[loCaseInsensitive, loPartialKey])then
ShowMessage('Запись не найдена');
end;
end;

рад помочь!:)