Anfängerfrage IF - THEN - ELSE

[Nuclear-Ping]

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.