Anfängerfrage IF - THEN - ELSE

[Die Muhkuh]

Weil Deine Fassung die bessere ist. Steht doch drunter: "So ists besser".

Der Rest des Sources ist nur noch mal Verdeutlichung.

[grenzgaenger]

Zitat:

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 :-)

[DeddyH]

[OT]

Zitat:

Zitat von grenzgaenger

Vote4DeddyH :)

Thx :lol: [/OT]

[Der.Kaktus]

[OT]
mal Wischlappen und Eimer zum grenzgaenger stellt...*schleimspurentfernen* *fg* :bounce2:[/OT]

[Geist]

ja, das war es.
EXIT
ist das Zauberwort, danach habe ich gesucht.
vielen Dank noch mal

[grenzgaenger]

ihr wisst schon, dass man die goto anweisungen (goto, break, continue, exit, raise exception) nur in ganz wenigen ausnahmefällen verwenden darf, da man sich sonst sehr viel mehr ärger einhandelt. :warn:

[Nuclear-Ping]

Nämlich?

[Thorben_Ko]

[OT]Klar man bekommt ärger mit dem grenzgaenger wenn er das liesst -.-

Sry konnte ich mir net verkneifen[/OT]

[wicht]

Gut, goto benutze ich auch nicht, aber break, continue, exit und raise Exception benutze ich schon des öfteren, und ich glaube, dass das nur Probleme bringt, wenn man nicht weiß, wie man das zu benutzen hat... von daher sollte man das vielleicht nicht so stehen lassen.

[Nuclear-Ping]

Zitat:

Zitat von wicht

... ich glaube, dass das nur Probleme bringt, wenn man nicht weiß, wie man das zu benutzen hat...

Denke ich nämlich auch.

Ich persönlich favorisiere ...

Delphi-Quellcode:

procedure TForm1.ButtonDeleteClick(Sender: TObject);
begin
  if not MessageDlg ('Sicher?', mtConfirmation, [mbYes, mbNo], 0) = IDNO then
    Exit;
  
  DeleteFiles;
  RefreshView;  
end;

... vor ...

Delphi-Quellcode:

procedure TForm1.ButtonDeleteClick(Sender: TObject);
begin
  if MessageDlg ('Sicher?', mtConfirmation, [mbYes, mbNo], 0) = IDYES then
    begin  
      DeleteFiles;
      RefreshView;  
    end;
end;

... Macht zwar das gleiche, aber meine Leertaste wirds mir danken. ;)