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:

Zitat von günni0 (Beitrag 1399886)

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:

Zitat von Jasocul (Beitrag 1399907)

Zitat:

Zitat von günni0 (Beitrag 1399886)

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:

Zitat von günni0 (Beitrag 1399914)

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 :thumb:

[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.

[günni0]

Ich habe es anders überprüft. Angezeigt wird mir nur die zweite Showmessage.

Delphi-Quellcode:

    if Assigned(frmInfo) then
     ShowMessage('Assigned');
    if frmInfo= nil then
     ShowMessage('Nil');

[Neutral General]

Assigned fragt ja auch ab ob etwas UNGLEICH nil ist.
Natürlich wird dann nur einer deiner 2 MessageBoxen angezeigt ;)

Delphi-Quellcode:

if Assigned(frmInfo) then // = if frmInfo <> nil then
  ShowMessage('Assigned');
if frmInfo= nil then
  ShowMessage('Nil');

[günni0]

Also bin ich kein bisschen weiter, weil mir der Debugger nichts anzeigt :P
Ich belasse es einfach bei der if Assigned() then-Abfrage die ich vor jede der vier, fünf Prozeduren schreibe.

[Neutral General]

Zitat:

Zitat von günni0 (Beitrag 1399937)

Also bin ich kein bisschen weiter, weil mir der Debugger nichts anzeigt :P
Ich belasse es einfach bei der if Assigned() then-Abfrage die ich vor jede der vier, fünf Prozeduren schreibe.

Mit der Einstellung wirst du nicht weit kommen :duck:
Du MUSST lernen wie man mit dem Debugger arbeitet. Ansonsten bist du früher oder später komplett aufgeschmissen.

[günni0]

Ich habe den Fehler gefunden. Sag ich euch aber nicht, weil es ein zu extremer "Wie kann man so dumm und blind sein"-Fehler ist :stupid:


Man sollte nicht auf Variablen eines Formulars zugreifen, wenn das Formular noch nicht erstellt wurde :roll:

[freimatz]

Man sollte die automatisch erstellten globalen Variablen eines Formulars gar nie verwenden:!:

[bernau]

Zitat:

Zitat von freimatz (Beitrag 1400249)

Man sollte die automatisch erstellten globalen Variablen eines Formulars gar nie verwenden:!:

Ich lösche die auch sofort. Diese Variablen sind "Bäh".

Wäre schön, wenn es eine Konfigurationsmöglichkeit geben würde, dass neue erstellt Formulare nicht automatisch erzeugt werden und diese globale Formularvariable erst gar nicht angelegt wird.

[TigerLilly]

http://docwiki.embarcadero.com/RADSt...mular-Designer

Ganz unten.

[bernau]

Zitat:

Zitat von TigerLilly (Beitrag 1400285)

http://docwiki.embarcadero.com/RADSt...mular-Designer

Ganz unten.

Cool. Seit wann gibt es das denn? Oder ar ich die letzen 23 Jahre blind.

(Aber diese blöde Formularvariable wird dennoch erstellt)

[Uwe Raabe]

Zitat:

Zitat von bernau (Beitrag 1400290)

Cool. Seit wann gibt es das denn? Oder ar ich die letzen 23 Jahre blind.

Also, Delphi 5 kannte das zumindest auch schon:

[bernau]

Zitat:

Zitat von Uwe Raabe (Beitrag 1400375)

Also, Delphi 5 kannte das zumindest auch schon:

Dann war ich tatsächlich bilnd :oops: