Hi Leute,
ich habe mich jetzt drangesetzt und wollte eine Funktion schreiben, die wie man es aus der Schule kennt schriftlich dividiert, sprich mit Strings.
Delphi-Quellcode:
function Divide(zahl: string; divi: integer): string;
var g: boolean;
z,r,t,last: integer;
erg: string;
begin
g := false;
z := 0;
last := 0;
repeat
if z = Length(zahl)+1 then begin
g := true;
end
else begin
t := StrToInt(zahl[z]);
t := t + last;
last := 0;
if divi > t then begin
t := StrToInt(zahl[z] + zahl[z+1]);
inc(z);
end;
if t = 0 then begin
erg := erg + '0';
end
else begin
erg := erg + IntToStr(t div divi);
last := t mod divi;
end;
inc(z);
end;
until g = true
Result := erg;
end;
Nur leider funktioniert es nicht. Hat jemand eine funktionierende Funktion, oder wo steckt bei meiner der Fehler?
MfG, ScorpionKing!