Из двоичного представления в целое и наоборотDelphi , Синтаксис , ПреобразованияИз двоичного представления в целое и наоборот
Оформил: DeeCo {1.} {**********************************************************} // Binary to Integer function BinToInt(Value: string): Integer; var i, iValueSize: Integer; begin Result := 0; iValueSize := Length(Value); for i := iValueSize downto 1 do if Value[i] = '1' then Result := Result + (1 shl (iValueSize - i)); end; // Integer to Binary function IntToBin1(Value: Longint; Digits: Integer): string; var i: Integer; begin Result := ''; for i := Digits downto 0 do if Value and (1 shl i) <> 0 then Result := Result + '1' else Result := Result + '0'; end; function IntToBin2(d: Longint): string; var x, p: Integer; bin: string; begin bin := ''; for x := 1 to 8 * SizeOf(d) do begin if Odd(d) then bin := '1' + bin else bin := '0' + bin; d := d shr 1; end; Delete(bin, 1, 8 * ((Pos('1', bin) - 1) div 8)); Result := bin; end; Статья Из двоичного представления в целое и наоборот раздела Синтаксис Преобразования может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Преобразования ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |