我正在将字符串写入文件并使用 binarywriter 和 binaryreader 将其读回。当字符串被读回时,它看起来很有趣而且很长。我不知道它为什么这样做。
这是我使用 binarywriter 写入文件的方法:
TFileHeader = Record
ID:String;
version:SmallInt;
end;
method WriteGroups(fname:string; cg:ArrayList);
var
strm : BinaryWriter;
i:integer;
cnt:Integer;
GroupHeader:TFileHeader;
begin
GroupHeader.ID:='GroupFile'; <<<-----I am having problem with this string.
GroupHeader.version:=6;
if Environment.OSVersion.Platform = System.PlatformID.Unix then
fname := baseDir +'/calgroup.dat'
else
fname := baseDir +'\calgroup.dat';
if cg.Count > 0 then
begin
strm := new BinaryWriter(File.Create(fname));
cnt := cg.Count;
strm.Write(GroupHeader.version);
strm.Write(GroupHeader.ID);
strm.Write(cnt);
for i := 0 to cnt - 1 do
begin
TCalGroup(cg[i]).WriteMGroup(strm);
end;
strm.Close;
end;
end;
以下是我使用 BinaryReader 从文件中读取的方法:
method ReadGroups(fname:string; cg:ArrayList);
var
strm : BinaryReader;
GroupHeader:TFileHeader;
cnt:SmallInt;
i:integer;
cgp:TMagiKalCalGroup;
begin
GroupHeader.ID :='';
GroupHeader.version := 0;
if Environment.OSVersion.Platform = System.PlatformID.Unix then
fname := baseDir +'/calgroup.dat'
else
fname := baseDir +'\calgroup.dat';
if File.Exists(fname) then
begin
ClearGroups(cg);
strm := new BinaryReader(file.OpenRead(fname));
GroupHeader.version:=strm.ReadInt32;
GroupHeader.ID := strm.ReadString; <-----Here is the problem. See the image below..
if ((GroupHeader.ID='') or (GroupHeader.version>100)) then
begin
strm.Close;
Exit;
end;
if (GroupHeader.version<5) then
begin
strm.Close;
exit;
end;
cnt := strm.ReadInt16;
for i := 0 to cnt - 1 do
begin
reformat:=false;
cgp := new TMagiKalCalGroup('New Grp');
cgp.ReadMGroup(Strm);
cgp.UpdateDateTime(System.DateTime.Now);
cg.Add(cgp);
end;
//strm.Free;
strm.Close;
end;
end;
这是我在调试代码时看到的:
如您所见或看不到,“GroupHeader.ID”应该只包含“Groupfile”而不是包含垃圾的长字符串。
那么,我做错了什么?这是字符串格式错误吗?