RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Ответить на сообщение
Имя:
e-mail:
FIDO:
Home page:
сохранить данные о вас
Тема:
> Помогите решить проблему! > Если кто работает с Pascal и MySQL помогите! > Я использую клиента от ANTONY T CURTIS. > > При попытке обращения к базе через логин и пароль (без пароля - все нормально) возникает ошибка переполнения в функции rnd. При отключении переполнения - все нормально, но авторизация не проходит. > Если кто решил проблему - помогите. > > function rnd(var rand:rand_struct):double; > begin > {$Q-} // без отключения проверки переполнения - exception. > rand.seed := (rand.seed*3 + rand.seed2) mod rand.max_value; > rand.seed2:= (rand.seed + rand.seed2+33) mod rand.max_value; > {$Q+} > Result := rand.seed/rand.max_value_dbl; > end; > >
_, __, _, __,
/_\ |_) /_\ |_)
| | | | | | \
~ ~ ~ ~ ~ ~ ~
Programmed by
Dmitri Maximovich
,
Dmitry I. Platonoff
,
Eugen Kuleshov
.
25.09.99 (c) 1999,
RU/2
. All rights reserved.
Rewritten by
Dmitry Ban
. All rights ignored.