申请/处理的描述
我在 Delphi XE 中维护一些旧代码。该应用程序在远程服务器上的数据库上运行查询，然后在 PC 上创建报告。我们收到了一个错误报告，其中一个字段中的某些数据丢失。有问题的字段包含从服务器收集的大量数据（几千个字符）。我无法控制在该字段中收集和存储哪些数据。我发现错误是由嵌入在此数据中的空值和其他控制字符（换行符等）引起的。当调用 TADOQuery 的 SaveToFile 方法时，空值和其他控制字符导致字段中的任何数据被忽略（SaveToFile 基本上到达控制字符并停止读取记录）。
该错误的解决方案是从结果集中提取有问题的字段，过滤掉任何控制字符并将其保存到临时文件中（此时我无法将其放回结果集中，因为它处于读取状态 -唯一的状态）。数据保存为 XML，因此我还必须使一些字符 XML 友好（正如您将在代码片段中看到的那样）。调用 SaveToFile 方法后，我会从临时文件中读取更正后的数据并将其写回保存的报告中。这是冗长的，但它的工作原理。
问题
我现在有一个新问题。我注意到在随机情况下，文件末尾会丢失一条记录（相关字段将为空白）。我花了很长时间研究这个问题，它归结为以下代码（用于在调用 SaveToFile 之前从字段中提取数据）。代码跳过了一行。不是每次 - 大约每两到三个查询运行中就有一个。我知道这是一个事实，因为我在调试时在下面的循环中添加了一个计数器，并将循环执行的次数与记录计数进行了比较，当错误发生时它又少了一个（导致空白字段）和当所有数据都出现在报告中时相等。没有异常被捕获，所以它不会因为某些东西而摔倒——它实际上是在跳过一条记录。
assignfile(f, tempFilename);
rewrite(f);
adoqry.first;
repeat
try
bytes := adoqry.fieldByName(fld).AsBytes;
tmp := '';
for i := 0 to length(bytes) - 1 do
if bytes[i] < 32 then // strip any control characters (nulls, line feeds etc.) from the string
tmp := tmp + ' '
else
begin
case char(bytes[i]) of
'&': tmp := tmp + '&';
'''': tmp := tmp + ''';
'"': tmp := tmp + '"';
'>': tmp := tmp + '>';
'<': tmp := tmp + '<';
else
tmp := tmp + char(bytes[i]);
end;
end;
// when debugging, inc counter here to prove that the loop has been executed
writeln(f, UTF8String(tmp));
setLength(bytes, 0);
except on e: exception do
writeln(f, '');
end;
adoqry.next;
until adoqry.eof;
closefile(f);
问题
上面的代码是否有任何理由会跳过一条记录（即只执行循环 n - 1 次，其中 n 是记录数）？有什么东西会导致“adoquery.next”调用跳过记录吗？
编辑以澄清评论中提出的问题
报告中缺少数据。它始终是未处理的单个记录。我在报告中有超过 20,000 条记录，丢失的记录在中间的某个地方，但是由于数据太多，很难缩小范围。当一条记录被跳过时，该记录之后的所有内容都会向上移动一个记录（意味着很多报告都是错误的），最终记录包含一个空白字段。