Assigned + TForm-Instanzenvariable in Funktionsübergabe möglich?

[günni0]

Ich habe eine Funktion, welcher ich eine TForm-Variable übergebe. Es existiert nicht zwangsweise bereits eine Instanz dieses Formulars.

Damit mein Code schön sauber bleibt, packe ich alles in Prozeduren. Eine davon speichert die Fenstergröße und -position. Einziger Parameter ist die Form-Instanzenvariable, die aber wie gesagt auch nil sein kann.

Bin ich jetzt gezwungen ein if Assigned(formxyz) then da drum zu packen oder geht das auch direkt im Funktionsaufruf irgendwie?

[hoika]

Hallo,
die richtige Position der NIL-Auswertung ist in der Prozedur selbst.

[günni0]

Dann bleibt ja nichts anderes übrig als ein if vor die Funktion zu setzen in diesem Falle. Denn der Parameter ist die Instanz selbst.

[bernau]

Zeig doch mal deinen bestehenden Code.

[Jasocul]

Zitat von günni0:

Dann bleibt ja nichts anderes übrig als ein if vor die Funktion zu setzen in diesem Falle. Denn der Parameter ist die Instanz selbst.

Nein.
Du kannst auch in der Funktion selbst prüfen, ob der übergebene Wert assigned ist. Kurzes Beispiel:

Delphi-Quellcode:

function MeineFunktion(aForm : TForm) : Boolean;
begin
  Result := Assigned(aForm);
  if Result then
  begin
    // Position der Form setzen
  end;
end;

[TigerLilly]

So ist das zwar defensiv programmiert, aber schlechter Stil. Für einen Form, den es gar nicht gibt, die Position speichern zu wollen, ist nicht sauber. Ich würde das Problem an der Stelle lösen, wo es auftritt: beim Aufruf bzw noch vorher in der Logik, die auswählt, für welchen Form die Position gespeichert werden soll.

[günni0]

Zitat von Jasocul:

Zitat von günni0:

Dann bleibt ja nichts anderes übrig als ein if vor die Funktion zu setzen in diesem Falle. Denn der Parameter ist die Instanz selbst.

Nein.
Du kannst auch in der Funktion selbst prüfen, ob der übergebene Wert assigned ist. Kurzes Beispiel:

Delphi-Quellcode:

function MeineFunktion(aForm : TForm) : Boolean;
begin
  Result := Assigned(aForm);
  if Result then
  begin
    // Position der Form setzen
  end;
end;

Spätestens beim Aufruf von MeineFunktion() kracht es dann.

Delphi-Quellcode:

procedure MeineFunktion(const aForm : TForm);
begin
  Mach etwas mit aForm
end;

// Kein Problem
if Assigned(aForm ) then
 MeineFunktion(aForm);

// Problem (egal ob man Assigned in MeineFunktion hat oder nicht)
MeineFunktion(aForm);

[bernau]

Zitat von günni0:

Spätestens beim Aufruf von MeineFunktion() kracht es dann.

Das bezweifel ich mal. Mit dem assign wird ja kontrolliert, ob aForm NIL ist.

Es könnte aber sein, daß aForm nicht NIL ist sondern einen undefinierten Zustand hat. Das solltest du mit dem Debugger mal kontrollieren.

[günni0]

Zitat:

Es könnte aber sein, daß aForm nicht NIL ist sondern einen undefinierten Zustand hat.

Das Formular wird bei Programmstart nicht erzeugt.

Zitat:

Das solltest du mit dem Debugger mal kontrollieren.

Starter

[SProske]

Auch in der Starter gibt es den Debugger, nur die Hover-Anzeige funktioniert halt nicht - aber über die überwachten Ausdrücke kommst du ja trotzdem dran.