Moin !
Habe diesen Code hier:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ABSMain,
DB, DBGrids;
type
TForm1 =
class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
type
TDM =
class
private
{ Private-Deklarationen }
DB : TABSDatabase;
Session : TABSSession;
public
constructor Create;
{ Public-Deklarationen }
end;
var
Form1: TForm1;
one, two : TDM;
implementation
constructor TDM.Create;
begin
inherited;
Session := TABSSession.Create(
Nil);
// Session.SessionName := 'LVSession';
Session.AutoSessionName := True;
Session.Active := True;
DB := TABSDatabase.Create(
Nil);
DB.DatabaseName := '
LVDataBase';
DB.SessionName := Session.SessionName;
end;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
one := tdm.Create;
two := tdm.Create;
end;
end.
Im Grunde nutzlos, aber es kommt da zu einem komischen Problem.
Ich habe ja zwei Instanzen von meiner TDM Klasse. Und ich würde mal sagen das ich dann im Normalfall auch keine Konflikte zwischen "one" und "two" haben sollte.
Dennoch bekomme ich diesen Fehler:
Code:
Erste Gelegenheit für
Exception bei $7C812AFB.
Exception-Klasse EDatabaseError mit Meldung 'Duplicate database name 'LVDataBase''. Prozess Project2.exe (3584)
Kann sich jemand einen Reim drauf machen was da schief geht ?!