ich hab das einmal als qt erstellt, aber ich denke, ich habe deine anweisungen misverstanden. (ergo: es funktioniert nicht
)
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 stellen>0 do
begin
while vergleich(b,a)=0 do //b>a?
result:=result+floattostr(trunc(power(10,stellen)));
delete(a,length(a)-1,1);
stellen:=stellen-1;
end;
end;
[edit=mkinzler]Delphi-Tag eingefügt. Das nächste Mal bitte selber machen! Mfg, mkinzler[/edit]