Es sieht auch nach ein bißchen viel Begin und End aus,...
net nur en bisschen
[EDIT]
Delphi-Quellcode:
procedure TForm1.btn_ausrechnenClick(Sender: TObject);
begin
if edt_ergebnis.Text ='' then
begin
Application.MessageBox('Eingabe ungültig','Achtung!',MB_OK);
end else
begin
if edt_name.Text ='Heidi' then
begin
Application.MessageBox('Du passt am besten mit Peter zusammen','Glückwunsch',MB_OK);
end;
end;
end;
aber so schauts schon besser aus
net optimal aber besser
hab jetz auch erstmal feirabend also bis denn