Form1-function-Form2

[Bernhard Geyer]

Da wird wohl dein Code falsch sein. Meine Glaskugel funktioniert gerade nicht die mir sonst deinen konkreten Code zeigen würde.

[Luckie]

Code:

if FunktionIsTrue
begin
  // put code here
end
else
  OpenForm2

Das kann doch nicht so schwer sein eine einfache if-Bedingung anzuwenden.

[t0mmy]

Delphi-Quellcode:

If Function(Parameter1, Parameter2) = True Then
begin
 ShowMessage('Wahr'); 
end
else
begin
 Fenster2öffnen
end;

Beim erstenmal funktionierts wenn die Function True zurückgibt.
Soblad ichs nochmal ausführe mit Rückgabewert True kommt Fenster2öffnen

[DeddyH]

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.

[Luckie]

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.

[guinnes]

http://www.delphi-treff.de/tutorials...faengerfehler/

[t0mmy]

Okay wenn ich das '= True' weglasse dann ändern sich nichts Der Fehler bleibt Trotzdem

[Luckie]

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?

[DeddyH]

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.

[t0mmy]

Also ich habs jetzt mal angeschaut. Dann stimmt was bei der Funktion nicht:

Sie gibt mir als Rückgabewert False -.-

Hier mal ein auszug:

Delphi-Quellcode:

function Connection_Herstellen(pConnection: TADOConnection; pConnectionString: String): Boolean;
begin
    if pConnection.Connected = False then
    begin
      pConnection.ConnectionString := pConnectionString;
    try
      pConnection.Open;
      Result := True;
    except
    on E: Exception do
      begin
        Result := False;
        //MessageBox(0, 'Fehler beim Verbinden mit der Datenbank!', '',
        //MB_ICONERROR or MB_OK);
      end;
    end;
    end;
end;