Hoch Rechnungsprogramm

[Bjoerk]

Das mit dem MOD DIV war nicht schlecht. Hatten wir das letzens nicht auch bei Dir ?

Delphi-Quellcode:

uses
  Math;

procedure TForm1.Button1Click(Sender: TObject);
const
  MaxN = 10;
var
  Value, N, I, Total: integer;
  Number: array [1..MaxN] of integer;
begin
  Edit2.Text:= '';
  if TryStrToInt(Edit1.Text, Value) then
  begin
    N:= Length(IntToStr(Value));
    if N <= 10 then
    begin
      for I:= 1 to N do
        Number[N-I+1]:= Value mod Round(IntPower(10, I)) div Round(IntPower(10, I-1));
      Total:= 0;
      for I:= 1 to N do
        Total:= Total + Round(IntPower(Number[I], 3));
      Edit2.Text:= IntToStr(Total);
    end;
  end;
end;