Delphi World - Из двоичного представления в целое и наоборот 2
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Из двоичного представления в целое и наоборот 2

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

 {by Andre Fritzsche}

 unit BinConvert;

 interface

   //Wandelt Bytewert (Value) zu Binarwert und trennt mit Splitter Hi- und Lo-Bits 
function ToBin(Value: Byte; Splitter: Char): string; overload;

   //Wandelt Wordwert (Value) zu Binarwert und trennt mit Splitter Hi- und Lo-Byte 
function ToBin(Value: Word; Splitter: Char): string; overload;

   //Wandelt Binarwert (String) zu Zahl (Cardinal) 
function BinTo(Value: string): Cardinal;

 implementation
 {------------------------------------------------------------------------------}

 function ToBin(Value: Byte; Splitter: Char): string;
 var
   val, bit, intX: Byte;
 begin
   val := Value;
   for intX := 0 to 7 do
   begin   //Alle 8 Bits durchlaufen 
    bit := 48;    //48 (='0') zu bit 
    val := val shr 1; //Value um 1 Bit nach rechts verschieben 
    asm
    adc bit,0   //CarryFlag zu bit addieren 
  end;
     if intX = 4 then Result := Splitter + Result;
     Result := Chr(bit) + Result;   //zu Result hinzufugen 
  end;
 end;
 {------------------------------------------------------------------------------}

 function ToBin(Value: Word; Splitter: Char): string;
 begin
   Result := ToBin(Byte(Hi(Value)), Splitter) + Splitter + ToBin(Byte(Lo(Value)), Splitter);
 end;
 {------------------------------------------------------------------------------}

 function BinTo(Value: string): Cardinal;
 var
   intX, PosCnt: Byte;
 begin
   Result := 0;
   PosCnt := 0;
   for intX := Length(Value) - 1 downto 0 do //zeichen von rechts durchlaufen 
    case Value[intX + 1] of   //prufen, ob 0 oder 1 
      '0': Inc(PosCnt);  //bei 0 nur Pos-Zahler erhohen 
      '1':
         begin  //bei 1 Bit an Position einfugen 
          Result := Result or (1 shl PosCnt);
           Inc(PosCnt); //und Zahler erhohen 
        end;
     end;
 end;
 {------------------------------------------------------------------------------}

 end.
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования