老革命遇到新问题——DELPHI的限制？

Question

我曾经使用 TStringList 控件读取和使用 200多K 的文本都没有问题。
你怎么会？你可以看看Project 的 Option，看看是否修改过。
你说的到一定长度，大概是多少？

Answer 1

我想把文本连接才程序里。谢是要把文本当作资源字符串么？除了用RES文件外，还可以在单元开始处
声明：
ResString
  Res1 = 'aaaa';
  Res2 = 'bbbb';定义和使用类似字符串常量。

Answer 2

程序很简单的啦，不用看，俺也是老革命了
程序大约8张网页吧，当然网页满长的。
动态调入没有问题(loadfromfile)，只是静太(add)有问题。
做RES一个个串，我觉得烦:(
TStringList是新Create的，也Clear了。
好象是总数有限制，我第一次开了个STRINGLIST ARRAY，后来换了单独几个STRINGLIST也错

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  astr : TStringList;
  I : integer;
begin
  aStr := TStringList.Create;
  try
    I := 0;
    while True do
    begin
      AStr.Add('test');
      Inc(i);
      Application.ProcessMessages;
      Label1.Caption := IntToStr(I);
    end;
  finally
    AStr.Free;
  end;
end;
我运行它，I 已经到了6位数，也没有错

Answer 4

kxy的程序可能存在漏洞，因为每次都添加的是“test”，这在Delphi编译时可能会当作“常量”来处理...（仅供参考！纯属个人观点！）

Answer 5

检查你的数据库结构，索引字段，
检查你的access.问题肯定在这里。

Answer 6

俺可什么数据库都没用啊，哪里有什么ACCESS？

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
var
  astr : TStringList;
  I : integer;
  id : TGUID;
  s : string;
begin
  aStr := TStringList.Create;
  try
    I := 0;
    while True do
    begin
      CoCreateGuid(id);
      s := GUIDToString(id);
      AStr.Add(s);
      Inc(i);
      Application.ProcessMessages;
      Label1.Caption := IntToStr(I);
    end;
  finally
    AStr.Free;
  end;
end;
我运行它，I 已经到了7位数，也没有错

Answer 8

根本不会出错，except （检查你的windows 虚拟内存，是否病毒感染，Delphi 是否正确安装）

Answer 9

没问题，我自己写了个小控件，把文本LOAD近来就搞定了