MESSAGEBOX

[alfold]

Was soll den diese ewige EXIT

Delphi-Quellcode:

procedure TForm1.btn_ausrechnenClick(Sender: TObject);
begin
  if edt_ergebnis.Text ='' then exit;//<--- weg damit
  begin
    Application.MessageBox('Eingabe ungültig','Achtung!',MB_OK);
    exit;//<--weg damit
  end;
  begin//<--weg damit
    if edt_name.Text ='Heidi' then exit;//<--weg damit
    begin
      Application.MessageBox('Du passt am besten mit Peter zusammen','Glückwunsch',MB_OK);
      exit;//<--weg damit
    end;
end;