Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 30.03.2011, 09:17
Аватар для RusSTEEL
RusSTEEL RusSTEEL вне форума
Новичок
 
Регистрация: 10.03.2011
Сообщения: 53
Репутация: 10
По умолчанию Read of address

Есть материнская и дочерняя форма, Дочерняя форма - окно авторизации т.е. пока не введешь логин\пароль(который сравнивается из таблицы) материнская не активна. у пользователей есть 2 уровня доступа по логическому полю Тру(видно все)\Фалсе(видно только разрешенное) дак вот при авторизации когда вводишь логин пароль в форму 1ое условие помеченное тут красным он проходит все авторизуется все ок, если вводишь во вторую часть текста со значением фалс выдает ошибку "Access violation at address XXX in module 'YYY'. read of address ZZZ." если поменять местами значение в дбедит2 с тру на фалс будет все тоже проходить т.е ошибка не в коде а опять в каком то обнулении\создании >_<
чтож за прооблемы то >_<

Код:
if (dbedit1.text='') or (edit2.Text='') or (dbedit2.text='') then
       MessageBox(form9.Handle,'Введите ПРАВИЛЬНОЕ имя пользователя и пароль.','Ошибка!!!',Mb_ICONINFORMATION)
  else
  begin
    if (dbedit1.text<>'') or (dbedit3.Text<>'') or (dbedit2.Text<>'') then
       if dbedit2.text='True'  then
         begin
         MainForm.Enabled:=True;
         
         end;
      if dbedit2.text='False'  then
       begin
       
        MainForm.n2.Enabled:=false;
        MainForm.Enabled:=True;


Код:
if (dbedit1.text='') or (edit2.Text='') or (dbedit2.text='') then
       MessageBox(form9.Handle,'Введите ПРАВИЛЬНОЕ имя пользователя и пароль.','Ошибка!!!',Mb_ICONINFORMATION)
  else
  begin
    if (dbedit1.text<>'') or (dbedit3.Text<>'') or (dbedit2.Text<>'') then
       if dbedit2.text='True'  then
         begin
         MainForm.Enabled:=True;
         
         end;
проблема связанна с этим ЕНДом, как я понял программа выполняется до енда, потом опять уже что-то создано или отсутствует и она ссылается на него.
__________________
не спрашивайте у меня, ЗДЕСЬ СПРАШИВАЮ Я!!!

Последний раз редактировалось RusSTEEL, 30.03.2011 в 09:54.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:26.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025