|
|
|
|
خوش آمدید. در این سایت می توانید ابزارهای دلفی و نرم افزارها را دریافت کنید. |
|
|
|
|
تبديل يك عدد هگزادسيمال به باينري function HexToBin(Hexadecimal: string): string; const BCD: array [0..15] of string = ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111','1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111'); var i: integer; begin for i := Length(Hexadecimal) downto 1 do Result := BCD[StrToInt('$' + Hexadecimal[i])] + Result; end; |
|
|
آخرين به روز رسانی:
آمار بازدید:
|
