Form1-function-Form2
Hallo
Ich schilder mal mein Problem: Also ich habe in meiner Form1 eine prozedur diese überprüft anhand einer function ob die den Rückgabewert True oder False liefert. Falls True ist soll die Prozedur in Form1 weiter abgearbeitet werden. wenn False sollte meine Form2 erscheinen dies Funktioniert auch beim ersten mal. Wenn die Prozedur zur Laufzeit nochmal ausgeführt wird, dann wird meine Form2 aufgerufen obwohl der Rückgabewert True ist. |
AW: Form1-function-Form2
Da wird wohl dein Code falsch sein. Meine Glaskugel funktioniert gerade nicht die mir sonst deinen konkreten Code zeigen würde.
|
AW: Form1-function-Form2
Code:
Das kann doch nicht so schwer sein eine einfache if-Bedingung anzuwenden.
if FunktionIsTrue
begin // put code here end else OpenForm2 |
AW: Form1-function-Form2
Delphi-Quellcode:
Beim erstenmal funktionierts wenn die Function True zurückgibt.
If Function(Parameter1, Parameter2) = True Then
begin ShowMessage('Wahr'); end else begin Fenster2öffnen end; Soblad ichs nochmal ausführe mit Rückgabewert True kommt Fenster2öffnen |
AW: Form1-function-Form2
Zum Einen vergleicht man nicht mit true und zum zweiten: hast Du Dir den Rückgabewert einmal im Debugger angeschaut? Ist er wirklich true? Ansonsten müsstest Du die entsprechende Funktion einmal posten.
|
AW: Form1-function-Form2
Das kann ur der Fall sein, wenn beim zweiten Aufruf die Funktion False zurückgibt.
Und noch was, man vergleicht nicht auf True. Lass das "= True" mal weg. |
AW: Form1-function-Form2
|
AW: Form1-function-Form2
Okay wenn ich das '= True' weglasse dann ändern sich nichts Der Fehler bleibt Trotzdem
|
AW: Form1-function-Form2
Wie wäre es denn mal mit DEbuggen und gucken, was die Funktion beim zweiten Aufruf zurückliefert? Sind denn beim zweiten Aufruf die Werte Argumente mit denen die Funktion aufgerufen wird identisch?
|
AW: Form1-function-Form2
Nochmal: bist Du zu 100% sicher, dass die Funktion auch wirklich true zurückgibt? Offensichtlich tut sie das nämlich nicht, es sei denn, Du hast Dir einen Seiteneffekt eingebaut.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:52 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz