如何用Delphi来写一个函数，返回一个Excel文件中已用的行数呢？

Question

uses ComObj;procedure TForm1.ReadXlsFile(filename: string);
var MSExcel: Variant;
    i,j: Integer;
begin
  //从Excel文件里读取信息
  MSExcel:=CreateOLEObject('Excel.Application');
  MSExcel.WorkBooks.Open(filename);
  MSExcel.Visible:=False;
  //从有数据的行逐行读入数据<br>
  for i:=1 to MSExcel.ActiveSheet.UsedRange.Rows.Count do
  begin
     StringGrid1.Cells[i,1]:=MSExcel.Cells[i,1].Value;
      end;
  MSExcel.ActiveWorkBook.Close;
  MSExcel.Quit;
end;也是以前在CSDN看到的

Answer 1

上面这位高人把我的意识领会错了呀，但不管怎样还是谢谢你了。
我的意识是想写一个函数，他的参数是这个Excel文件名。他的返回值应该是在Excel文件中已使用的最大行数，这个函数应该怎么写啊？谢谢了！我有急用！

Answer 2

to ervinlj(阳光男孩):
   你还是应该好好看看上面的代码吧。什么是“从有数据的行逐行读入数据”？