Pezision

[boxer123]

Delphi-Quellcode:

var ziffer:array[1..10] of integer;
stellen,zahl:longint;
    begin
        zahl := strtoint (edit1.text) ;
    repeat
        zahl := zahl + 1 ;
        ziffer[1]:= (zahl mod 10) div 1;
        ziffer[2]:= (zahl mod 100) div 10;
        ziffer[3]:= (zahl mod 1000) div 100;
        ziffer[4]:= (zahl mod 10000) div 1000;
        ziffer[5]:= (zahl mod 100000) div 10000;
        ziffer[6]:= (zahl mod 1000000) div 100000;
        ziffer[7]:= (zahl mod 10000000) div 1000000;
        ziffer[8]:= (zahl mod 100000000) div 100000000;
        ziffer[9]:= (zahl mod 1000000000) div 100000000;
        ziffer[10]:= (zahl mod 10000000000) div 10000000000;
end;

so?