[Gelöst] String in Array of Byte umwandeln [TKey]

[Saeckel1]

Hallo, ich bräuchte mal Eure Hilfe!
Ich habe ein Problem bei der Umwandlung eines Strings in ein Array of Byte;
Ich benutze Turbo-Power OnGuard, dort gibt es einen TKey als Array [0..15] of Byte.

Delphi-Quellcode:

 Key : TKey = ($3E,$C9,$18,$78,$7D,$AC,$AF,$D3,$64,$E0,$BC,$0A,$43,$68,$2C,$F2);

Mein Key als String sieht so aus:

Delphi-Quellcode:

 S := '$3E,$C9,$18,$78,$7D,$AC,$AF,$D3,$64,$E0,$BC,$0A,$43,$68,$2C,$F2'

wie bekomme ich den String in den Key?

Danke, Saeckel1

[Uwe Raabe]

Delphi-Quellcode:

var
  arr: TArray<string>;
  S: string;
  Key: TKey;
  I: Integer;
begin
  S := '$3E,$C9,$18,$78,$7D,$AC,$AF,$D3,$64,$E0,$BC,$0A,$43,$68,$2C,$F2';
  arr := S.Split([',']);
  Assert(Length(arr) = Length(Key), 'Fehler im Keystring');
  for I := 0 to Length(Key) - 1 do begin
    Key[I] := StrToInt(arr[I]);
  end;
end;

[Saeckel1]

Da muss man halt die Profis fragen :-D

Funktioniert einwandfrei.

Danke!