Du brauchst als Erstes mal eine Funktion, die ganz sauber und adrett die Quersumme einer
Zahl berechnet:
Delphi-Quellcode:
{*
* Berechne die Quersumme aus einer Zahl x
* z.B.: Quersumme von 1234 ist 10
*}
function QuerSumme(x:Longint):integer;
begin
Result := 0;
while x > 0 do
begin
Result := Result + (x mod 10);
x := x div 10;
end;
end;
Quersummen kann man nur von ganzzahligen Zahlen errechnen.
Und nun eine Funktion, die überprüft, ob Quersumme(A)+Quersumme(B)=Quersumme(A+B) ist:
Delphi-Quellcode:
function QuersummenCheck(A, B: Longint):boolean;
begin
Result := (QuerSumme(A)+QuerSumme(B) = QuerSumme(A+B));
end;