TDBF ошибка при последовательном создании БД

@useruser · Регистрация: 29.06.2015

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

Написал процедуру - процедура работает.
Написал код ниже, тоже работает. А вместе - последовательно, выдают ошибку.
Не понимаю почему. Подскажите, пожалуйста.
(PS Про динамические массивы вопросы к Delphi 7.)

Процедура

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure create_dbf;
var
i:integer;
begin
SetLength(BASE_TABLE, 0);
SetLength(BASE_TABLE, 100000);
BASE_records_count:=0;
DBF:=TDBF.Create(DBF);
DBF.TableName:=ExtractFilePath(Application.ExeName)+'data\base.dbf';
DBF.Open;
for i:=1 to DBF.RecordCount do
begin
BASE_records_count:=BASE_records_count+1;
BASE_TABLE[BASE_records_count,1]:=DBF.GetFieldData(1); 
BASE_TABLE[BASE_records_count,2]:=DBF.GetFieldData(2); 
DBF.Next;
end;
DBF.Close;
DBF.Destroy;
SetLength(BASE_TABLE, BASE_records_count+1);
end;

Код в потоке

Delphi
1
2
3
4
5
6
7
8
9
10
//Вызов процедуры - мне нужен массив
create_dbf;
 
//Создаем новый экземпляр БД
DBF:=TDBF.Create(DBF);
DBF.TableName:=ExtractFilePath(Application.ExeName)+'data\base.dbf';
DBF.Open;
//Тут работаем с базой
DBF.Close;
DBF.Destroy;

Добавлено через 32 минуты
Кстати, код ниже будет работать вместе с процедурой. Но мне не нужен ещё один экземпляр БД.
Почему ошибка возникает при DBF и не возникает при DBF1?
Я же уничтожил объект.

Delphi
1
2
3
4
5
6
7
8
9
//Вызов процедуры - мне нужен массив
create_dbf;
 
//Этот код работает вместе с процедурой и не вызывает ошибку
DBF1:=TDBF.Create(DBF1);
DBF1.TableName:=ExtractFilePath(Application.ExeName)+'data\base.dbf';
DBF1.Open;
DBF1.Close;
DBF1.Destroy;

@qwertehok · 14.12.2015, 21:49

а переменная DBF у вас глобальная?
и у вас в потоке вызывается каждый раз DBF:=TDBF.Create(DBF)?

@mavr81 · 14.12.2015, 22:09

useruser,
Потому что изначально у вас переменная DBF=nil, и в первый раз TDBF.Create(DBF) отрабатывает корректно.
Потом у вас в DBF лежит указатель на созданный объект. Далее вы этот объект уничтожаете, но указатель на него остается в DBF. Теперь DBF=<мусор>. И когда вы вызываете второй раз TDBF.Create(<мусор>) - возникает ошибка, т.к. объекта который вы передаете в качестве параметра больше не существует.
Используйте DBF:=TDBF.Create(nil) - это решит проблему.

@useruser · 15.12.2015, 06:43 **[ТС]**

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

а переменная DBF у вас глобальная?
и у вас в потоке вызывается каждый раз DBF:=TDBF.Create(DBF)?

Да, переменная глобальная.
В потоке вызывается процедура. В процедуре вызывается DBF:=TDBF.Create(DBF). В конце DBF.Close и DBF.Destroy.
Потом снова вызывается DBF:=TDBF.Create(DBF). Ведь я всегда закрываю базу и уничтожаю объект. А потом его снова создаю.

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

Используйте DBF:=TDBF.Create(nil) - это решит проблему.

Спасибо, помогло.
Но с указателями всё равно не понял. Не понятно почему вызов Destroy не уничтожает то, что создано Create.
Вообщем не понимаю, зачем пишут DBF:=TDBF.Create(DBF);. Почему нельзя DBF:=TDBF.Create; //Создали объект, выделили под него память
Если не трудно, подскажите за что отвечает этот аргумент DBF:=TDBF.Create(<этот аргумент>).

@mavr81 · 15.12.2015, 09:10

Destroy уничтожает. Но он уничтожает сам объект, он не очищает все ссылки на него. DBF - это ссылка на объект.
Как и любая переменная, она меняется когда вы ей присваиваете значение
DBF:=TDBF.Create(nil);
Когда вы вызываете DBF.Destroy - вызывается метод (деструктор) объекта. Сама переменная DBF от этого не меняется. И в ней остается старый указатель.

Добавлено через 8 минут
Аргумент в конструкторе TDBF нужен для автоматического уничтожения объектов на форме. Если вы укажете TDBF.Create(Form1), то при закрытии программы Form1 будет уничтожена, но перед этим форма уничтожит все объекты которые ей принадлежат (были созданы с использованием Create(Form1)).
Поэтому если собираетесь освобождать объект сами - используйте Create(nil).

@qwertehok · 15.12.2015, 09:48

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

В потоке вызывается процедура. В процедуре вызывается DBF:=TDBF.Create(DBF). В конце DBF.Close и DBF.Destroy.
Потом снова вызывается DBF:=TDBF.Create(DBF). Ведь я всегда закрываю базу и уничтожаю объект.

тогда зачем делать переменную глобальной?
делайте DBF.Free

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@qwertehok 5967 / 4543 / 1094 Регистрация: 29.08.2013 Сообщений: 28,160 Записей в блоге: 3
	14.12.2015, 21:49
	а переменная DBF у вас глобальная? и у вас в потоке вызывается каждый раз DBF:=TDBF.Create(DBF)? 0

@mavr81 3 / 3 / 2 Регистрация: 03.11.2015 Сообщений: 10
	14.12.2015, 22:09
	useruser, Потому что изначально у вас переменная DBF=nil, и в первый раз TDBF.Create(DBF) отрабатывает корректно. Потом у вас в DBF лежит указатель на созданный объект. Далее вы этот объект уничтожаете, но указатель на него остается в DBF. Теперь DBF=<мусор>. И когда вы вызываете второй раз TDBF.Create(<мусор>) - возникает ошибка, т.к. объекта который вы передаете в качестве параметра больше не существует. Используйте DBF:=TDBF.Create(nil) - это решит проблему. 1

@mavr81 3 / 3 / 2 Регистрация: 03.11.2015 Сообщений: 10
	15.12.2015, 09:10
	Destroy уничтожает. Но он уничтожает сам объект, он не очищает все ссылки на него. DBF - это ссылка на объект. Как и любая переменная, она меняется когда вы ей присваиваете значение DBF:=TDBF.Create(nil); Когда вы вызываете DBF.Destroy - вызывается метод (деструктор) объекта. Сама переменная DBF от этого не меняется. И в ней остается старый указатель. Добавлено через 8 минут Аргумент в конструкторе TDBF нужен для автоматического уничтожения объектов на форме. Если вы укажете TDBF.Create(Form1), то при закрытии программы Form1 будет уничтожена, но перед этим форма уничтожит все объекты которые ей принадлежат (были созданы с использованием Create(Form1)). Поэтому если собираетесь освобождать объект сами - используйте Create(nil). 0