An Prozedur übergebene Parameter gehen verloren.

[FriendOfDelphi]

Hallo Allerseits!

Folgendes Problem:
Ich rufe folgende Prozedur auf:

Delphi-Quellcode:

Daten:=TDaten.Create(MainForm, MainForm, Test); //TDaten.Create(Aowner:TComponent; AParent:TWinControl; Irgendwas: EigenerDatentyp);

Bevor das Create ausgeführt wird, sind noch alle Daten vorhanden (alle Infos über das Hauptfenster).
Soweit, so gut. Mit "F7" in die Routine springen.
In der Routine angekommen, ist nur noch der Parameter "Irgendwas" mit Daten gefüllt. "Aowner" und "AParent" sind nil.
Was ist da los?
Was mache ich falsch?

[DeddyH]

Mir persönlich ist das zu wenig Quelltext, um da etwas erkennen zu können.

[stho]

Schreib dir doch eine Procedure die ankommende Parameter in ein Logfile schreibt ;)
Damit kannst du immer sehen welche Daten ankommen.
Achja, als Vergleichswert musst du natürlich auch Protokollieren was du der Procedur an Parametern übergibst.

[FriendOfDelphi]

Zitat:

Zitat von DeddyH (Beitrag 1069570)

Mir persönlich ist das zu wenig Quelltext, um da etwas erkennen zu können.

Ich verwende eine Prozedur, die eine Info benötigt, von wem sie aufgerufen wurde. Daher gebe ich dieser die Informationen über

Delphi-Quellcode:

AOwner: TComponent; AParent: TWinControl;

mit, bzw. reiche die durch.

Delphi-Quellcode:

AOwner

scheint auch Informationen zu enthalten;

Delphi-Quellcode:

AParent

scheint aber nil zu sein.
Im MainForm wird ein Konstruktor einer Klasse aufgerufen. Diesem Konstruktor gebe ich die Infos

Delphi-Quellcode:

AOwner: TComponent; AParent: TWinControl;

des Hauptformulars mit.
Innerhalb des Konstruktors der aufgerufenen Klasse in der 2. Unit wird wiederum der eigentlich Konstruktor der Klasse aufgerufen der die Info über

Delphi-Quellcode:

AOwner: TComponent; AParent: TWinControl;

benötigt. Ich reiche diese also nur durch. In der 3. Unit meldet der Compiler dann an der Stelle

Delphi-Quellcode:

Parent := AParent;

die Fehlermeldung: "Zugriffsverletzung bei Adresse 00000000. Lesen von Adresse 00000000."

In der Haupt-Unit:

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
begin

//mach was

  Daten:=TDaten.Create(MainForm, MainForm, DBTest);

//mach was

end;

In der 2. Unit:

Delphi-Quellcode:

constructor TDaten.Create(Aowner:TComponent; AParent:TWinControl; Datenbank: TdBase);
begin

//mach was

  Test1:=TSoftSPS.Create(Aowner, AParent, "irgendein Integer-Wert");

//mach was

end;

In der 3. Unit:

Delphi-Quellcode:

constructor TSoftSPS.Create(AOwner: TComponent; AParent: TWinControl; VarGroesse: Integer);
begin
  Parent := AParent; //hier tritt der Fehler auf!!!

//mach was

end;

[DeddyH]

Zitat:

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
begin

//mach was

  Daten:=TDaten.Create(MainForm, MainForm, DBTest);

//mach was

end;

Im OnCreate erscheint mir das noch ein wenig früh, da das MainForm zu dieser Zeit evtl. noch gar nicht vollständig initialisiert ist. Und wieso greifst Du auf die globale Variable zurück statt auf Self? Zumindest Letzteres würde ich zunächst versuchen.

[FriendOfDelphi]

Zitat:

Zitat von DeddyH (Beitrag 1069586)

Zitat:

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
begin

//mach was

  Daten:=TDaten.Create(MainForm, MainForm, DBTest);

//mach was

end;

Im OnCreate erscheint mir das noch ein wenig früh, da das MainForm zu dieser Zeit evtl. noch gar nicht vollständig initialisiert ist. Und wieso greifst Du auf die globale Variable zurück statt auf Self? Zumindest Letzteres würde ich zunächst versuchen.

Der frühe Zeitpunkt wird wahrscheinlich das Problem sein. Ich habe das Create mal ganz ans Ende gestellt. Bringt aber nichts.
Ein "OnFormularFertiggestellt" gibt es ja nicht, oder? Zumindest habe ich nichts im Objektinspektor gefunden.
Mein erster Versuch war mit

Delphi-Quellcode:

Daten:=TDaten.Create(self, self, DBTest);

