保存和堆栈溢出

Question

我在 Delphi 中保存各种大型数据库类型时遇到问题。 它包含 TItem 的数组 [1..3500]，而 TItem 又包含两个数组 [1..50] 和 [1..20]。 除非我将变量设置为指针并使用下面的 GetMem、FreeMem 命令，否则我会遇到堆栈溢出，但随后我无法保存它。 代码如下。

procedure TDatabase.SaveDB;  
var  
 TempDB: ^TSaveDB;  
 K, X: integer;  
 sComment, sTitle, sComposer, sISDN, sCategory: string;  
begin  
GetMem(TempDB, SizeOf(TSaveDB));  

TempDB.CatCount := fCategoryCount;  
TempDB.ItemCount := fItemCount;  

for K := 1 to fCategoryCount do  
 TempDB.Categories[K] := fCategories[K];  

for K := 1 to fItemCount do  
 begin  
  fItems[K].ReturnSet(sTitle, sComposer, sCategory, sISDN, sComment);  
  with TempDB.Items[K] do  
   begin  
    Title := sTitle;  
    Composer := sComposer;  
    Category := sCategory;  
    ISDN := sISDN;  
   end;  

  TempDB.Items[K].Comments[1] := Copy(sComment, 1, 255);  
   Delete(sComment, 1, 255);  
  TempDB.Items[K].Comments[2] := Copy(sComment, 1, 255);  
   Delete(sComment, 1, 255);  
  TempDB.Items[K].Comments[3] := Copy(sComment, 1, 255);  
   Delete(sComment, 1, 255);  
  TempDB.Items[K].Comments[4] := Copy(sComment, 1, 255);  
   Delete(sComment, 1, 255);  

  TempDB.Items[K].KeyWCount := fItems[K].GetKeyCount;  

  for X := 1 to fItems[K].GetKeyCount do  
   TempDB.Items[K].Keywords[X] := fItems[K].GetKeywords(X);  
 end;

AssignFile(DBSave, fSaveName);  
 Rewrite(DBSave);  
  Write(DBSave, TempDB);  
Closefile(dBSave);  

FreeMem(TempDB, sizeof(TSaveDB));  
end;  

Answer 1

使用 GetMem 或 SetLength 或 TList/TObjectList 并一次向文件写入一个 TSaveDB。 或者
更改文件类型并使用 BlockWrite 一次写入全部内容。 或者甚至更好：使用 TFileStream。

Answer 2

你的问题出在“write”语句中。 使用任意指针执行操作会导致各种奇怪的行为。 如果您使用 TFileStream 而不是当前的方法重写它，您会容易得多。

Answer 3

扩展梅森的答案：

永远读取或写入指针、句点。 想要从中得到任何合理的结果需要很大的运气，而在现实世界中，当你不只是再次运行你的程序时，成功的几率会从无限小到零。

相反，您需要读取和写入指针指向的内容。

另请注意，任何长度未在声明中指定的字符串都是指针，除非您在使“string”变为“string[255]”的兼容模式下运行——此模式的存在仅是为了与非常多的字符串兼容。当这是我们唯一的字符串时编写的旧代码。

由于您似乎只是将整个事情写出来，因此没有理由用固定大小的记录来玩游戏。 只需将每个字段写入流中，在写入字符串本身之前写入字符串的长度，以便您可以正确地将其加载回来。 文件会更小，并且不会被截断。

另外，正如他所说，使用 tFileStream。 旧格式用于保留在磁盘上的记录文件，在这种情况下没有理由使用它。