2

下面的代码片段演示了我最近从最近的 ISO 映像文件重新安装 Delphi XE2 中的文本 IO 和 UInt64 类型变量时遇到的问题 - 编译失败并出现与缺少 Text.ReadUInt64 函数或过程有关的错误消息。如果我用

  ReadLn(F,A);

然后程序编译，正确写入

-1
18446744073709551615

到文本文件，然后（如预期的那样）在第二次读取时失败并出现 EInOutError：“无效的数字输入”。我的安装是否损坏或有人未能编写 ReadUInt64 函数？我可以在帮助中找到的对 ReadUInt64 的唯一引用是以下定义：

function ReadUInt64: UInt64; virtual;

在 System.Classes.TBinaryReader.ReadUInt64 中。我不确定这是否是“相同”功能，或者，如果是，为什么它是虚拟的......

Help 对 UInt64 的引用也让我有些困惑。它将其定义为：

type UInt64 = Int64;

如果这是正确的，编译器如何知道将 UInt64 与 Int64 变量区别对待？

procedure TForm1.Button1Click(Sender: TObject);
var
  F : TextFile;
  A : Int64;
  B : Uint64;
begin
{
Compiler warns on following line with message:
[DCC Warning] Unit1.pas(32): W1012 Constant expression violates subrange bounds
}
  A := $FFFFFFFFFFFFFFFF;
  B := $FFFFFFFFFFFFFFFF;
  AssignFile(F,'test.txt');
  ReWrite(F);
  Writeln(F,A);
  Writeln(F,B);
  CloseFile(F);
  AssignFile(F,'test.txt');
  ReSet(F);
  ReadLn(F,A);
{
Fails to compile on following line with message:
[DCC Fatal Error] Unit1.pas(42): E2158 System unit out of date or corrupted: missing 'Text.ReadUInt64'
}
  ReadLn(F,B);
  CloseFile(F);
end;
4

1 回答 1

5

见QC102876。这是一个已知错误，报告为Text.ReadUInt64 missing，描述如下：

当应该从流中读取 UInt64 时，编译器会生成对 Text.ReadUInt64 的调用。但是，链接器抱怨缺少 Text.ReadUInt64。

据 QC 称，此问题（错误）在 XE3（内部版本 #17.0.4625.53395）中得到解决。

于 2013-03-19T22:06:41.400 回答