title image


Smiley brauchste nicht
function String9toInt10(s9:string;count:Word):Integer;function Int10ToString9(Num:DWord):string;implementation{$R *.DFM}function String9toInt10(s9:string;count:Word):Integer;beginresult:=0;if count=length(s9) then   exit;result:=String9toInt10(s9,count+1)+strtoint(s9[length(s9)-count])*Round(power(9,count));end;function Int10ToString9(Num:DWord):string;const c:array[0..8] of char = ('0','1','2','3','4','5','6','7','8');beginresult:='';if (num=0) then   exit;result:=Int10ToString9(Num div 9)+c[Num mod 9];end;



2 astreine Konverterfunktionen

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: