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