Ich würde schonmal raten zumindest die Berechnung als eigene Klasse in eine separate
Unit auszulagern.
So kannst du das zumindest 100% Testen und deine Logik ist schon,al sauber getrennt von deiner Form, wenn sich da nochmal was ändert.
Delphi-Quellcode:
type
TBerechnung = class
private
FEingabe1 : Integer
FEingabe2 : Integer
public
function IsValid : Boolean;
function Ergebnis : Double;
property Eingabe1 : Integer
property Eingabe2 : Integer
end;
TBerechnung.IsValid : Boolean;
begin
Result := (Eingabe1 <> 0) and (Eingabe2 <> 0); // Und was immer du da brauchst
end;
TBerechnung.Ergebnis : Double;
begin
if IsValid then
Result := Eingabe1 * Eingabe2 // Was immer du da brauchst
else
Result := NaN; // Wenn die Berechnung nicht möglich ist
end;