[Delphi] codice database

[nic_sirio]

ciao

ho dei problemi su questa parte di codice


mi dice che esce dai limiti della stringlist.
come mi consigliate di fare?


i:=0;
Repeat
begin
if copy(stlFile.Strings[i],1,1)='|' then
begin
temp:=stlFile.Strings[i];
delete(temp,1,1);
frmCrmmain.sbMain.Panels[1].Text:='Esecuzione della query "'+temp+'" : attendere...';
dbaConversione.QueryExec(stlFile.Strings[i+1],Result);
frmCrmmain.sbMain.Refresh;
i:=i+2;
end
else
begin
frmCrmmain.sbMain.Panels[1].Text:='Esecuzione della query n° '+IntToStr(i+1)+' : attendere...';
dbaConversione.QueryExec(stlFile.Strings[i],Result);
frmCrmmain.sbMain.Refresh;
i:=i+1;
end;
end;
Until stlFile.Strings[i]='';
end;
frmCrmmain.ResetStatus;

[nic_sirio]

grazie, già fatto!! scusate