0
var
 t:Tdate;
 y,m,d:word;
 i:integer;
begin
 t:=Table1.Fields[0].value;
 DecodeDate(t,y,m,d);
 Accept:=(m = 3);
end;

Допустим у меня есть CheckListBox и в нем есть 12 месяцев,как сделать чтобы номера выбранных месяцев добавлялись в Accept

0

1 ответ 1

1

Если предположить, что Accept - строковая переменная, то можно циклом записать в нее выделенные месяцы через пробел, а потом вывести например в Edit1. (Этот код логично было привязывать к событию клика по CheckListBox1).

var i:integer;
    Accept:string;
begin
  Accept:='';
  for i:=0 to CheckListBox1.Count-1 do
   if CheckListBox1.Checked[i] then
    Accept:=Accept+'(m='+IntToStr(i+1)+') ';
  Edit1.Text:=Accept;
end;

Вообще вопрос сформулирован как-то непонятно. В теме одно написано. В сообщении другое. Надеюсь я помог ответом своим...

0

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.