ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ошибка в конструкторе ......
7 сообщений из 7, страница 1 из 1
ошибка в конструкторе ......
    #32280589
Фотография Allvin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Allvin
Участник
есть класс
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
  TSpecification = class
  public
    RegN: Integer;
    RegN_spec: Integer;
    NSog: Integer;
    Spec: Integer;
    Regnk: Integer;
    N_REGNK : string;
    DatS: TDateTime;
    Datn: TDateTime;
    Datk: TDateTime;
    Prod: Integer;
    Bazs: WideString;
    Pr1T: Integer;
    Kvlt: Integer;
    N_KVLT : string;
    Kvlc: Integer;
    N_KVLC : string;
    Prim: WideString;
    UserName: WideString;
    DateEdit: TDateTime;

    constructor Create(REGN_ : integer);
  end;


конструктор в нём такой
Код: plaintext
1.
2.
3.
4.
5.
constructor TSpecification.Create(REGN_ : integer);
begin
  RegN := REGN_;
  REGNK := - 1 ;
end;


ПЕРЕОДИЧЕСКИ влетает екзептион на строчке RegN := REGN_;
Не одной мысли по поводу что может быть ......
...
Рейтинг: 0 / 0
01.10.2003, 12:52
| Ответить | Цитировать | Написать  
ошибка в конструкторе ......
    #32280601
Gold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gold
Участник
Хоть это и не имеет отношения к твоей ошибке, но где вызов конструктора TObject ??? Странно, что оно вобще работает, хотя к описанным в твоём случае действиям в конструкторе это врядли имеет значения. Пробй так:

Код: plaintext
TSpecification = object // дальше то же самое

или так:

Код: plaintext
1.
2.
3.
4.
5.
constructor TSpecification.Create(REGN_ : integer);
begin
  inherited Create;
  RegN := REGN_;
  REGNK := - 1 ;
end;
...
Рейтинг: 0 / 0
01.10.2003, 13:00
| Ответить | Цитировать | Написать  
ошибка в конструкторе ......
    #32280912
m_kus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m_kus
Гость
Какой екзептион-то?
...
Рейтинг: 0 / 0
01.10.2003, 15:34
| Ответить | Цитировать | Написать  
ошибка в конструкторе ......
    #32280921
Фотография Allvin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Allvin
Участник
to Gold
К слову, object поддерживается только для обратной совместимости .... Хелп рекомендует вместо него ипользовать class....

to m_krus
EAccsess violetion ..... :-(
...
Рейтинг: 0 / 0
01.10.2003, 15:43
| Ответить | Цитировать | Написать  
ошибка в конструкторе ......
    #32280969
m_kus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m_kus
Гость
Я всегда думал, что когда пишешь TMyType=class, то по умолчанию считается, что ты порождаешь класс от TObject, поэтому неплохо было бы писать:
Код: plaintext
1.
2.
3.
4.
5.
6.
constructor TSpecification.Create(REGN_ : integer);
begin
  inherited;
  RegN := REGN_;
  REGNK := - 1 ;
end;

Посмотри, выдаёт ли компилятор во время компиляции предупреждение "Warning: ... hides method Create of TObject" Естественно, надо включить выдачу предупреждений.
...
Рейтинг: 0 / 0
01.10.2003, 16:04
| Ответить | Цитировать | Написать  
ошибка в конструкторе ......
    #32280991
Фотография Allvin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Allvin
Участник
Нет не выдаёт ... Я так тоже пробывал....
Посмотри дебагером что что происходит в этом случаи в конструкторе Тобекта...
Конструктор ТОбекта нечего не делает .....
...
Рейтинг: 0 / 0
01.10.2003, 16:15
| Ответить | Цитировать | Написать  
ошибка в конструкторе ......
    #32281000
Gold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gold
Участник
2Allvin

Про object в справке провокация! Это просто совсем другой механизм реализации классов, такой, как в Си. Если тебе не нужны возможности TObject - смело делай классы object.

Только учти, что такие классы могу быть и статическими и динамическими. В статических классах не работают виртуальные и динамические методы, а динамические классы нужно создавать с использованием указателей и функции New, как в сях в общем...
...
Рейтинг: 0 / 0
01.10.2003, 16:21
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ошибка в конструкторе ......
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]