致各位delphi弟兄: 小弟寫了以下一段code,雖能實現10進制-->2進制，但較為麻煩，以下一段coding 該怎樣寫才簡單地執行同一結果呢? function Dec2Bin (D : integer) : String; //輸入10進制-->輸出0,1字符串 var D1 : String; begin D1 :=''; while Abs(D div 2 ) > 0 do begin D1 := IntToStr(D mod 2) D1; D := D div 2; end; Result :='1' D1; end; //輸入10進制-->輸出0,1字符串************* 請各位delphi弟兄多多指點 jl 平常心活著

------
平常心活著

function Dec2Bin(Dec:LongInt):string;
var
  B1:integer;
  Bin,BinDigit:string;
begin
    BinDigit:='01';
    Bin:='';
    repeat
        B1:=DEC mod 2;
        DEC:=DEC div 2;
        Bin:=concat(BinDigit[B1 1],Bin);
    until DEC<1;
    Dec2Bin:=Bin;
end; 

網海無涯，學無止境!

function Dec2Bin(Dec:LongInt):string;
const
 convert :string='01';
begin
 result := '';
 repeat
  result := Convert[(dec and $1)   1] result;
  dec := dec shr 1;
 until dec =0;
end;

混心雜欲 棄修身~唉

------
唉~

湊熱鬧~    

function DecToBin( D : integer ) : string;
const
  _cbl : string = '0000000100100011010001010110011110001001101010111100110111101111';
var
  i : integer;
  h : string;
begin
  h   := IntToHex( D, 0 );
  for i := 1 to Length( h ) do
    result := result   copy( _cbl, StrToInt( '$'   h[i] )*4 1, 4 );
end;

謝謝qoo1234, speedup 及shieh2700三位 問題已得到完滿的解答。 感謝各位 平常心活著

------
平常心活著