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

[CJ]

with myStringList do
begin
Add('...');
...
end;
到一定长度后，出现Access Validation...
换成两个Tstringlist也没用，火大！
我想把文本连接才程序里。谢

[CJ]

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

[kxy]

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位数，也没有错

[jll]

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

[alin]

在TStringList使用前Clear一下

[CJ]

可能的，我做的是不同文本，有什么别的好办法？
不过我觉得，理论上不会有类似错误啊

[LaoZheng]

不知你要用多大？

[kxy]

可否把程序发给我看看。

[harveywang]

[zxghl]

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

[zxghl]

我想把文本连接才程序里。谢

是要把文本当作资源字符串么？除了用RES文件外，还可以在单元开始处
声明：
ResString
Res1 = 'aaaa';
Res2 = 'bbbb';

定义和使用类似字符串常量。

[CJ]

拜托诸位

[dongcan]

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

[CJ]

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

[huhaojie]

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

[kxy]

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位数，也没有错

[CJ]

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

[CJ]

虽然没解决，不过态度认真：）

[road]

系统有问题，将程序移到另一台机器上运行，进行测试。