XLSReadWriteII5使用示例

2022-06-05 03:27:10 字數 1895 閱讀 9508

之前一直是使用xlsreadwriteii4,今天更新到xlsreadwriteii5,測試了一下,發現一些操作變化比較大,現將xlsreadwriteii5的使用示例寫一下,以下是**和生成的excel**的效果:

1

procedure

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年了。那個時候還一起打怪公升級,亞洲服,新加坡服,歐服,後來出現了 傳奇 和其他遊戲的私服。當時就想能出乙個私服才玩的過癮。那個時候流行網路遊戲,讀大學時候選專業就選了遊戲專業。到現在發展很快,頁遊,手遊。本來那時候開始選電子商務的,因為耍遊戲所以...