Hallo,
Ich habe ein kleines Problem.
Ich habe mehrere Datamodules in meinem Project und erzeuge die zur Laufzeit mit:
Delphi-Quellcode:
DMStart:= TDataModule8.Create(nil);
DMStart.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=yxyxyxyx;Persist Security Info=true;User ID='+Databasename+';Initial Catalog='+Databasename+';Data Source='+Server;
DMStart.ADOConnection1.connected:=true;
Nun will ich diese beim Beenden der Application wieder freigeben udn auch zwischendrin weil ich untershciedliche Datamoduls für einzelne Bereiche verwende.
Deshalb will ich nicht so viel offen lassen.
Das ganze mache ihc mit :
Delphi-Quellcode:
if DMLagerKA <> Nil then
begin
DMLagerKA.ADOConnection1.Connected:=false;
DMLagerKA.Free;
end;
Nun ist es so das wenn ich das Datamodule erzeugt habe und es im laufe der anwendung free mache ,kracht es am Schluss weil er in die Routine reinrennt.
Kann mir da jemand nen Tip geben wie ich das sauber ,elegant Lösen kann
?
mfg