Einzelnen Beitrag anzeigen

Nuclear-Ping
(Gast)

n/a Beiträge
 
#20

Re: Anfängerfrage IF - THEN - ELSE

  Alt 2. Mär 2008, 13:19
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.
  Mit Zitat antworten Zitat