. Da dies aber so nicht funktionierte, hatte ich das geändert und nicht wieder zurück geändert.

[DeddyH]

Du könntest mal versuchshalber Loaded überschreiben, da müsste es IMO funktionieren.

[FriendOfDelphi]

Zitat:

Zitat von DeddyH (Beitrag 1069598)

Du könntest mal versuchshalber Loaded überschreiben, da müsste es IMO funktionieren.

Das kenne ich noch nicht.
Hast Du ein Beispiel für mich?

[DeddyH]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  protected
    procedure Loaded; override;
  public
    { Public-Deklarationen }
  end;

...

procedure TForm1.Loaded;
begin
  inherited;
  ShowMessage('Geladen: ' + self.Name);
end;

[Lemmy]

Hi,

schon mal AfterConstruction versucht?

Grüße

[FriendOfDelphi]

Zitat:

Zitat von DeddyH (Beitrag 1069602)

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  protected
    procedure Loaded; override;
  public
    { Public-Deklarationen }
  end;

...

procedure TForm1.Loaded;
begin
  inherited;
  ShowMessage('Geladen: ' + self.Name);
end;

Ich habe

Delphi-Quellcode:

procedure TForm1.Loaded;

ausprobiert. Leider keine Veränderung. Der Compiler meldet weiterhin an der Stelle Parent := AParent; die Fehlermeldung: "Zugriffsverletzung bei Adresse 00000000. Lesen von Adresse 00000000."

[FriendOfDelphi]

Zitat:

Zitat von Lemmy (Beitrag 1069621)

Hi,

schon mal AfterConstruction versucht?

Grüße

Delphi-Quellcode:

procedure TForm1.AfterConstruction;

habe ich auch gerade ausprobiert. Leider auch keine Veränderung. Der Compiler meldet auch hier an der Stelle Parent := AParent; die Fehlermeldung: "Zugriffsverletzung bei Adresse 00000000. Lesen von Adresse 00000000."

[mkinzler]

.Loaded() sollte der richtige Ort sein

[FriendOfDelphi]

Zitat:

Zitat von mkinzler (Beitrag 1069655)

.Loaded() sollte der richtige Ort sein

Was ich vielleicht noch anmerken muss: Ich verwende außer für das Hauptfenster "MainForm" keine grafischen Komponenten. Die baue ich direkt im Quellcode zusammen.
Ich habe jetzt mal beide Prozeduren, also

Delphi-Quellcode:

procedure TForm1.Loaded;

und

Delphi-Quellcode:

TForm1.AfterConstruction;

, eingebaut und bin dann das Programm mit "F7" im Single Step-Modus durchgegangen.

Delphi-Quellcode:

procedure TForm1.Loaded;

wird aufgerufen, bevor das Programm in

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);

verzweigt. Zu diesem Zeitpunkt sind meine grafischen Elemente noch nicht gebaut.

Delphi-Quellcode:

TForm1.AfterConstruction;

wird aufgerufen, nachdem

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);

abgearbeitet ist und wieder verlassen wurde. Zu diesem Zeitpunkt sind alle über den Quellcode erstellten grafischen Elemente bereits gebaut.
Ich weiß nicht, ob das wichtig ist.
Allerdings ist es so, dass in beiden Fällen der Compiler an der Stelle

Delphi-Quellcode:

Parent := AParent;

die Fehlermeldung: "Zugriffsverletzung bei Adresse 00000000. Lesen von Adresse 00000000." bringt.
Zum Zeitpunkt des Aufrufs von

Delphi-Quellcode:

Daten:=TDaten.Create(self, self, Test); //TDaten.Create(Aowner:TComponent; AParent:TWinControl; Irgendwas: EigenerDatentyp);

zeigt der Compiler (wenn man mit dem Mauszeiger darüber fährt) für den ersten Parameter / das erste

Delphi-Quellcode:

self

: s. Datei "Inhalt_Aowner_TComponent_vorher.jpg" und für den zweiten Parameter / das zweite

Delphi-Quellcode:

self

: s. Datei "Inhalt_AParent_TWinControl_vorher.jpg".
Springt man mit "F7" in die Routine hinein zeigt der Compiler folgendes für den ersten Parameter: s. Datei "Inhalt_Aowner_TComponent_nachher.jpg" und für den zweiten Parameter: s. Datei "Inhalt_AParent_TWinControl_nachher.jpg (14,9 KB)".
Vielleicht hilft das weiter...

[DeddyH]

Kannst Du nicht einfach ein kleines Demoprojekt anhängen? Ich denke, im Gesamtzusammenhang versteht man das Problem besser.