دنیای برنامه نویسی دلفی - Delphi Programming

دنیای برنامه نویسی دلفی از مقدماتی تا پیشرفته ( آموزش ) - Delphi Programming

یک تابع برای تبدیل بایرنری به مبنای ۱۰:
ساعت ۱:٤٧ ‎ق.ظ روز یکشنبه ٢٠ اسفند ۱۳۸٥  کلمات کلیدی: تبدیل ها

یک تابع برای تبدیل بایرنری به مبنای ۱۰:

function BinToInt(Value: String): Integer;
var
  i,Size: Integer;
begin
  Result:=0;
  Size:=Length(Value);
  for i:=Size downto 1 do
    if Value[i]='1' then Result:=Result+(1 shl (Size-i));
end;

یک تابع برای تبدیل مبنای ۱۰ به مبنای شانزده:

function IntToHex2( n:integer ):string;
  const hex:array [0..15] of char
     =('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
begin
  while n<>0 do begin
     result:=hex[ 15 and n ]+result; {=(n mod 15)}
     n:=n shr 4; end; {=n div 16}
end;