各位兄台： 以下那段coding 怎樣才有效優化呢?請多多指正 function Bin2Dec (B : String) : integer; //輸入0,1字符串-->輸出十進制數值 var B1 : String; B3, B4, B5 : integer; begin B3 := length(B); B5 :=0; for B4 := 1 to B3 do begin B1 :=B[B4]; B5 := B5 StrToInt(B1)*Pow(2,(B3-B4)); end; result :=B5; end; //輸入0,1字符串-->輸出十進制數值*********** jl 我是初學者，請指點 平常心活著

------
平常心活著

function Bin2Dec(BIN:string):LongInt; 
var T1,T2,Dec : LongInt; 
Error : Boolean;     begin 
    Error:=False; 
    T1:=0;         T2:=0;         DEC:=0;  
    for T1:=1 to length(BIN) do 
    begin 
        T2:=length(BIN)-T1; 
        case BIN[T1] of 
            '1' : DEC:=DEC Power(2,T2); 
            '0' : DEC:=DEC 0; 
        else                  Error:=True; 
        end;  
    end; 
    Bin2Dec:=Dec; 
    if Error then Bin2Dec:=0; 
end; 
 

網海無涯，學無止境!

function Bin2Dec (B : String) : integer;
var i,long:integer;
begin
 result := 0;
 long :=length(B);
 for i :=1 to long do
  if B[i] = '1'  then result :=  result   1 shl (long-i);
end;

混心雜欲 棄修身~唉

------
唉~

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

------
平常心活著

function Bin2Dec(B:String):integer;
var i,mLen:integer;
begin
  Result:=0;
  mLen:=Length(B);
  i:=1 to mLen do Result:=(Result shl 1) (Byte(B[i]) and 1);
end;

這支除了迴圈較花時間, 其它運算都是基本邏輯運算 執行速度會較佳

To Brian77: 多謝您的回覆，正如您所說，這支除了迴圈較花時間, 其它運算都是基本邏輯運算執行速度會較佳。 十分感激 jl 平常心活著

------
平常心活著