各位大大,水水...

以下問題麻煩大家幫忙,謝謝!!~
我在做一個財務帳款分析統計,所以我從StringGrid讀值判斷該筆帳款是屬於30天,60天....帳款後並寫入Excel(如:範例)。
但是因為在Excel最後一列必須累計各項金額時,我宣告了四個變數去套用了下面藍色那一段時卻產生錯誤,不知道可以建議該如何修改嗎?

[code delphi]
//..........省略
for iRow := 1 to stgData.RowCount-1 do
for iCol := 0 to 4 do
begin
ExcelApp.Cells[iRow 4,iCol 1]:=stgData.Cells[iCol,iRow];
If iCol=0 then
Begin
i:=Round(ENDATE(edtChdtE.Text)-StrtoDate(stgData.Cells[iCol,iRow]));
ExcelApp.Cells[iRow 4,6]:=InttoStr(i);
End;
If iCol=4 then
Begin
Case ((i-1) div 30) of
0:ExcelApp.Cells[iRow 4,7]:=stgData.Cells[iCol,iRow]; //30天
1:ExcelApp.Cells[iRow 4,8]:=stgData.Cells[iCol,iRow]; //60天
2:ExcelApp.Cells[iRow 4,9]:=stgData.Cells[iCol,iRow]; //90天
Else
ExcelApp.Cells[iRow 4,10]:=stgData.Cells[iCol,iRow];//90天以上
End;

//累計各天數金額-->問題
{if ((ExcelApp.Cells[iRow 4,7] <> '') OR
(ExcelApp.Cells[iRow 4,8] <> '') OR
(ExcelApp.Cells[iRow 4,9] <> '') OR
(ExcelApp.Cells[iRow 4,10]<> '')) then
begin
iThree :=iThree StrToInt(ExcelApp.Cells[iRow 4,7]);
iSex :=iSex StrToInt(ExcelApp.Cells[iRow 4,8]);
iNine :=iNine StrToInt(ExcelApp.Cells[iRow 4,9]);
iNineup:=iNineup StrToInt(ExcelApp.Cells[iRow 4,10]);
end;｝//-->問題

ExcelApp.Cells[iRow 4,11]:=stgData.Cells[iCol,iRow];
End;
end;
[/code]

附加檔案：476f2906bc54c_範例.xls

iThree :=iThree  + StrToInt(ExcelApp.Cells[iRow+4,7]);
iSex :=iSex StrToInt(ExcelApp.Cells[iRow 4,8]);
iNine :=iNine StrToInt(ExcelApp.Cells[iRow 4,9]);
iNineup:=iNineup StrToInt(ExcelApp.Cells[iRow 4,10]);
改成
iThree :=iThree StrToIntDef(ExcelApp.Cells[iRow 4,7],0);
iSex :=iSex StrToIntDef(ExcelApp.Cells[iRow 4,8],0);
iNine :=iNine StrToIntDef(ExcelApp.Cells[iRow 4,9],0);
iNineup:=iNineup StrToIntDef(ExcelApp.Cells[iRow 4,10],0);

------
What do we live for if not to make life less difficult for each other?

Christie謝謝您~ 已經可以嚕....QQQ