[решено] Помогите записать функцию короче

[Centrinar]

Код:

Код: Выделить всё

If GUICtrlRead($check[1])  1 and GUICtrlRead($check[2])  1 and GUICtrlRead($check[3])  1 and GUICtrlRead($check[4])  1 and GUICtrlRead($check[5])  1 Then    		MsgBox(48, "Error", "Выберите как минимум один чекбокс")  	ContinueLoop  EndIf

как сделать короче?

[Creat0R]

Цитата:



как сделать короче?



Это вообще неправильно.



Не уверен на счёт короче, но вот как это обычно делается:





Код:

Код: Выделить всё

$iContinueLoop = 1
For $i = 1 To 5
    If GUICtrlRead($check[$i]) = 1 Then
        $iContinueLoop = 0
        ExitLoop
    EndIf
Next
If $iContinueLoop Then
    MsgBox(48, "Error", "Выберите как минимум один чекбокс")
    ContinueLoop
EndIf