您所在位置：主题：TDBGridEhExportClass是什么？？？老是报没申明的错呀
keyiwangyou
[专家分：80] 发布于 2006-06-15 11:05:00
var
ExpClass:TDBGridEhExportClass;
Ext:String;
begin
SaveDlgDefend.FileName := 'file1';//文件名称
if SaveDlgDefend.Execute then
begin
case SaveDlgDefend.FilterIndex of
1: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
5: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end
TDBGridEhExportClass是什么，我要加什么东东才能运行通过
ExpClass:TDBGridEhExportClass;
Ext:String;
begin
SaveDlgDefend.FileName := 'file1';//文件名称
if SaveDlgDefend.Execute then
begin
case SaveDlgDefend.FilterIndex of
1: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
5: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end
TDBGridEhExportClass是什么，我要加什么东东才能运行通过
