L
lsh998
Unregistered / Unconfirmed
GUEST, unregistred user!
请教:
type
TArrayString = array of string; //定义数组
var
tpyaoqc:TArrayString;
fillchar(tpyaoqc,sizeof(tpyaoqc),0); //初始化
tpyaoqs:=Copy(Buffer, 9, Size-9); //客户端播放图片时的要求,除掉 '&'
tpyaoqc:=ParseString(tpyaoqs,'##'); //得到 客户端播放图片时的要求
//************************赋值,每个图片的每个属性*******************
for i:=Low(tpyaoqc) to High(tpyaoqc) do
begin
showmessage(tpyaoqc);
TpPlayR.ID:=copy(tpyaoqc,1,2); //ID
TpPlayR.SFQY:=copy(tpyaoqc,3,1); //是否启用
TpPlayR.JPXG:=copy(tpyaoqc,4,2); //进屏效果
TpPlayR.JPSD:=copy(tpyaoqc,6,1); //进屏速度
TpPlayR.TLSJ:=copy(tpyaoqc,7,5); //停留时间
TpPlayR.CPXG:=copy(tpyaoqc,12,2); //出屏效果
TpPlayR.CPSD:=copy(tpyaoqc,14,1); //出屏速度
TpPlayR.SFSF:=copy(tpyaoqc,15,1); //是否缩放
showmessage(copy(tpyaoqc,3,1));
end;
现在问题是:
showmessage(tpyaoqc) show 出的是 '01是01300005003'
可是 showmessage(copy(tpyaoqc,3,1)) show 出的是 '['
各位大哥,这是什么原因啊?
谢谢!
type
TArrayString = array of string; //定义数组
var
tpyaoqc:TArrayString;
fillchar(tpyaoqc,sizeof(tpyaoqc),0); //初始化
tpyaoqs:=Copy(Buffer, 9, Size-9); //客户端播放图片时的要求,除掉 '&'
tpyaoqc:=ParseString(tpyaoqs,'##'); //得到 客户端播放图片时的要求
//************************赋值,每个图片的每个属性*******************
for i:=Low(tpyaoqc) to High(tpyaoqc) do
begin
showmessage(tpyaoqc);
TpPlayR.ID:=copy(tpyaoqc,1,2); //ID
TpPlayR.SFQY:=copy(tpyaoqc,3,1); //是否启用
TpPlayR.JPXG:=copy(tpyaoqc,4,2); //进屏效果
TpPlayR.JPSD:=copy(tpyaoqc,6,1); //进屏速度
TpPlayR.TLSJ:=copy(tpyaoqc,7,5); //停留时间
TpPlayR.CPXG:=copy(tpyaoqc,12,2); //出屏效果
TpPlayR.CPSD:=copy(tpyaoqc,14,1); //出屏速度
TpPlayR.SFSF:=copy(tpyaoqc,15,1); //是否缩放
showmessage(copy(tpyaoqc,3,1));
end;
现在问题是:
showmessage(tpyaoqc) show 出的是 '01是01300005003'
可是 showmessage(copy(tpyaoqc,3,1)) show 出的是 '['
各位大哥,这是什么原因啊?
谢谢!