qwertz543221 kleine String-Math-Lib

[qwertz543221]

meintest du das so??:

Delphi-Quellcode:

function tform1.quotient(a,b:ansistring):ansistring;
var 
    stellen:longint;
begin
    result := '0';
    stellen:=0;
    while length(b)<length(a) do
    begin
        b:=b+'0';
        stellen:=stellen+1;
    end;

    while (vergleich(a,b)=0)and(stellen>0)do //divident >divisor
    begin
        result:=summe(result,floattostr(trunc(power(10,stellen))));
        a:=differenz(a,b);
    end;
    delete(a,length(a)-1,length(a));
    stellen:=stellen-1;
end;

[edit=mkinzler]Delphi-Tag eingefügt; Code eingerückt Mfg, mkinzler[/edit]