Irretierender Compiler-Hinweis

[geronilsmo]

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]

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

[shmia]

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]

Danke Euch!

Bin im Moment wohl etwas blutleer im Kopf ...

ahoi