Anfängerfrage IF - THEN - ELSE

[grenzgaenger]

Zitat von DeddyH:

Das Exit ist IMHO nicht unbedingt nötig.

Delphi-Quellcode:

procedure TForm1.Taste2Click(Sender: TObject);
begin
  if not Form1.ADOConnection1.Connected  then
    MessageDlg('Noch nicht mit der Datenbank verbunden.',mtError,[mbOK],0)
  else 
  begin
    ; //hier kommt dein code 
      (* Mit der DB arbeiten *)
  end;
end;

mach es so wie DeddyH es empfohlen hat. alles andere entspricht nicht der strukturierten programmierung.

Vote4DeddyH