Запрет на ввод пустых значений

[Ericnex]

Есть код добавления записи в таблицу:

DM.Query1.SQL.Text:='Insert into PO (Name_program, Kolvo_licensy, Name_server) values ( :Name_program, :Kolvo_licensy, :Name_server)';
DM.Query1.ParamByName('Name_program').AsString:=Edit1.Text;
DM.Query1.ParamByName('Kolvo_licensy').AsInteger:=strtoint(Edit2.Text);
DM.Query1.ParamByName('Name_server').AsString:=ComboBox1.Text;
DM.Query1.ExecSQL;
DM.Query1.Close;
DM.Query1.SQL.Clear;
DM.Query1.SQL.Text:='Select * from PO';
DM.Query1.Open;
Edit1.Clear;
Edit2.Clear;
ComboBox1.Clear;

Как с помощью обработчика исключений try except или как то по другому запретить ввод пустых значений.

[Sciv]

Может, так:

if (Edit1.Text<>'') and (Edit2.text<>'') and (ComboBox1.Text<>'') then begin

{Ваш код}

end;

[Yurk@]

с помощью try ... except его можно поймать только в том случае если у тебя поле помеченное как Not Null ... в остальных случаях - как написал Sciv

[artemavd]

try
if (Edit1.Text<>'') and (Edit2.text<>'') and (ComboBox1.Text<>'') then 
begin
DM.Query1.SQL.Text:='Insert into PO (Name_program, Kolvo_licensy, Name_server) values ( :Name_program, :Kolvo_licensy, :Name_server)';
DM.Query1.ParamByName('Name_program').AsString:=Edit1.Text;
DM.Query1.ParamByName('Kolvo_licensy').AsInteger:=strtoint(Edit2.Text);
DM.Query1.ParamByName('Name_server').AsString:=ComboBox1.Text;
DM.Query1.ExecSQL;
DM.Query1.Close;
DM.Query1.SQL.Clear;
DM.Query1.SQL.Text:='Select * from PO';
DM.Query1.Open;
Edit1.Clear;
Edit2.Clear;
ComboBox1.Clear;
end;
except on E: Exception do
begin
 ShowMessage('Не заполнено одно из полей!');
end;
end;

Примерно так.

[Аватар]

Даже примерно так нельзя. Ошибка может вывалиться на любой из команд внутри блока try. А тут на все случаи жизни одно сообщение, которое не соответствует действительности. В данном примере сама проверка на не пустые значения уже выполнена и при чем здесь сообщение в except?

[artemavd]

Я же и говорю "Примерно так", что значит, что либо так нельзя делать, либо не желательно

[Yurk@]

artemavd, при таком расскладе даже в худшем случае ничего не случится т.к. в самом худшем варианте будет вставлена запись с null в полях и всё .. но ошибкой это не будет и try ... except этого не увидит