4

我正在使用从.Net 移植到 Delphi 7的 TStringBuilder 类。

这是我的代码片段：

procedure TForm1.btn1Click(Sender: TObject);
const
  FILE_NAME = 'PATH TO A TEXT FILE';
var
  sBuilder: TStringBuilder;
  I: Integer;
  fil: TStringList;
  sResult: string;
  randInt: Integer;
begin
  randomize;
  sResult := '';
  for I := 1 to 100 do
  begin
    fil := TStringList.Create;
    try
      fil.LoadFromFile(FILE_NAME);

      randInt := Random(1024);

      sBuilder := TStringBuilder.Create(randInt);
      try
        sBuilder.Append(fil.Text);
        sResult := sBuilder.AsString;
      finally
        sBuilder.free;
      end;

      mmo1.Text := sResult;
    finally
      FreeAndNil(fil);
    end;
  end;
  showmessage ('DOne');
end;

我遇到了 AV 错误。当我创建大小为 1024 倍的内存时，我可以缓解这个问题，但有时它仍然会发生。

难道我做错了什么？

4

1 回答 1

11

你的代码很好。您使用的 TStringBuilder 代码有问题。考虑这种方法：

procedure TStringBuilder.Append(const AString : string); 
var iLen : integer; 
begin 
  iLen := length(AString); 
  if iLen + FIndex > FBuffMax then _ExpandBuffer; 
  move(AString[1],FBuffer[FIndex],iLen); 
  inc(FIndex,iLen); 
end;

如果未来长度对于当前缓冲区大小来说太长，则扩展缓冲区。_ExpandBuffer将缓冲区的大小加倍，但一旦完成，它就不会检查新的缓冲区大小是否足够。如果原始缓冲区大小是 1024，而您正在加载的文件是 3 KB，那么将缓冲区大小加倍到 2048 仍然会使缓冲区太小Append，并且最终会覆盖缓冲区末尾之外的 1024 个字节.

将 更改if为whilein Append。

于 2011-08-08T16:07:18.673 回答