Question

delphi dbgrid 导出excel出错 出现 Undeclared identifier: 'f' 错误，代码如下

方法
procedure DBGridInFoToExcel(FileName, TitleCaption: string;MakeDataSource: TDataSource; makeDBGrid: TDBGrid);
var
xlApp, xlSheet, szValue: Variant;
ARow, iLoop: word;
begin
xlApp := CreateOleObject('Excel.Application');
try
xlSheet := CreateOleObject('Excel.Sheet');
xlSheet := xlApp.WorkBooks.Add;
// 表格标题
for iLoop := 0 to makeDBGrid.Columns.Count - 1 do
xlSheet.WorkSheets[1].Cells[1, iLoop + 1] := makeDBGrid.Columns[iLoop].Title.Caption;
// 数据
ARow := 2;
with MakeDataSource.DataSet do
begin
DisableControls;
First;
while not Eof do
begin
for iLoop := 0 to Fields.Count - 1 do
begin
szValue := Fields[iLoop].Value;
xlSheet.WorkSheets[1].Cells[ARow, iLoop + 1] := szValue;
end;
inc(ARow);
Next;
end;
First;
EnableControls;
end;
try
xlSheet.SaveAs(FileName);
Application.MessageBox('导出完毕!', '提示', MB_IconExclamation);
finally
xlSheet.Close;
xlApp.Quit;
xlApp := UnAssigned;
end;
except
Application.MessageBox('本机没有安装Excel.', '错误', MB_OK);
end;
end;
调用
procedure TForm1.Button2Click(Sender: TObject);
begin
DBGridInFoToExcel(f, '', DataSource1, DBGrid1);
end;
在button下调用时出现Undeclared identifier: 'f' 错误，不知道怎么回事

Answer 1

看来你是刚接触delphi，又看不懂英文错误报告。Undeclared identifier: 'lblCount'就是未声明标识符'lblCount'，也就是你放在窗体中的标签控件没有一个名称是'lblCount'的，代码中又用了这个名称来访问标签控件，所以找不到。

追问

不对啊，我是上面这个导出方法中的第一个参数应该填入的是文件名，但我输入一个‘f’为文件名，应该没错啊