Zitat von
MiniKeks:
I)ch will dass Delphi eine Quersummer errechnet, die durch 9 Teilbar ist und sie in
Edit1 ausgibt.
Das würde eine Quersumme errechnen, die durch neun teilbar ist:
Delphi-Quellcode:
randomize;
x:=Random(10);
x:=x*9;
Edit1:=InttoStr(x);
Das wäre die Quersumme, für eine Zahl deren Quersumme durch 9 teilbar ist bin ich grad zu faul, hab aber auch keine Ahnung wie des gehen soll.
[Edit]Schade zu spät[/Edit]