• From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Topic: Index 0 ComboBox

как убрать  Index 0? 

 procedure frmClientServiсeList_cbStatusName_OnClick (Sender: TObject);
var
    sStatus : string = IntToStr ( frmClientServiсeList.cbStatusName.dbItemID );
begin
     SQLExecute ('UPDATE servise SET id_status = "'+sStatus+'" WHERE id='+ frmServiceCen.tgList.sqlValue );
     UpdateDatabase('servise');
end;

действие должно происходить именно в OnClick
Index 0  - Вызывает ошибку

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Index 0 ComboBox

а ну все, сам спросил сам сделал ))

 procedure frmClientServiсeList_cbStatusName_OnClick (Sender: TObject);
var
    sStatus : string = IntToStr ( frmClientServiсeList.cbStatusName.dbItemID );
begin
    If (sStatus > '0') then begin
     SQLExecute ('UPDATE servise SET id_status = "'+sStatus+'" WHERE id='+ frmServiceCen.tgList.sqlValue );
     UpdateDatabase('servise');
    end;
end;
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Index 0 ComboBox

убрать первую пустую строку в ComboBox можно установив свойство Additional > FirstEmptyItem = False

Dmitry.