Not-Abfragewird 2mal ausgeführt

[Delbor]

Hi zusammen

@Bra: Ich hab das Result := False; mal eingefügt. Allerdings hatte ich noch einen kleinen Test vor:

Delphi-Quellcode:

procedure TServerInfoFrame.Button2Click(Sender: TObject);
  var ConnOk : String;
begin
  if FDMySQLDml.FDConnectionMySql.Connected then
    ConnOK :=  'FDMySQLConnection := True;'
  else
    ConnOK :=  'FDMySQLConnection := False;';
  Showmessage(ConnOK);
end;

Vorgängig hatte ich meinen Funktionsaufruf deaktiviert:

Delphi-Quellcode:

//  if not FDMySQLDml.DefineContentmasterConnection then ;
//  begin;
//    ShowMessage(' Die Verbindung konnte nicht hergestellt werden');
//    // An dieser Stellle muss geeignet reagiert werden können
//  end;
////  FDMySQLDml.DefineContentmasterConnection;

Die da festgelegte Verbindungsdefinition wurde also nicht ausgeführt.
Jetzt gab ConnOK True zurück.

Dabbei wurden offensichtlich die Definitionen aus dem OI verwendet. Nicht ganz verstanden habe ich, wieso meine eigen Funktion False zurückgibt, da ich an Result ja explizit True zugewiesen habe.

Gruss
Delbor