Pezision

[DeddyH]

Einfacher geht das aber direkt über den String. Ich will mal nicht so sein:

Delphi-Quellcode:

var
  Ziffern: array of Byte; //oder auch integer, Byte reicht aber
  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] := Edit1.Text[i];
    end;