hi .. 我用StringList將某個檔讀入...(各列皆為數值) 是不是只能用迴圈來計算總值 還是有其它的方法呢?? 謝謝!!

Look like this one?

var
    i,Total: integer;
begin
    Total := 0;
    for i := 0 to StringList.Count-1 do
        inc(Total,StrToIntDef(StringList[i],0);

{....} end;

以StringList 而言，並沒有加總的屬性方法 如果妳不透過取得count 用迴圈實現 那麼…妳期待中的方法是怎樣子?    還是妳要用更複雜的方式?呼叫excel 用它來幫妳完成計算 ? < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217">

因目前要讀的是一個csv檔 前幾列為描述資料 而後是一些數值資料 如 FieldA FieldB FieldC 1 T1 5 2 T2 3 3 T1 3 ............. 我想將T1,T2... 的所有FieldC加總 因資料列至少萬筆以上... 用迴圈可以跑出 只是想知道有無更快速的方法... 謝謝 and 另一問題點 csv檔大概介於 5mb~10mb 目前想到是用StringList來作... 不知道有沒有其它方法呢 用Delphi4

或許你可以將資料加進資料庫中... 這樣一來就可以下SQL去加總了... . .. ... 不曉得行不行啊... -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

No-where    Jasonwong 兄所言很正確：『或許你可以將資料加進資料庫中』 下sql 指令取得sum     不過妳還是得試試二者何者效率較高，再記得分享心得吧     < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217">

因每個檔都上萬筆資料, 每天有60個檔要轉...只求sum值.. 先入database我覺得效果差不多說 再想想 謝謝各位的解答 ^_^

For csv file, I think you could create an ODBC link to it using M$ Text driver. Then it is only a simple select sum sql statement. 

引言: 因每個檔都上萬筆資料, 每天有60個檔要轉...只求sum值.. 先入database我覺得效果差不多說 再想想 謝謝各位的解答 ^_^

1.delphi並無針對csv檔加總之元件,所以要自己做 2.60個檔每個檔上萬筆求總和,應確定資料未來還要用,是就要存資料庫,求總和是不是非常即時性,應該說csv產生後馬上要在多少時間內求的總和,那效率才是考慮重點. 3.excel,foxpro也可以應用,所以先確定重點.

No-where 不然只好將求和的部份，寫在產生CSV 每寫一筆就累加一次(邊讀邊累加) csv 檔產生後…將總和另存    眾多方法，還須妳自己一試    

謝謝大家 因此csv檔是由量測機台所產生的 相關程式不是由我們寫的 所以有些地方會覺得很麻煩...^_^ 現在我還是使用TStringList來loadfile 再跑迴圈計算 只要求總值而已 測試過後再跟大家報告效率... 目前看起來還好 不算慢.....:P

引言:謝謝大家 因此csv檔是由量測機台所產生的 相關程式不是由我們寫的 所以有些地方會覺得很麻煩...^_^ 現在我還是使用TStringList來loadfile 再跑迴圈計算 只要求總值而已 測試過後再跟大家報告效率... 目前看起來還好 不算慢.....:P

Oh... I wonder if you could test the speed in using ODBC connecting to this csv file and then get the sum using sql statement. >

m~~我想先把程式趕出來 and 我會試著用odbc去runrun看的 謝謝大家的解答

你要注意 TStringList 能吾 Load 得起整個檔案, 小心因 Memory 不夠而 Load 得一部份... Lonnie

現在電腦基本都有64mb 這樣會不夠用嗎??? and 請問有無odbc連excel的example可參考呢 thx

相關參考資料： How do I improve the speed of ADOconnection?  http://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_20123177.html    Excel to database  http://beta.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_20258936.html        

For CSV files, you can make use of the Microsoft Text driver: 1) Open ODBC Data Source Administrator 2) Create the DSN using "Microsoft Text Driver (*.txt; *.csv)" 3) Uncheck "Use Current Directory" 4) Click "Select Directory" and select the folder of the csv files 5) Press "Options>>" 6) Press "Define Format" 7) select the csv file in the list box and the GUI here should explain itself