An Prozedur übergebene Parameter gehen verloren.

[FriendOfDelphi]

Hallo Allerseits!

Folgendes Problem:
Ich rufe folgende Prozedur auf:
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 von DeddyH:

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 AOwner: TComponent; AParent: TWinControl; mit, bzw. reiche die durch. AOwner scheint auch Informationen zu enthalten; AParent scheint aber nil zu sein.
Im MainForm wird ein Konstruktor einer Klasse aufgerufen. Diesem Konstruktor gebe ich die Infos 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 AOwner: TComponent; AParent: TWinControl; benötigt. Ich reiche diese also nur durch. In der 3. Unit meldet der Compiler dann an der Stelle 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 von 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.

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 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 von DeddyH:

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