Schriftliches Dividieren!

[Kroko1999]

dies sollte gehen, deinen Code habe ich nicht durchschaut

Delphi-Quellcode:

function NewDiv (const AZahl: String; ADiv: Integer): String;
var
  P: Integer;
  Z,H: Cardinal;
begin
  P := 1;
  Z := 0;
  Result := '';
  repeat
    Z := Z*10;
    if P<=Length(AZahl) then Z := Z+Ord(AZahl[p])-Ord('0');
    Inc (P);
    H := Z div ADiv;
    Result := Result+IntToStr(H);
    Z := Z - H*ADiv;
  until P>Length(AZahl);
end;