Delphi使用ADO进行无效指针操作

Question

当多次调用此代码时（在更改组合框时调用），我在第二次更改和第三次更改时收到错误“对象打开时不允许操作” “无效的指针操作”。

if loadfile.Database <> nil then  
    loadfile.Database.destroy;  
Loadfile.Database := Tdatabase.create(CardSets.Text, false);  
LoadFile.Database.create(CardSets.Text, false);         
refreshlist;

创建代码只是

DataSource :=   
    'Provider=Microsoft.Jet.OLEDB.4.0' +   
    ';Data Source=' + Path +  
    ';Jet OLEDB:Engine Type=5';   
with MainWindow do  
begin   
    ADOConnection.ConnectionString := Datasource;   
    ADOConnection.LoginPrompt := False;   
end; 

而 refreshlist 只是更新数据库中数据的可视化列表。

我查看了一些类似的 stackoverflow 问题，但我无法看到答案如何帮助解决我的问题。

附带问题，何时使用 .Destroy 或 .Free？ .Free 在这种情况下只会给出不同的错误。

谢谢。

Answer 1

首先，您呼叫Create 两次；第二个是不必要的：

if loadfile.Database <> nil then  
    loadfile.Database.destroy;  
Loadfile.Database := Tdatabase.create(CardSets.Text, false);  // First call
LoadFile.Database.create(CardSets.Text, false);               // Second call

将您的代码更改为：

LoadFile.Database.Free;
LoadFile.Database := TDatabase.Create(CardSets.Text, False);

其次，永远不要直接调用Destroy。请改用Free，因为它首先检查未分配的指针，然后在安全的情况下调用Destroy。 TObject.Free基本上就是这个代码：

procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;