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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

- - [решено] Помогите записать функцию короче (http://forum.oszone.net/showthread.php?t=173495)

Centrinar

18-04-2010 21:22 1395783

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

Код:

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

18-04-2010 21:36 1395789

Цитата:

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

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

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

Код:

$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

Время: 01:44.