Fragen zum aufstellen von Formeln

[Rollo62]

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;