字符串问题将Delphi 3迁移到Delphi 2010

Question

我得到了一个较旧项目的来源,并且必须改变一些小东西,但是我遇到了大麻烦,因为我只有delphi 2010才能做到这一点.

有一个记录定义:

bbil = record
  path : string;
  pos: byte;
  nr: Word;
end;

以后这个定义用于从文件中读取:

b_bil: file of bbil;
pbbil: ^bbil;
l_bil : tlist;

while not(eof(b_bil)) do
  begin
    new(pbbil);
    read(b_bil, pbbil^);
    l_bil.add(pbbil);
  end

主要问题是,编译器不接受记录中的"字符串"类型,因为他想要"完成".所以我试着将"string"改为"string [255]"或"shortstring".这样做应用程序正在读取文件但内容错误.

我的问题是如何将用于编写文件的旧"字符串"类型转换为Delphi 2010中的"新"类型.

我已经尝试了很多例如"{$ H-}".在记录显示中只添加一个char更多,文件是正确的,因为文件读取几乎正确,但每个数据集截断一个char更多 - lengthbyte + 255chars的长度似乎是正确的fpr定义但shorttring不匹配.

Answer 1

伊克!您的代码看起来像是早期或不使用长字符串.如果你想获得相同的行为在你的老德尔福,那么你需要更换string有ShortString.

我看到你已经尝试过并报告它失败了.它实际上是唯一对我有意义的解释,因为所有其他字符串类型本质上都是指针,因此唯一可行的方法read是使用ShortString.你正在尝试的迁移是巨大的,你可能有大量的混杂问题.

@LU RD在注释中提出了一个很好的观点,即由于您没有使用packed数组,因此Delphi版本之间的记录布局可能会有所不同.您可以使用手头的两个Delphi版本来调查记录布局.您需要安排记录的大小在不同版本之间匹配,并且字段的偏移量也匹配.

根据以下注释,在pos和nr之间添加填充字节将解决您的问题.

bbil = record
  path : string;
  pos: byte;
  _pad: byte;
  nr: Word;
end;

您也可以通过设置$ALIGN编译器选项来实现相同的效果,{$ALIGN ON}这就是我认为我会去做的事情.

从长远来看,你真的应该远离短字符串,ANSI编码,内部记录和数据文件之间的直接映射等等.在短期内,您可能最好不要使用与构建此代码并使用它相同版本的Delphi.我希望这个问题只是冰山一角.