Попытка присвоить значение Null переменной

@yuppi · Регистрация: 22.01.2012

Студворк — интернет-сервис помощи студентам

Подскажите, пожалуйста, как решить проблему.
После нажатия кнопки "Добавить", выходит сообщение об ошибке:
"Попытка присвоить значение Null переменной, не принадлежащей к типу Variant".

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
unit Edit;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, StdCtrls, Buttons, Grids, DBGrids, Mask;
 
type
  TfmEdit = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Label4: TLabel;
    GroupBox2: TGroupBox;
    DBEdit5: TDBEdit;
    Label5: TLabel;
    DBEdit6: TDBEdit;
    Label6: TLabel;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    GroupBox3: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBGrid2: TDBGrid;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DBNavigator1: TDBNavigator;
    Label9: TLabel;
    procedure GroupBox1Exit(Sender: TObject);
    procedure GroupBox2Exit(Sender: TObject);
    procedure GroupBox3Exit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  fmEdit: TfmEdit;
 
implementation
 
uses
  DM;
 
{$R *.dfm}
 
// Добавление записи о занятии
procedure TfmEdit.GroupBox1Exit(Sender: TObject);
begin
  if fmDM.ADOTable2.Modified
    then fmDM.ADOTable2.Post;
end;
 
// Добавление записи об аудитории
procedure TfmEdit.GroupBox2Exit(Sender: TObject);
begin
  if fmDM.ADOTable1.Modified
    then fmDM.ADOTable1.Post;
end;
 
// Добавление записи о корпусе
procedure TfmEdit.GroupBox3Exit(Sender: TObject);
begin
  if fmDM.ADOTable3.Modified
    then fmDM.ADOTable3.Post;
end;
 
// Нажатие кнопки "Добавить" на панели "Аудитории"
procedure TfmEdit.BitBtn1Click(Sender: TObject);
begin
  if fmDM.ADOTable1.Modified
    then fmDM.ADOTable1.Post;
  fmDM.ADOTable1.Append;
  DBEdit5.SetFocus;
end;
 
// Нажатие кнопки "Добавить" на панели "Корпуса"
procedure TfmEdit.BitBtn2Click(Sender: TObject);
begin
  if fmDM.ADOTable3.Modified
    then fmDM.ADOTable3.Post;
  fmDM.ADOTable3.Append;
  DBEdit7.SetFocus;
end;
 
// Нажатие кнопки "Сохранить и выйти"
procedure TfmEdit.BitBtn3Click(Sender: TObject);
begin
  if fmDM.ADOTable1.Modified
    then fmDM.ADOTable1.Post;
  if fmDM.ADOTable2.Modified
    then fmDM.ADOTable2.Post;
  if fmDM.ADOTable3.Modified
    then fmDM.ADOTable3.Post;
  Close;
end;
 
// Нажатие кнопки "Добавить занятие"
procedure TfmEdit.BitBtn4Click(Sender: TObject);
begin
  fmDM.ADOTable1.Append;
  fmDM.ADOTable2.Append;
  fmDM.ADOTable3.Append;
  DBEdit1.SetFocus;
end;
 
end.

Программа "ругается" на процедуру:

Delphi
1
2
3
4
5
6
7
8
// Нажатие кнопки "Добавить" на панели "Корпуса"
procedure TfmEdit.BitBtn2Click(Sender: TObject);
begin
  if fmDM.ADOTable3.Modified
    then fmDM.ADOTable3.Post;
  fmDM.ADOTable3.Append;
  DBEdit7.SetFocus;
end;

Как мне кажется, причина в значении ID_корпуса. Но что с ним не так?....

@qwertehok · 10.12.2019, 21:37

переходите на SQL

@Пытливый · 11.12.2019, 01:19

В данном случае гадание по картинкам не дает ответа, нужен ваш проект с базой.

@D1973 · 11.12.2019, 05:12

Сообщение от Пытливый

гадание по картинкам не дает ответа

Пытливый, не можете снять порчу по фотографии?

@xxbesoxx · 17.12.2019, 18:09

Сообщение от yuppi

Программа "ругается" на процедуру:

Delphi
1
2
3
4
5
6
7
8
// Нажатие кнопки "Добавить" на панели "Корпуса"
procedure TfmEdit.BitBtn2Click(Sender: TObject);
begin
  if fmDM.ADOTable3.Modified
    then fmDM.ADOTable3.Post;
  // fmDM.ADOTable3.Append;------!!!
  DBEdit7.SetFocus;
end;

Потому что применяете одновременно Post и Append Если вы хотите что при нажатие BitBtn2Click сохранить тот данных который вы набрали DBEdit-е то надо Post

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@qwertehok 5966 / 4542 / 1094 Регистрация: 29.08.2013 Сообщений: 28,151 Записей в блоге: 3
	10.12.2019, 21:37
	переходите на SQL 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	11.12.2019, 01:19
	В данном случае гадание по картинкам не дает ответа, нужен ваш проект с базой. 0