qwertz543221 kleine String-Math-Lib

[himitsu]

also das sollte jetzt bei dir Laufen ...

Delphi-Quellcode:

function tform1.Quotient(a, b: AnsiString): AnsiString; 
var
  c: Int64;
begin
  if b = '0' then System.Error(reDivByZero);
  Result := '0';
  c      := 0;
  while Length(b) < Length(a) do
  begin
    c := c + 1;
    b := b + '0';  // b := produkt(b, '10');
  end;
  while c >= 0 do
  begin
    while vergleich(b, a) <> 0 do
    begin
      Result := summe(Result, inttostr(trunc(power(10, c))));
      a := differenz(a, b);
    end;
    c := c - 1;
    Delete(b, Length(b), 1);  // b := quotient(b, '10');
  end;
end;

es gibt nur ein Problem ...
die Funktion summe rechnet falsch ...
und zwar wenn man sie einzeln benutzt, dann 1+1=2
aber in der schleife 0+1=1 ... 1+1=21 ... 21+1=221 .....
da ich aber bei deiner Summenfunktion einfach nicht durchseh, mußt'e den Fehler da wohl selber finden (hat vielleicht was mit den gloablen Variablen zu tun? )

[add]
Problem gefunden ... du hast in Summe das result nicht initialisiert
ein result:=''; vor der Berechnung liefert Abhilfe.

und noch einen Tipp: das result wurde auch in anderen Funktionen nicht initialisert