delphi 字符串分解成数组

var
data:array[0..15]of char;
str:string;

str:='#$11-#$22-#$33-#$44';
怎样才能得到这个结果：
data[0]:=#$11;
感谢你的回答,不过我还是没有解决问题,为了能说明问题,我贴出
源码:
//这是一段写入IC卡的代码,可以执行
var snr:Longword;
data:array[0..15] of Char;
RFReadA(snr,11,@data,#$FF#$FF#$FF#$FF#$FF#$FF);
data[0]:=#$01;
data[1]:=#$02;
RFWriteA(snr,11,@data,#$FF#$FF#$FF#$FF#$FF#$FF);

我想将data[0]:=#$01 后面的'01'找个动态函数，以方便修改数据．怎样才能做成类似这样：data[0]:=#$+str

---

楼主的意思讲的不是很清帆派清楚,我的理解是楼羡孙主可能是把str赋值错了.
我给一段码楼主看看,或许会有帮助.
//Delphi 7.0 + win2k3下通过
procedure TForm1.Button2Click(Sender: TObject);
var
data:array[0..15]of char;
str:string;
begin
str:=#$11+'-'+#$22+'-'+#$33+'-'+#$44;
Memo1.Lines.Add(str);//显示str
CopyMemory(@data, @Str[1], Length(str));
Memo1.Lines.Add(data);//显示Data字符数组(结态前果与str一样)
Memo1.Lines.Add(IntToHex(Ord(data[0]), 2)); //以十六进制方式显示Data[0]
end;

---

手头没有Delphi程辩罩搜序，给你一个思路吧

利闷孝用流文件，可以把整个数携历组，存入数据库一个字段内！

---