Anfängerfrage IF - THEN - ELSE

[Geist]

Hallo zusammen,

ich möchte eine procedure bei bestimmten Bedingungen beenden. Wie geht das?


procedure TForm1.Taste2Click(Sender: TObject);
begin
if Form1.ADOConnection1.Connected = false then
messageDlg('Noch nicht mit der Datenbank verbunden.',mtError,[mbOK],0);
------------hier soll dann Schluss sein --------------

oder hier soll es bei ...=true weiter gehen...........

end;

Danke schon mal
Heiko

[Der.Kaktus]

hi,

Delphi-Quellcode:

procedure TForm1.Taste2Click(Sender: TObject); 
begin 
if not Form1.ADOConnection1.Connected  then 
begin
 messageDlg('Noch nicht mit der Datenbank verbunden.',mtError,[mbOK],0);
 exit;
end else (*Deine Befehle*) ;

[Luckie]

Zitat von Geist:

ich möchte eine procedure bei bestimmten Bedingungen beenden. Wie geht das?

Im Titel hast du doch schon die richtigen Schlüsselwörter aufgezählt. ;? Übersetze sie doch einfach mal ins Deutsche: wenn, dann, ansonsten. Und dann kann man noch in der Delphi Hilfe oder in Einsteiger-Tutorials gucken.

[Geist]

wie das mit dem IF THEN ELSE funktioniert ist mir schon so einigermaßen klar.

Ich möchte aber die Procedure aber beenden wenn bestimmte Bedingungen nicht erfüllt sind.
Sprich, es soll gleich zu END 'gesprungen' werden.

[mkinzler]

Exit;

[DeddyH]

Das Exit ist IMHO nicht unbedingt nötig.

Delphi-Quellcode:

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

[Tommy1988]

Am besten niemals aus True oder False fragen

if not Form1.ADOConnection1.Connected then so ist es besser..

Delphi-Quellcode:

if not WAHR then // ...
if WAHR then // ...

[DeddyH]

Was willst Du mir damit sagen? Ich benutze doch not

[Die Muhkuh]

Er bezieht sich auf den original Source, Detlef.

[DeddyH]

Zitat von Die Muhkuh:

Er bezieht sich auf den original Source, Detlef.

Zitiert mich aber dabei.