1:
2:
3:
4:
5:
6:
7:
8:

var
  i, k: Integer;
  s: String;
begin
  k := 199.1;
  s := IntToStr(Trunc(k));
  for i := 1 to Length(s) do ListBox1.Items.Add(s[i]);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

ziffern : ARRAY OF Integer;

implementation

{$R *.dfm}

procedure ziffern_suchen (zahl : Single);
VAR my_zahl : Integer;
begin
  while Trunc(zahl) <> zahl do zahl:=zahl*10;
  my_zahl :=Trunc(zahl);

  SetLength(ziffern,0);
  repeat
    SetLength(ziffern,Length(ziffern)+1);
    ziffern[High(ziffern)]:=(my_zahl mod 10);
    my_zahl:=my_zahl div 10;
  until my_zahl = 0;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

ziffern : ARRAY OF Integer; 

procedure ziffern_suchen (zahl : Single); 
VAR str:String; 
var i:integer;
begin 
  //Zahl in Str umwandeln
  Str:=FloatToStr(Zahl);

  //Komma herausnehmen
  Str:=StringReplace(Str,',','');

  //Grösse des Arrays festlegen
  SetLength(ziffern,Length(Str));

  //Array bestücken
  for i:=1 to Length(Str) do
    ziffern[i-1]:=StrToint(Str[i]);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

procedure ziffern_suchen (zahl : Single);
VAR my_zahl,i : Integer;
    my_ziffern : Array of Integer;
begin
  while Trunc(zahl) <> zahl do zahl:=zahl*10;
  my_zahl :=Trunc(zahl);

  SetLength(my_ziffern,0);
  repeat
    SetLength(my_ziffern,Length(my_ziffern)+1);
    my_ziffern[High(my_ziffern)]:=(my_zahl mod 10);
    my_zahl:=my_zahl div 10;
  until my_zahl = 0;

  SetLength(ziffern,Length(my_ziffern));
  for i:=High(my_ziffern) TO 0 DO
  ziffern[High(ziffern)-i]:=my_ziffern[i];
end;


procedure ziffern_suchen_mit_str (zahl : Single);
VAR str:String;
var i:integer;
begin
  //Zahl in Str umwandeln
  Str:=FloatToStr(Zahl);

  //Komma herausnehmen
  Str:=StringReplace(Str,',','',[]);

  //Grösse des Arrays festlegen
  SetLength(ziffern,Length(Str));

  //Array bestücken
  for i:=1 to Length(Str) do
    ziffern[i-1]:=StrToint(Str[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);
VAR zahl : Real;
    zeit1,zeit2,zeit,i : Integer;
begin
  zahl:=2.147483647;
  zeit1:=GetTickCount;
  for i:=0 TO 999999 DO ziffern_suchen(zahl);
  zeit2:=GetTickCount;
  ShowMessage(IntToStr(zeit2-zeit1));
  zeit1:=GetTickCount;
  for i:=0 TO 999999 DO ziffern_suchen_mit_str(zahl);
  zeit2:=GetTickCount;
  ShowMessage(IntToStr(zeit2-zeit1));
end;					

1:
2:
3:
4:
5:
6:
7:

var 
  i: Integer;
  s: String;
begin
  s := FloatToStr(199.1);
  for i := 1 to Length(s) do if s[i] in ['0'..'9'] then ListBox1.Items.Add(s[i]);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  i: Integer;
  s: String;
  x: array of Integer;
begin
  s := FloatToStr(199.1);
  for i := 1 to Length(s) do if not(s[i] in ['0'..'9']) then Delete(s, i, 1);

  SetLength(x, Length(s)-1);
  for i := 1 to Length(s) do x[i-1] := StrToInt(s[i]);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
  i: Integer;
  s: String;
  x: array of Integer;
begin
  s := FloatToStr(199.1);
  for i := 1 to Length(s) do if not(s[i] in ['0'..'9']) then Delete(s, i, 1);

  SetLength(x, Length(s)+1);
  x[0] := Length(s);

  for i := 1 to Length(s) do x[i] := StrToInt(s[i]);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure ziffern_suchen_hybrid (zahl : Single);
VAR my_zahl,i : Integer;
    my_ziffern : Array of Integer;
begin
  while Trunc(zahl) <> zahl do zahl:=zahl*10;
  my_zahl :=Trunc(zahl);

  SetLength(my_ziffern,Length(IntToStr(my_zahl))); //<-- da ist die Änderung
  repeat
    my_ziffern[High(my_ziffern)]:=(my_zahl mod 10);
    my_zahl:=my_zahl div 10;
  until my_zahl = 0;

  SetLength(ziffern,Length(my_ziffern));
  for i:=High(my_ziffern) TO 0 DO
  ziffern[High(ziffern)-i]:=my_ziffern[i];
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure ziffern_suchen_mit_str2 (zahl : Single);
VAR str:String;
var i,j:integer;
var Laenge:Integer;
begin
  //Zahl in Str umwandeln
  Str:=FloatToStr(Zahl);

  //Laenge bestimmen
  Laenge:=Length(Str);
  if Pos(',',Str)>0 then
    Dec(Laenge);

  //Array-Laenge festlegen
  SetLength(Ziffern,Laenge);

  //Array bestücken
  j:=0;
  for i:=1 to Laenge do
  begin
    if Str[i]=',' then
      Continue;
    Ziffern[j]:=Ord((Str[i]))-48;
    Inc(j);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Button1Click(Sender: TObject);
var
i1,i2,i3,i4,i5:word;
i             :Integer;
Zahl          :single;
begin
Zahl :=(strtofloat(Nummer.Text)*10);
i    :=trunc(zahl); 
divmod(i,10000,i1,i2);
Nr1.Value := i2;
 divmod(i,1000,i2,i3);
Nr2.Value := i3;
 divmod(i,100,i3,i4);
Nr3.Value := i4;
 divmod(i,10,i4,i5);
Nr4.Value := i5;
 end;