Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Irretierender Compiler-Hinweis (https://www.delphipraxis.net/20271-irretierender-compiler-hinweis.html)

geronilsmo 15. Apr 2004 12:28


Irretierender Compiler-Hinweis
 
Hallo zusammen,

ich habe hier keinen wirklichen Fehler, der mich aufhaelt, aber der Compiler- bzw. Debugger-Hinweis stoert mich doch schon: :?
Zitat:

[Hinweis]: Auf TPasswordDlg.fConnOpen zugewiesener Wert wird niemals benutzt
Die Function ist private im Password-Dialog, vom Typ Boolean und soll nach dem Oeffnungsversuch einer Connection deren Connected-Eigenschaft zurueckgeben:

Delphi-Quellcode:
{------------------------------------------------------------------------------}
function TPasswordDlg.fConnOpen : Boolean;
{------------------------------------------------------------------------------}
begin

    try
       // Verbindung aufbauen
        p_Connection.ConnectionString := OracleConnectString;
        p_Connection.Open;
    except
       // Fehler
        ShowErrors;
        Result := p_Connection.Connected;
    end;
    Result := p_Connection.Connected;
end;
Der Aufruf der Function erfolgt beim Button-Click direkt in der If-Bedingung
Delphi-Quellcode:
    // Connect-String zusammenbauen und Connection versuchen zu oeffnen:
     if fConnOpen then
         ModalResult := OK
     else
        // Connect-Fehler => neuer Login-Versuch
         ModalResult := INCOMPLETE
Damit benutze ich doch den Result der Function oder was?

Stutzig aber guter Dinge
Gero

bttb930 15. Apr 2004 12:31

Re: Irretierender Compiler-Hinweis
 
Der Compiler meint das erste
Delphi-Quellcode:
Result := p_Connection.Connected;
innerhalb der except-Schleife. Es ist überflüssig.

shmia 15. Apr 2004 12:33

Re: Irretierender Compiler-Hinweis
 
Delphi-Quellcode:
function TPasswordDlg.fConnOpen : Boolean;
begin
    try
       // Verbindung aufbauen
        p_Connection.ConnectionString := OracleConnectString;
        p_Connection.Open;
    except
       // Fehler
        ShowErrors;
        // folgende Zeile ist überflüssig, da das Programm weiterläuft
        // und dann die unten markierte Zuweisung ausführt
        Result := p_Connection.Connected;
    end;
    Result := p_Connection.Connected;  // * <-----
end;

geronilsmo 15. Apr 2004 12:41

Re: Irretierender Compiler-Hinweis
 
Danke Euch!

Bin im Moment wohl etwas blutleer im Kopf ... :pale:

ahoi


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:16 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