C
cjsam
Unregistered / Unconfirmed
GUEST, unregistred user!
如下定义:
var
st:array[0..99] of char;
str,str1:string;
il:integer;
DMemory:TMemoryStream;
a:byte;
i:array[0..9]of char;
t:array[0..3] of byte ;
begin
str:='0123456789';
st[0]:=char(11);
st[1]:=char(loByte(26));
st[2]:=char(hiByte(26));
st[3]:=char($c0);
st[4]:=char($a8);
st[5]:=char($01);
st[6]:=char($01);
for il:=0 to 9 do
st[7+il]:=str[il];
{
st[]中的值应该是:(#11, #26, #0, #192, #168, #1, #1, #0, '0', '1', '2', '3', '4', '5', '6', '7', '8',。。。。。。。)
}
str1:=Format('%s',[st]);//首先想把转换成字符串处理。这的转换好象有问题,
明明那样多的,转换后就很短的一个字符串了,
//{
。。。。。中间有许多其他处理。。。。。。。。
}
//现在开始读上面转换的字符串。
DMemory:=TMemoryStream.create;
DMemory.Write(str1[1],length(str1));
DMemory.Position:=0;
DMemory.Seek(3,soFromBeginning);
DMemory.Read(t,4);
DMemory.Seek(7,soFromBeginning );
Dmemory.Read(i,10);
DMemory.Free;
end;
//读出来的,t,i更本不是对应:#192, #168, #1, #1 和 #0, '0', '1', '2', '3', '4', '5', '6', '7', '8',
请问到底需要怎样处理呀??谢谢大家
var
st:array[0..99] of char;
str,str1:string;
il:integer;
DMemory:TMemoryStream;
a:byte;
i:array[0..9]of char;
t:array[0..3] of byte ;
begin
str:='0123456789';
st[0]:=char(11);
st[1]:=char(loByte(26));
st[2]:=char(hiByte(26));
st[3]:=char($c0);
st[4]:=char($a8);
st[5]:=char($01);
st[6]:=char($01);
for il:=0 to 9 do
st[7+il]:=str[il];
{
st[]中的值应该是:(#11, #26, #0, #192, #168, #1, #1, #0, '0', '1', '2', '3', '4', '5', '6', '7', '8',。。。。。。。)
}
str1:=Format('%s',[st]);//首先想把转换成字符串处理。这的转换好象有问题,
明明那样多的,转换后就很短的一个字符串了,
//{
。。。。。中间有许多其他处理。。。。。。。。
}
//现在开始读上面转换的字符串。
DMemory:=TMemoryStream.create;
DMemory.Write(str1[1],length(str1));
DMemory.Position:=0;
DMemory.Seek(3,soFromBeginning);
DMemory.Read(t,4);
DMemory.Seek(7,soFromBeginning );
Dmemory.Read(i,10);
DMemory.Free;
end;
//读出来的,t,i更本不是对应:#192, #168, #1, #1 和 #0, '0', '1', '2', '3', '4', '5', '6', '7', '8',
请问到底需要怎样处理呀??谢谢大家