Hallo MKinzler
Der Code gibt nicht die Originalversion wieder. Ansonsten müßte ich das ganze Programm zum Download bereitstellen.
Ich gebe dir natürlich recht, wenn man sich den von mir angegebenen Code ansieht. Hier nocht etwas detailierter:
Ich erzeuge Objekte, die sich selber Werte aus einer Tabelle auslesen. D.h. innerhalb der Klasse erzeuge ich beim Anlegen der Objekte eine TTable und zerstöre diese Instanz wieder, nachdem ich alle benötigten Werte ausgelesen habe.
Delphi-Quellcode:
for i := 0 to Pred(500) do
begin
AObject := TMyClass.Create;
end;
constructor TMyClass.Create;
var
ATable : TTable;
begin
ATable := TTable.Create(nil);
ATable.DatabaseName := ADataBase;
ATable.TableName := ATableName;
ATable.Active := true;
... Werte auslesen und in den privaten Feldern speichern
ATable.Close
ATable.Active := false;
FreeAndNil(ATable);
end;
Vielleicht wäre es besser, dem Create eine TTable zu übergeben und diese immer wieder zu verwenden !!
(Der Gedanke kam mir gerade)
Aber warum sind die Tabellen nach einem Close immer noch geöffnet ?
MfG
Wo_to