Pezision

[DeddyH]

Dann halt mit Copy und ohne den Fehler, den ich vorhin gemacht habe.

Delphi-Quellcode:

var
  Ziffern: array of integer;
  i, dummy, Laenge: integer;
begin
  if TryStrToInt(Edit1.Text, dummy) then
    begin
      Laenge := Length(Edit1.Text);
      SetLength(Ziffern, Laenge);
      for i := 1 to Laenge do
        Ziffern[i - 1] := StringToInt(Copy(Edit1.Text, i, 1));
    end;

So sollte es funktionieren.