Из двоичного представления в целое и наоборот 2Delphi , Синтаксис , ПреобразованияИз двоичного представления в целое и наоборот 2
Оформил: DeeCo {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-языка программирования. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Преобразования ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |