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