Hallo Leute,
dass man mit Exit eine Prozedur/Funktion abbrechen kann, ist mir bekannt, wie mache ich es jedoch bei zwei oder mehr Prozeduren/Funktionen? Beispiel:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var ergebnis: double;
begin
ergebnis:= multipliziere(strtofloat(edit1.text), strtofloat(edit2.text));
showmessage(floattostr(ergebnis));
end;
function TForm1.multipliziere(zahl1, zahl2: double): double;
begin
if (zahl1 = 0) or (zahl2 = 0) then Exit;
result:= zahl1 * zahl2;
end;
Nun soll - wenn zahl1 oder zahl2 0 ist - nicht nur die Funktion "multipliziere" abgebrochen werden, sondern auch Button1Click, so dass die letzte Zeile
showmessage(floattostr(ergebnis));
nicht mehr ausgeführt wird.
Gibt es da einen einfachen Befehl?
MfG
davar