strin nach array of byte

[Klaus01]

die record variante sollte etwa so gehen:

Delphi-Quellcode:

type
  data = record
    case boolean of
      true: (text: String[15]);
      false: (byteArray: Array[0..15] of Byte);
  end;


...

procedure TForm1.Button1Click(Sender: TObject);
var
  test: data;
  i:Byte;
begin
  Memo1.Clear;
  test.text:='012345678901234';
  for i:=low(test.byteArray)+1 to high(test.byteArray) do 
    begin
      Memo1.Lines.Add(InttoHex(test.ByteArray[i],2));
    end;
end;

Grüße
Klaus