delphi - "Text exceeds memo capacity"错误

Question

我有一个 TMemo，我尝试在其中加载文本，但收到此错误:“文本超出备忘录容量”。代码是这样的:Memo1.Lines.LoadFromFile(s)Delphi 7/Win 7下TMemo的限制是多少？我知道有 64KB 的限制，但在 Win95/98 下。

注意:此错误是用户发送的屏幕截图。我可以成功加载大文件(5-10 MB)。

<小时/>

更新:

这次我在这一行收到了一个新的错误报告:

procedure TCLog.Add (s: string; Cl: TColor);
begin
  SelStart:= Length(Text);
  SelAttributes.Color:= Cl;                                              

  S:= GenerateString(Indent, ' ')+ S;
  TRY
    Lines.Add(s);                     <------------------------ HERE  
  EXCEPT    
    on E: Exception DO
     begin
      MesajError('Cannot store string '+ s);
      raise; // re-raise the currently caught exception
     end;
  END;
  if AutoScroll
  then LogScroll;
end;

Answer 1

TMemo 是 Windows“编辑控件”的包装器； this question的答案解释如何找出可以存储在其中的最大长度，以及如何影响该长度。

--杰罗恩