{同时建立内存流} pc:=mStream1.Memory; {把字符指针指向内存流} for k2:=kaishi2 to jiesu2-1 do begin

Astr:=pc[k2]; {对应的内容} len2:=length(AStr); {测试字符串长度} Result:=''; {清空结果存储器空间} for i2:=1 to len2 do {逐位转换} begin

schar:=AStr[i2]; {读对应位的字符串} Result:=IntToHex(Ord(schar),2); if IntToHex(Ord(schar),2)='24' then

Edit19.Text:='2d' else

if IntToHex(Ord(schar),2)='25' then Edit19.Text:='2e' else

if IntToHex(Ord(schar),2)='26' then

Edit19.Text:='2F' Else end;

begin {提取数据生成时间世界时} kaishi:=20; {第一帧数据生成时间存放地址} jiesu:=26; {同时建立内存流}

pc:=mStream1.Memory; {把字符指针指向内存流} for k:=kaishi to jiesu-1 do begin

Astr:=pc[k]; {提取第一帧生成时间}

3