Показать сообщение отдельно
Старый 26.12.2012, 11:52   #1
kostya261
AnyKey`щик
 
Регистрация: 27.08.2007
Сообщений: 17
Написано одно полезное сообщение
Разъясните с условиями пожалуйста

Имею такую функцию:

Function LoadProject (path$ = "")

If path$ = "" RuntimeError "Отсутствует фаил проекта!" + Chr$ (13) + " Укажите правильный путь!"

project = ReadFile (path$)
If project = 0 RuntimeError("Отсутствует фаил!")
While Not Eof(project)
ln$ = ReadLine$(project)

;/---------------Загрузка главной модели
If Instr (ln$, "#model = ", 1) Then
path_file$ = Mid$ (ln$, 10)
If path_file$ <> "" Then model = LoadAnimMesh (path_file$)
EndIf
;---------------/

If (model = 0) Then RuntimeError ("Модель не создана!")
If Instr (ln$, "#child = ", 1)
lst.children = New children
lst\mesh_chld = FindChild (model, Mid$(ln$, 10))
If lst\mesh_chld <> 0 EntityColor lst\mesh_chld, Rnd (255), Rnd (255), Rnd (255)
EndIf
Wend
End Function

проблемма в том, что когда коментируеш условие
If (model = 0) Then RuntimeError ("Модель не создана!")
все работает
если оставляеш как есть, model начинает равнятся нулю
чего я не знаю, подскажите пожалуйста
переменную model ставил и глобальной для программы, и локальной для данной функции, результат один. затыкается на этом месте.

PS ну не присваивается же в условии этой переменной ноль?
(Offline)
 
Ответить с цитированием