Für diesen einfachen Fall zu umständlich.
Delphi-Quellcode:
type
TAddition = class
private
public
function Add(wert1,wert2:integer; var Ergebnis:integer):boolean;
end;
Implemaentation
Function Taddition.Add;
begin
Ergebnis:=wert1+wert2;
result:=(wert1<>0) and (wert2<>0);
end;
Result zeigt dann ob was sinnloses gemacht wurde oder kann auf einen Konvertierungsfehler hinweisen.
Die Sache mit privaten Feldern, Methoden sowie Properties macht nur dann Sinn, wenn man Werte zwischenspeichen will.