MESSAGEBOX

[p80286]

Ich hab so leise Zweifel ob das überhaupt läuft:

Delphi-Quellcode:

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

Und in Welchem TEdit.Text soll was stehen damit Dein Programm richtig reagiert?

Gruß
K-H