Zahl in einzelne Stellen zerlegen ohne Stringkonvertierung!

[DeddyH]

Spontan fallen mir da auch 2 Möglichkeiten ein:

Delphi-Quellcode:

function Stellenwert(Zahl: integer; Stelle: byte): integer;
begin
  Result := trunc(Zahl / Power(10,Pred(Stelle))) mod 10;
  //oder
  Result := trunc(frac(Zahl / Power(10,Stelle)) * 10);
end;

Stelle ist dann "von rechts" anzugeben, also 1 für die 1er-Stelle, 2 für die 10er-Stelle usw.