超短精簡進制轉換

超短精簡進制轉換 日期：2006年3月17日 做者：jey 人氣：3467 查看:[大字體 中字體 小字體] 進制轉換,有誰能有這麼詳細嗎?不是我吹! 精簡/短小精悍
網站:網絡實驗室 Http://www.ontheline.cn 收集與製做: Jey

//十六進制(S)-->>十進制(I) [重寫:Jey] function hextoint(s: string): Integer;
begin //$表明16進制 Result:=StrToInt('$'+s); end;

//十進制轉換爲二進制字符串 [重寫:Jey] function inttoBin(i: integer): string; begin while i <>0 do begin //i mod 2取模,再使用format格式化 result:=Format('%d'+result,[i mod 2]); i:=i div 2 end end; //二進制(S)-->>十進制(D) [重寫:Jey] uses Math; function hextoint(s: string): Double; begin while Length(s) <>0 do begin //2^(長度-1)次方 if s[1]='1' then Result:=Result+power(2,Length(s)-1); s:=Copy(s,2,Length(s)); end end; //十進制(I)-->>十六進制(S) //D自帶函數,Digits長度,通常設4. function IntToHex(Value: Integer; Digits: Integer): string;

//數據(S)-->>二進制(S) //任何數據都是以二進制形式存儲的！ (轉) function conertde(s:string):string; var i:integer; begin for i:=1 to length(s) do result:=result+inttohex(ord(s[i]),2); end;