之前一直是使用xlsreadwriteii4,今天更新到xlsreadwriteii5,測試了一下,發現一些操作變化比較大,現將xlsreadwriteii5的使用示例寫一下,以下是**和生成的excel**的效果:
1procedure
tform1.button1click(sender: tobject);
2var
3i, n: integer;
4 xls: txlsreadwriteii5; //
引用xlsreadwriteii5, xc12datastylesheet5, shellapi
5begin
6 xls := txlsreadwriteii5.create(nil);7
try8
xls.clear;
9 xls.filename := extractfilepath(paramstr(0)) + '
temp.xls';
10for i := 0to9
do11 xls.sheets[0].asstring[i, 0] := '
標題' + inttostr(i + 1
);12
for i := 0to9
do13
for n := 1
to19
do14 xls.sheets[0].asstring[i, n] := inttostr(i + 1) + '
:' +inttostr(n);
1516
for i := 0to9
do//
xls.sheets[0].lastcol do // 從第一列到最後一列
17begin
18for n := 0
to19
do//
從第一行到最後一行
19begin
20 xls.sheets[0].range.items[i, n, i, n].borderoutlinestyle :=cbsthin;
21 xls.sheets[0].range.items[i, n, i, n].borderoutlinecolor := 0; //
黑色#0
22if n = 0
then
23begin
24 xls.sheets[0].cell[i, n].cellcolorrgb := 16744448; //
橘黃#ff8000
25 xls.sheets[0].cell[i, n].fontcolor := 16777215; //
白色#ffffff
26end
27else
28 xls.sheets[0].cell[i, n].cellcolorrgb := 16777165; //
杏仁灰#ffffcd
29end
;30 xls.sheets[0].autowidthcol(i); //
每列為自動寬度
5 第 5 章 迴圈
1.可以用迴圈來驗證輸入。在迴圈前的第一次讀取操作,稱為啟動讀取,如果後續還需要繼續讀取,則語句應該在迴圈中。2.在實際程式設計應用中,不建議在 cout 語句中放置遞增或遞減運算子 因為容易出錯 3.需要計數時使用計數器,需要累計彙總時使用累加器。4.標記符號是乙個特殊值,指示著值列表的結尾。一般...
5X5矩陣調換!
將乙個5x5矩陣中最大的元素放在中心,4個角分別放4個最小的元素,寫一函式實現之!include int main printf n return 0 void change int p temp p 12 p 12 pmax pmax temp temp p p pmin pmin temp pm...
工作5年5個月
2005年玩 冒險島 認識了一群朋友,現在都2014年了。那個時候還一起打怪公升級,亞洲服,新加坡服,歐服,後來出現了 傳奇 和其他遊戲的私服。當時就想能出乙個私服才玩的過癮。那個時候流行網路遊戲,讀大學時候選專業就選了遊戲專業。到現在發展很快,頁遊,手遊。本來那時候開始選電子商務的,因為耍遊戲所以...