Quersumme erstellen die durch 9 teilbar ist

[BenjaminH]

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]