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