Topic: Пожалуйста подскажите как правильно написать
Добрый день.
Есть заполнение поля Edit текстовыми значениями
procedure frm_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
n1: String;
n2: String;
n3: String;
begin
If frm.CheckBox1.sqlValue then
n1 := SQLExecute ('Select kodn FROM departament where (id = 1)'); // значение А1
If frm.CheckBox2.sqlValue then
n2 := SQLExecute ('Select kodn FROM departament where (id = 2)'); // значение А2
If frm.CheckBox3.sqlValue then
n3 := SQLExecute ('Select kodn FROM departament where (id = 3)'); // значение А3
begin
frm.close
end;
frm_vvod.Edit7.Text := n1+','+n2+','+n3;
end;
При отсутствие установки какого либо CheckBoxa (а следовательно записи переменной) получаем ответ с пропуском переменной и имеем лишнюю запятую. Например при отсутствии CheckBoxa n2
A1,,A3
Подскажите пожалуйста как правильно написать подстановку текстового значения frm_vvod.Edit7.Text := no1+','+no2+','+no3; чтобы получить в поле Edit при отсутствии CheckBoxa n2 значение
A1,A3