Else anwenden in Delphi(MessageDlg)

[Black-Rider]

Hallo,
ich lerne in der Schule zur Zeit Delphi und nun hat uns der Leher eine Hausaufgabe aufgeben, womit ich nen Problem habe, da wir das noch gar nicht hatten. Also ich habe folgenden Code:

Delphi-Quellcode:

procedure THauptForm.Btn_exitClick(Sender: TObject);
begin      //Btn_exitClick
   if MessageDlg('Wollen Sie das Programm wirklich beenden???',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    MessageDlg('Das Programm wird nun beendet.', mtInformation,
      [mbOk], 0);
    Close;
    
  end;


end;      //Btn_exitClick

Nun sollen wir noch einbauen, dass wenn man auf Nein klickt die Meldung kommt: Das Programm wird nicht beendet. Also quasi:

Delphi-Quellcode:

 MessageDlg('Das Programm wird nicht beendet.', mtInformation,
      [mbOk], 0);

Da wir if und else noch gar nicht gehabt haben, habe ich nun natürlich ein Problem^^
Daher denke ich mal das man das dann mit Else macht. Nur leider habe ich keine Ahnung wie ich das da einbauen soll(habe erst sei ca. 3-4 Wochen Delphi).

Ich bedanke mich schon jetzt für Ihre/Eure Hilfe.


Mit freundlichen Gruß
Black-Rider

[Matze]

Hallo, herzlich Willkommen!

Dass du noch etwas zum Überlegen hast, gebe ich dir bewusst keine vollständige Lösung. Somit ist der Lerneffekt auch deutlich größer.
Die Syntax ist diese:

Delphi-Quellcode:

if <Bedingung> then
begin
  <Anweisungen>
end else
begin
  <Anweisungen>
end;

Grüße


PS: Auf www.dsdt.info gibt's ein gutes Anfängertutorial und einen Crashkurs, falls du dich in deiner Freizeit über das, was ihr im Schulunterricht durchgenommen habt, weiterbilden möchtest.

[Black-Rider]

Hey,
herzlichen dank.
Die Räsel Lösung ist ganz einfach, wenn man´s weiß:

Delphi-Quellcode:

procedure THauptForm.Btn_exitClick(Sender: TObject);
begin      //Btn_exitClick
   if MessageDlg('Wollen Sie das Programm wirklich beenden???',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    MessageDlg('Das Programm wird nun beendet.', mtInformation,
      [mbOk], 0);
    Close;
   end else
begin
   MessageDlg('Das Programm wird nicht beendet.', mtInformation,
      [mbOk], 0);
  end;

Herzlichen Danke!

Mit freundlichen Gruß
Black-Rider

[Die Muhkuh]

Hi,

könntest auch so schreiben:

Delphi-Quellcode:

procedure THauptForm.Btn_exitClick(Sender: TObject); 
begin      //Btn_exitClick 
  case MessageDlg('Wollen Sie das Programm wirklich beenden???',  mtConfirmation, [mbYes, mbNo], 0) of
     mrYes: ShowMessage('Programm wird beendet');
     mrNo: ShowMessage('Programm wird nicht beendet');
  end;
end;