Hallo!

Folgendes Problem:

Es existieren mehrere Units.
Der Quellcode der einen Unit greift auf Objekte einer anderen Unit zu.

Die Fehlermeldung lautet:
Im Projekt Programm.exe ist eine Exception der Klasse EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse 004AC5B1 in Modul 'Programm.exe'. Lesen von Adresse 00000310'. Prozeß wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.

Es liegt wohl daran, dass das Objekt auf welches zugegriffen werden soll zu diesem Zeitpunkt noch nicht existiert, da die Unit, in welcher dieses Objekt erstellt wird, erst danach verarbeitet wird. Dies habe ich im Einzelschrittmodus so nachvollziehen können.

Was kann man da machen?

Die Unit an Anfang der Uses-Klausel schreiben?

Bei Units, welche unter Interface eingebunden werden, wird die Initialisation immer vorher abgearbeitet, als die Initialisation der einbindenden Unit.

Bei Einbindung in der Implementation ist keine Reihenfolge sichergestellt.



Also entweder du greifst nur auf Units (und deren Inhalt) zu, welcher überimplementation eingebunden und rechtzeitig initialisiert werden.
Oder du prüfst beim Zugriff nach und verschiebst die Initialisation.

Letzeres z.B. so:

markieren

Delphi-Quellcode:

funktion gibObjekt: TObject;
begin
  if not assigned(globalVar) then
    globalVar := TMeinObjekt.Create;
  Result := globalVar;
end;

[edit]

Zitat:

Die Unit an Anfang der Uses-Klausel schreiben?

Klappt nicht zuverlässig, da sich hier die Reihenfolgen aller Uses-Klauseln des gesamten Projekts gegenseitig beeinflussen.

Nur bei den Uses in der DPR kann man sich relativ sicher sein, daß die erste Unit auch als erstes Initialisert wird (wenn man die Units SysInit und System ignoriert).

Zitat von himitsu:

Bei Units, welche unter Interface eingebunden werden, wird die Initialisation immer vorher abgearbeitet, als die Initialisation der einbindenden Unit.

Bei Einbindung in der Implementation ist keine Reihenfolge sichergestellt.



Also entweder du greifst nur auf Units (und deren Inhalt) zu, welcher überimplementation eingebunden und rechtzeitig initialisiert werden.
Oder du prüfst beim Zugriff nach und verschiebst die Initialisation.

Letzeres z.B. so:

markieren

Delphi-Quellcode:

funktion gibObjekt: TObject;
begin
  if not assigned(globalVar) then
    globalVar := TMeinObjekt.Create;
  Result := globalVar;
end;

[edit]

Zitat:

Die Unit an Anfang der Uses-Klausel schreiben?

Klappt nicht zuverlässig, da sich hier die Reihenfolgen aller Uses-Klauseln des gesamten Projekts gegenseitig beeinflussen.

Nur bei den Uses in der DPR kann man sich relativ sicher sein, daß die erste Unit auch als erstes Initialisert wird (wenn man die Units SysInit und System ignoriert).

Ich habe das Einbinden der betreffenden Unit jetzt vom Bereich "Implementation" in den Bereich "Interface" verschoben.
Die Fehlermeldung kommt aber immer noch.

Zitat von FriendOfDelphi:

Zitat von himitsu:

Bei Units, welche unter Interface eingebunden werden, wird die Initialisation immer vorher abgearbeitet, als die Initialisation der einbindenden Unit.

Bei Einbindung in der Implementation ist keine Reihenfolge sichergestellt.



Also entweder du greifst nur auf Units (und deren Inhalt) zu, welcher überimplementation eingebunden und rechtzeitig initialisiert werden.
Oder du prüfst beim Zugriff nach und verschiebst die Initialisation.

Letzeres z.B. so:

markieren

Delphi-Quellcode:

funktion gibObjekt: TObject;
begin
  if not assigned(globalVar) then
    globalVar := TMeinObjekt.Create;
  Result := globalVar;
end;

[edit]

Zitat:

Die Unit an Anfang der Uses-Klausel schreiben?

Klappt nicht zuverlässig, da sich hier die Reihenfolgen aller Uses-Klauseln des gesamten Projekts gegenseitig beeinflussen.

Nur bei den Uses in der DPR kann man sich relativ sicher sein, daß die erste Unit auch als erstes Initialisert wird (wenn man die Units SysInit und System ignoriert).

Ich habe das Einbinden der betreffenden Unit jetzt vom Bereich "Implementation" in den Bereich "Interface" verschoben.
Die Fehlermeldung kommt aber immer noch.

Auch wenn vor dem Zugriff mit

markieren

Delphi-Quellcode:

if not assigned(Unit.Objekt) then
          Unit.Objekt:=TMeinObjekt.Create(self);

prüfe, kommt die Fehlermeldung (in der if-Zeile).

Bitte keine Fullquotes, wenn sie nicht nötig sind. Außerdem kannst du Beiträge editieren, Doppelpostings sind hier nicht gerne gesehen.

Ich habe jetzt folgendes herausgefunden:
Das Formular der Unit, in welchem sich auch das Objekt befindet, ist bekannt. Ich kann z.B. mit FTest.Name:='xyz' den Namen ändern, ohne das ein Fehler auftritt.
Das Objekt darin ist (noch) nicht bekannt.
Es wird im FormCreate des Formulars erzeugt.
Muss die Erzeugung des Objekts vielleicht woanders erfolgen?
Gibt es eine andere Ereignis-Prozedur, die früher abgearbeitet wird?