1:
2:
3:
4:
5:
6:
7:
8:

procedure WideStringToBinArray(const ws: WideString; var bin: TBinArray);
var
  l: Integer;
begin
  l := Length(ws)*SizeOf(WideChar);
  SetLength(bin, l);
  CopyMemory(@bin[0], @ws[1], l);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Function ByteToString (b: BYTE): STRING;
const
NIBBLECHAR:
ARRAY[$0..$F] OF CHAR

= ('0','1','2','3','4','5','6','7',

'8','9','A','B','C','D','E','F');

VAR s: STRING;

begin

SetLength(s,2);
s[1] := NIBBLECHAR[b DIV 16];
s[2] := NIBBLECHAR[b MOD 16];
Result := '$'+s

end;					

1:

Showmessage(inttostr($11));					

1:
2:
3:
4:
5:
6:
7:
8:

procedure BinArrayToWideString(const bin: TBinArray; var ws: WideString);
var
  l: Integer;
begin
  l := Length(bin) div SizeOf(WideChar);
  SetLength(ws, l);
  CopyMemory(@ws[1], @bin[0], Length(bin));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:

//Anzahl
function Zeichen(const s: String; const z: Char): Integer;
var
  I: Integer;
begin
result := 0;
for I := 1 to length(s) do
  if s[i] = z then inc(result);
end;



//Splitt
function Split(TempString,Delimiter : String; StrIndex : Integer) : String;
var
  CurrIndex : Integer ;
begin
  TempString:=TempString + Delimiter;
  if Pos(Delimiter,TempString)<>0
  then
begin
  CurrIndex:=1;
  while StrIndex>CurrIndex
  do
begin
  TempString:=Copy( TempString,
  Pos(Delimiter,TempString)+Length(Delimiter),
  MaxInt
  );
  Inc(CurrIndex);
end;
  Result:=Copy(TempString,0,Pos(Delimiter,TempString)-1);
end;
end;


//das was ich produziert habe x.x"
procedure HexToByte(var h: string; var Hex: array of string);
var
i:integer;
begin
i:=0;
for i := 0 to zeichen(h,'$') do //halt so oft wie $ vorhanden ist, da jedes $ fuer einen hex wert steht.
//showmessage(inttostr(zeichen(h,'$')));
Hex[i] := Split(h,'$',i); //fuelle den array mit dem hex werten. nach dem 0ten $, nach dem 1sten etc..
//showmessage(Split(h,'$',i-3));
// showmessage(hex[3]);
end;




//zum testen
procedure TForm2.Button1Click(Sender: TObject);
var StringArray: array [0..9] of string;
test:string;
begin
test:= '$aa$bb$cc$dd';

HexToByte(test,StringArray);
Showmessage(StringArray[0]);
Showmessage(StringArray[1]);
Showmessage(StringArray[2]);
end;					

1:

Hex[i] := Split(h,'$',i+2);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TFormX.ButtonXClick(Sender: TObject);
type
  TBinArray = array of Byte;

  procedure HexToBinArray(const Src: String; var Bytes: TBinArray);

    function CharValue(const Value: Char): Byte;
    begin
      case Value of
        '0'..'9': Result := Ord(Value) - 48;
        'a'..'f': Result := Ord(Value) - 87;
        'A'..'F': Result := Ord(Value) - 55;
      end;
    end;

  var
    i: Integer;
  begin
    SetLength(Bytes, Length(Src) div 3);
    for i := 0 to Length(Bytes) - 1 do
      Bytes[i] := CharValue(Src[i*3 + 2]) * 16 + CharValue(Src[i*3 + 3]);
  end;

var
  Test: TBinArray;
begin
  HexToBinArray('$0a$A0$10', Test);
  ShowMessage(IntToStr(Test[0]));
  ShowMessage(IntToStr(Test[1]));
  ShowMessage(IntToStr(Test[2]));
end;					

1:
2:

case Value of
        '0'..'9': Result := Ord(Value) - 48;					

1:

Bytes[i] := CharValue(Src[i*3 + 2]) * 16 + CharValue(Src[i*3 + 3]);