Variable 'OldTime' is declared but never used in 'TForm1.FormCreate'
啥意思啊?procedure TForm1.FormCreate(Sender: TObject);
var
I, J: Integer;
MaxRow, MaxCol: Integer;
List, Strs: TStringList;
ExcelApp, Sheet: Variant;
OldTime: TDateTime;
begin
List := TStringList.Create;
Strs := TStringList.Create;
// 创建一个excel的ole对象
ExcelApp := CreateOleObject( 'Excel.Application ');
try
// 打开一个excel文件
ExcelApp.WorkBooks.Open(RzEdit1.Text);
List.BeginUpdate;
try
// 设置工作区
ExcelApp.WorkSheets[1].Activate;
Sheet := ExcelApp.WorkSheets[1];
// 有数据的区域的行数和列数
MaxRow := Sheet.UsedRange.Rows.count - 1;
MaxCol := Sheet.UsedRange.Columns.count;
for I := 2 to MaxRow do
begin
Strs.Clear;
for J := 1 to MaxCol do
begin
// 获得excel的数据第i行,第j列单元格内的数据
Strs.Add(Sheet.Cells[i, j].Value);
end;
List.Add(Strs.CommaText);
end;
finally
// 关闭工作区
ExcelApp.WorkBooks.Close;
List.EndUpdate;
end;
finally
// 释放ole对象
ExcelApp.Quit;
List.Free;
Strs.Free;
end;
end;
啥意思啊?procedure TForm1.FormCreate(Sender: TObject);
var
I, J: Integer;
MaxRow, MaxCol: Integer;
List, Strs: TStringList;
ExcelApp, Sheet: Variant;
OldTime: TDateTime;
begin
List := TStringList.Create;
Strs := TStringList.Create;
// 创建一个excel的ole对象
ExcelApp := CreateOleObject( 'Excel.Application ');
try
// 打开一个excel文件
ExcelApp.WorkBooks.Open(RzEdit1.Text);
List.BeginUpdate;
try
// 设置工作区
ExcelApp.WorkSheets[1].Activate;
Sheet := ExcelApp.WorkSheets[1];
// 有数据的区域的行数和列数
MaxRow := Sheet.UsedRange.Rows.count - 1;
MaxCol := Sheet.UsedRange.Columns.count;
for I := 2 to MaxRow do
begin
Strs.Clear;
for J := 1 to MaxCol do
begin
// 获得excel的数据第i行,第j列单元格内的数据
Strs.Add(Sheet.Cells[i, j].Value);
end;
List.Add(Strs.CommaText);
end;
finally
// 关闭工作区
ExcelApp.WorkBooks.Close;
List.EndUpdate;
end;
finally
// 释放ole对象
ExcelApp.Quit;
List.Free;
Strs.Free;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货