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?

"globale" Formulare, welche über die VCL (also automatisch) erzeugt werden,
werden erst erzeugt, nachdem alle Units unitialisiert wurden und mit der Abarbeitung der DPR begonnen wurde.

Heißt also, man kann nicht von irgendeinem Unit-Initialisierungsabschnitt auf ein solches Formular zugreifen, da es niemals existieren wird.



Es wäre also mal gut, wenn du genau erwähnst wie und von wo aus du auf dein Objekt/Formular zugreifst und wie/wo dieses Ogjekt/Formular erzeugt wird.

Ändere doch testhalber mal die Erstellungsreihenfolge der Units (in der Projektverwaltung Rechtsklick auf das Projekt - Quelltext anzeigen und das Application.CreateForm der entsprechenden Unit weiter nach oben setzen).

Zitat von himitsu:

"globale" Formulare, welche über die VCL (also automatisch) erzeugt werden,
werden erst erzeugt, nachdem alle Units unitialisiert wurden und mit der Abarbeitung der DPR begonnen wurde.

Heißt also, man kann nicht von irgendeinem Unit-Initialisierungsabschnitt auf ein solches Formular zugreifen, da es niemals existieren wird.



Es wäre also mal gut, wenn du genau erwähnst wie und von wo aus du auf dein Objekt/Formular zugreifst und wie/wo dieses Ogjekt/Formular erzeugt wird.

Heißt das im Umkehrschluss das "nicht globale Formulare", die nicht über die VCL erzeugt werden, vorher abgearbeitet werden?
Ich habe nämlich in der betreffenden Unit ein Formular, das selbst nicht angezeigt wird; also leer ist.
Das ist nur noch da, weil ich darin mit procedure TFData.FormCreate(Sender: TObject); meinen Quellcode plaziert habe.
Kann ich darauf ganz verzichten?
Wenn ich kein Formular mehr habe, dann gibt es diese Prozedur und somit dessen Create ja auch nicht mehr.
Wo bringe ich denn dann meinen Quellcode unter, bzw. wie erreiche ich, dass dieser abgearbeitet wird?