Непонятная ошибка при создании формы

← →
h0use © (2003-12-10 16:49) [0]

СОздаю форму в теле программы:
egin Result:=False; Application.CreateForm(TPasswordDlg, PasswordDlg); try if Sets.flSaveLastUser then PasswordDlg.edLogin.Text:=BAConn.Login; <--- (1) PasswordDlg.ShowModal; if PasswordDlg.ModalResult=mrOK then begin BAConn.Login:=PasswordDlg.edLogin.Text; <--- (2) BAConn.Password:=PasswordDlg.edPassword.Text; end else Exit; finally PasswordDlg.Release;// free resources end; // try/finally
Первый раз все работает нормально, но при повторном вхождении в тело процедуры приводит к виалейшену либо в (1), либо в (2) в зависимости от флага Sets.flSaveLastUser. Причем все остальные аналогично создаваемые формы работают. В чем может быть бага?

← →
h0use © (2003-12-10 17:31) [1]

Разобрался...когда много кода легко в ветвлениях запутаться :)

Непонятная ошибка при создании формы Найти похожие ветки