Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
14. Mär 2017
Hi zusammen
@Bra: Ich hab das Result := False; mal eingefügt. Allerdings hatte ich noch einen kleinen Test vor:
procedure TServerInfoFrame.Button2Click(Sender: TObject);
var ConnOk : String;
begin
if FDMySQLDml.FDConnectionMySql.Connected then
ConnOK := 'FDMySQLConnection := True;'
else
ConnOK := 'FDMySQLConnection := False;';
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
14. Mär 2017
Hi zusammen
Eben hab ich ein seltsames Problem etdeckt; zumindest hab ich keine Erklärung dafür und weiss deshalb auch nicht, wo ich den Fehler suchen könnte.
Beim Aufstarten wird erstmal die Createmethode des Datenmoduls aus dem OnCreateEvent des Hauptformulars aufgerufen:
procedure TFDMySQLDml.DataModuleCreate(Sender: TObject);
var LIndent : String;
begin
LIndent := ' - ';