TStringList越界问题

[yang_xz]

sqllist.CommaText:=sqltxt;
if trim(sqllist.Strings[0])='union' then
begin
sqltxt:='';
for i:=1 to sqllist.Count do
sqltxt:=sqltxt+sqllist.Strings[i];
end;
程序运行时,sqllist.count=112,出错信息为'List index out of bounds(112)'，请教各位大侠该怎么办？？？？

[zfmich]

同意楼上的。

[qiubolecn]

是从0到count-1
zswang(伴水)(伤心中)　你说的是什么呀，不要误人哟

[王集鹄]

to qiubolecn(qiubole):
look

if trim(sqllist.Strings[0])='union' then
// ~~~
begin
sqltxt:='';
for i:=1 to sqllist.Count-1 do
// ~~
sqltxt:=sqltxt+sqllist.Strings[i];
end;

[王集鹄]

伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心
伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心
伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心
伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心
伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心伤心

[saimaya]

关注

[hssfox]

关注

[txinfo]

for i:=1 to sqllist.Count do
sqltxt:=sqltxt+sqllist.Strings[i];
这里改为
for i:=0 to sqllist.Count-1 do
....
delphi的TStringList数组是从0开始的

[victorchen_2000]

0 to count-1

[王集鹄]

for i:=1 to sqllist.Count - 1 do