ist TTable.Close vor TTable.Free nötig?

[eddy]

Hallo Leute,

ist es empfehlenswert, vor Free noch Close zu geben oder macht Free das automatisch?

Code:

var
  tab : TTable;
begin
  tab := TTable.Create(tab);
  try
    TabOpen(tab, Path, fn, '');   
    // ... und andere Anweisungen
  finally
    tab.Close;
    tab.Free;
  end;
end;

mfg
eddy

[Jens Schumann]

Hallo,
ein Blick in die VCL-Sourcen hätte genügt.
In der unit db.pas (D5) kann man in Zeile 7998 sehen, das Close aufgerufen wird.

[eddy]

Hallo Jens,

danke für den Tip.

Deinen Worten entnehme ich, daß ich mir das Close verkneifen kann, da es in Zeile 7998 abgearbeitet wird.

Dem Quellcode kann ich zwar das Close entnehmen, aber daraus ableiten, daß ich es nicht seperat aufrufen muß, kann ich nicht.

Aber ich gebe zu, daß ich mir den Quellcode auch erst jetzt angesehen habe!

mfg
eddy

[Jens Schumann]

Zitat von eddy:

...Dem Quellcode kann ich zwar das Close entnehmen, aber daraus ableiten, daß ich es nicht seperat aufrufen muß, kann ich nicht.
...

Der Quellcode zeigt an dieser Stelle den destructor von TDataset.
In der Hilfe steht, dass Free den destructor eines Objektes aufruft.