Срочно!! нужна помощь по Delphi !

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Voland-791, 17 Apr 2010.

  1. Voland-791

    Voland-791 Member

    Joined:
    1 May 2009
    Messages:
    163
    Likes Received:
    13
    Reputations:
    5
    Сталкнулся с такой проблемой пишу программу проблема в компонентах CheckBox (галочки) и Button хочу сделать так
    напремер предоставлен большой список в виде "CheckBox" если выбрано 5вещей и это должно быть задействовано при нажатии "Button" да знаю что эт работает через усливия... вот ток как их составить?
     
  2. EndLeSSDre@M

    EndLeSSDre@M Banned

    Joined:
    18 Jul 2009
    Messages:
    142
    Likes Received:
    99
    Reputations:
    -5
    Пробуй так:

    PHP:
    var k:integer;
    begin
    k
    :=0;
    if 
    checkbox1.checked then k:=k+1;
    if 
    checkbox2.checked then k:=k+1;
    if 
    checkbox3.checked then k:=k+1;
    if 
    checkbox4.checked then k:=k+1;
    if 
    checkbox5.checked then k:=k+1;
    if 
    checkbox6.checked then k:=k+1;
    if 
    checkbox7.checked then k:=k+1;

    if 
    k>=5 then showmessage('Выбрано 5') else showmessage('Выбрано меньше 5')
    пробовал через циклы чтоб было, но не получилось...
     
  3. cheater_man

    cheater_man Member

    Joined:
    13 Nov 2009
    Messages:
    651
    Likes Received:
    44
    Reputations:
    7
    :D
    А если я выберу 1,2 и 7 то он будет считать,что я выбрал 1,2,3 :D
     
  4. EndLeSSDre@M

    EndLeSSDre@M Banned

    Joined:
    18 Jul 2009
    Messages:
    142
    Likes Received:
    99
    Reputations:
    -5
    ну пусть пробует через массив, куда будет записываться номер выбранного.. тут же в массиве можешь проверять ключ i на количество выбранного! как мне кажется это тупой вариант, но работать должен))

    PHP:
    var i:integer
    k:array[1..10of integer;
    begin 
    i
    :=1
    if 
    checkbox1.checked then k[i]:=and i:=i+1
    if 
    checkbox2.checked then k[i]:=and i:=i+1
    if 
    checkbox3.checked then k:[i]=and i:=i+1
    if 
    checkbox4.checked then k:[i]=and i:=i+1
    if 
    checkbox5.checked then k:[i]=and i:=i+1
    if 
    checkbox6.checked then k:[i]=and i:=i+1
    if 
    checkbox7.checked then k:[i]=and i:=i+1
     
  5. Voland-791

    Voland-791 Member

    Joined:
    1 May 2009
    Messages:
    163
    Likes Received:
    13
    Reputations:
    5
    Списибо за ответы нашел выход в током виде

    if CheckBox22.Checked = true then
    memo1.Lines.Add(metalcore[3]);