TDatabase mit Assign kopieren?

[shmia]

Zitat von sepp001:

die Methode Assign der TDatabase scheint nicht zu funktionieren (D7). Ich kann nicht Datbase1.Assign(Database2) durchführen.

Anscheinend hat Borland (so wie ich auch) keinen Sinn darin gesehen ein TDatabase-Objekt
einem anderen TDatabase-Objekt zuzuweisen.
Du kannst die Eigenschaften ja von Aussen zuweisen:

Delphi-Quellcode:

Database2.Databasename := Database1.Databasename;
Database2.LoginPrompt  := Database1.LoginPrompt;
...

Wenn die beiden Objekte exakt die gleichen Eigenschaften haben, würde dies sicher die
Performance der BDE stören.
Wenn die beiden Objekte nicht genau die gleichen Eigenschaften haben, brauchst du auch kein
Assign.
Vielleicht bist du auch nur schreibfaul und wolltest folgendes:

Delphi-Quellcode:

Database2.Assign(Database1); 
Database2.Databasename := 'irgendneandereDB';

aber das kann man auch vergessen, da bei Assign auch die Eigenschaft Connected kopiert worden wäre.