|
Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
Turbo Delphi für Win32
|
Re: Informationen aus Byte
19. Jan 2007, 16:22
Delphi-Quellcode:
function LastBitSet(b: Byte): Boolean;
begin
Result:=Boolean(b and 1);
end;
Delphi-Quellcode:
function BinToStr(b: Byte): String;
var I: Integer;
begin
setlength(result, 8);
for I:=0 to 7 do
result[I+1]:=chr((b shr (7-I)) and 1+48);
end;
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
|