• Registered: 2018-02-02
  • Posts: 134

Topic: Некорректно работает процедура

procedure statistika_Button15_OnClick (Sender: TObject; var Cancel: boolean);
var
name_ispitan: string;
begin
    if statistika.ComboBox13.dbItemID = -1 then
    begin
     Cancel;
     MessageBox('Выберите вид испытания для формирования списка','ОШИБКА',MB_ICONERROR);
     name_ispitan:='НЕ ВЫБРАНО';
     statistika.ComboBox13.SetFocus;
    end
    else begin
    name_ispitan:=SQLExecute('SELECT nameRod FROM typeEk WHERE id='+IntToStr(statistika.ComboBox13.dbItemID));
    Main1.frxReport.Clear;
    Main1.frxReport.Variables.Clear;
    Main1.frxReport.Variables['Components']:=Null;
    Main1.frxReport.Variables['nazvanie']:=''''+name_ispitan+'''';
    end;
end;

Здравствуйте. Что-то совсем непонятное делается...  Не разберусь где прокол.
После нажатия кнопки Button15 анализирую условие, чтобы был сделан выбор по ComboBox13. Если нет, прерываю процедуру, если да, идёт формирование списка (отчет по SQL-скрипту).

А у меня всё равно цикл не прерывается, если statistika.ComboBox13.dbItemID = -1 sad и формируется пустой отчёт.
Подскажите, пожалуйста, "свежим" взглядом - что не так.

Yana
  • From: Рідна МАТИ, UKRAINE
  • Registered: 2018-06-02
  • Posts: 895

Re: Некорректно работает процедура

Cancel := True;

  • Registered: 2018-02-02
  • Posts: 134

Re: Некорректно работает процедура

sparrow wrote:

Cancel := True;

Спасибо!

Обычно именно такие мелкие ошибки доставляют кучу хлопот.

Yana