|
Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: Hexadezimal < > 8 bits
29. Mär 2017, 22:05
Delphi-Quellcode:
const
HX : array [0..15] of ansichar=' 0123456789ABCDEF';
function HXTRANS( ib:byte):ansistring;
begin
result:=' ';
result[1]:=HX[ ib shr 4];
result[2]:=HX[ ib and $0F];
end;
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|