Delphi-Quellcode:
{ *********************************************************************** }
{ }
{ Delphi DBX Framework }
{ }
{ Copyright(c) 1995-2010 Embarcadero Technologies, Inc. }
{ }
{ *********************************************************************** }
unit DBXJSON;
...
class function TJSONString.Hex(
const Digit: Integer): Byte;
var
HexData: TBytes;
begin
SetLength(HexData,16);
HexData[0] := Ord('
0');
HexData[1] := Ord('
1');
HexData[2] := Ord('
2');
HexData[3] := Ord('
3');
HexData[4] := Ord('
4');
HexData[5] := Ord('
5');
HexData[6] := Ord('
6');
HexData[7] := Ord('
7');
HexData[8] := Ord('
8');
HexData[9] := Ord('
9');
HexData[10] := Ord('
A');
HexData[11] := Ord('
B');
HexData[12] := Ord('
C');
HexData[13] := Ord('
D');
HexData[14] := Ord('
E');
HexData[15] := Ord('
F');
Result := HexData[Digit];
end;
Kein Kommentar ist auch ein Kommentar ... bzw. das ist kommentarlos schon schlimm genug.
Wobei man hätte gern noch kommentieren können, was beim Aufruf von
TJSONString.Hex(12345)
passieren könnte.
