Guten Tag Entwickler,
ich bin angefangen mich mit Modulen zu beschäftigen.
Im Programm habe ich für die Hilfe zu den einzelnen Formularen, es sind 27 Formulare, ein Modul "ModulHilfe" erstellt.
Weil das Modul in jedem Formular benötigt wird, lasse ich es automatisch beim Programmstart mit erzeugen:
Delphi-Quellcode:
ModulHilfe in 'DatenModule\ModulHilfe.pas' {MoHilfe: TDataModule};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TdtmdMain, dtmdMain);
Application.CreateForm(TMoEMail, MoEMail);
... und noch Anderes
Application.Run;
end.
Im Modul TMOHilfe steht folgendes im public
Delphi-Quellcode:
public
{ Public-Deklarationen }
constructor Create;
procedure Hilfe(aNutzerID: Int64; aPrgTeil, aHauptSeite, aUnterseite: SmallInt);
end;
und im Create-Ereignis folgendes:
Delphi-Quellcode:
constructor TMoHilfe.Create;
begin
GlobalPfad := TAppConstants.GetGlobalPath;
PfadHandBuch := TAppConstants.GetHandBuchPfad;
end;
In den Formularen wird die Hilfe in der
Unit-Klausel so angegeben:
Delphi-Quellcode:
implementation
uses
DatenModulMain,
ModulSonstigeDrucke,
ModulHilfe,
....
und im OnCreate-Ereignis des Formulares so erzeugt:
MoHilfe.Create;
Im Destroy-Ereignis wird es so freigegeben:
MoHilfe.Free;
Die Hilfe wird dann im Formular so aufgerufen:
MoHilfe.Hilfe(NutzerID, 17, 0, 0);
Das Problem ist nun folgendes:
Beim ersten Aufruf des Formulares kann ich die Hilfe aufrufen.
Wenn ich aber das Formular schliesse und danach erneut aufrufe, wird sofort eine
Zugriffsverletzung bei Adresse 0100D47D in Modul 'Loge.exe'. Schreiben von Adresse 000000A0.
geworfen.
Wenn ich aber das "MoHilfe.Free" im Formular nicht setze, dann kann ich das Formular ohne Absturz
immer wieder aufrufen.
Was mache ich falsch? Wo liegt mein Gedankenfehler?
Sollte diese Frage hier nicht in die Kategorie passen, so bitte ich den Admin sie in die richtige zu verschieben.
Vielen Dank im Voraus für Eure evtl. Hilfe.