[code delphi]
//執行SQL命令，成功=true ，失敗=false
function SQLOpenOK(ADO:TADOQuery; sSQL:string): boolean;
function QuotedMsg(sMsg:string): string;
begin
sMsg:=Trim(sMsg);
if sMsg='' then Result:=''
else Result:=' [' sMsg ']';
end;
begin
Result:=False;
try
ADO.Close;
ADO.SQL.Clear;
ADO.SQL.Add(sSQL);
ADO.Open;
except
On E:EOleException Do
begin
ShowMessage(E.Message);
if E.ErrorCode=E_FAIL then //連線失敗
begin
ShowMessage('與DB連線失敗');
//Application.Terminate;
end;
exit;
end;
on E:Exception do
exit;
end;
Result:=True;
end;

//下列此行寫在thread當中，所以可能很多同時呼叫造成這樣的錯誤 ; 於此行發生錯誤
if not SQLOpenOK(TADOQuery1,'select top 1 淨值,日期 from ' m_FundName ' where 日期>=#' s_calc_date '# order by 日期;') then
ShowMessage('Query ERROR!!');
[/code]
出現List index out of bounds (118).問題 type EListError
用Select也會有這樣的問題，覺得非常其怪，請問我該如何解決這個錯誤，試了好久，試不出來，還是"隨機"不時出現。

1. //下列此行寫在thread當中，所以可能很多同時呼叫造成這樣的錯誤 ; 於此行發生錯誤
2. if not SQLOpenOK(TADOQuery1,'select top 1 淨值,日期 from ' m_FundName ' where 日期>=#' s_calc_date '# order by 日期;') then
3. ShowMessage('Query ERROR!!');

你自己的問題，你自己回答了，請看之前有一篇是 Lu 大所講的內容 ( 因為我自己也犯了這個錯 )http://delphi.ktop.com.tw/board.php?cid=168&fid=920&tid=94679

因為在 Thread 的關係，所以你的 ADO 元件，常常會被別的 Thread 改掉了 SQL 的內容，而造成錯誤
請獨立每個 Thread 中有自已的 ADO 元件，而且使用自己的 ConnectionString 來避免

------
價值的展現，來自於你用哪一個角度來看待它!!