Quersumme einer simplen Rechnung ermitteln !

[XpreZz]

Code:

var    
   z1, z2, z3, z4, z5, z6, z7, z8, z9, z10, z11, z12, pz : byte;    
begin    
  z1 := StrToInt (EDT_Z1.Text);    
  z2 := StrToInt (EDT_Z2.Text);    
  z3 := StrToInt (EDT_Z3.Text);    
  z4 := StrToInt (EDT_Z4.Text);    
  z5 := StrToInt (EDT_Z5.Text);    
  z6 := StrToInt (EDT_Z6.Text);    
  z7 := StrToInt (EDT_Z7.Text);    
  z8 := StrToInt (EDT_Z8.Text);    
  z9 := StrToInt (EDT_Z9.Text);    
  z10 := StrToInt (EDT_Z10.Text);    
  z11 := StrToInt (EDT_Z11.Text);    
  z12 := StrToInt (EDT_Z12.Text);    
  pz := (z1+z2+z3+z4+z5+z6+z7+z8+z9+z10+z11+z12);    
  EDT_Ausgang.Text := IntToStr (pz);    
end;

z1 bis z12 sind jeweils die Eingaben in das Edit Feld 1-12. Nun möchte ich von pz (also dem Ergebnis der langen Addition)
die Quersumme haben. Also kommt zum Beispiel 71 bei pz raus wäre die Quersumme von 71 ---> 8. Aber wie lautet der Befehl für Quersumme ?

[GTA-Place]

Reichen dir die Antworten im Delphi-Forum nicht?

[StefanDP]

quersumme delphi :-)

1. Treffer: http://www.tmg.musin.de/delphi7.htm
--> Antwort auf deine Frage

[rantanplan99]

Hi, deine Frage wurde ja von StefanDP beantwortet, bzw. in dem Google Link ist das ja erklärt. Aber was anderes: deine z.. und pz Variablen sind Byte, ist Byte nicht ein bischen arg klein? Ein Byte geht ja nur von 0 bis 255.

[XpreZz]

Zitat:

Reichen dir die Antworten im Delphi-Forum nicht?

Ich hole gern 2 Meinungen oder mehr ein... :angel2: