delphi控件cxGrid用法大全

1、delphi中cxGrid使用匯總（一）  補(bǔ)充：怎樣添加checkbox（1）在數(shù)據(jù)集中新建一個Fields，F(xiàn)ieldType一定要選擇fkInternalCalc，F(xiàn)ields的名字為flag，類型為string，長度為1。（2）新建一列，這一列的的fieldname選為flag，properties設(shè)為checkbox，valuechecked設(shè)為1，valueunchecked設(shè)為0，displaygrayed設(shè)為空。1. 去掉cxGrid中臺頭的Box解決：在tableview1的ptionsview的groupbybox=false;2統(tǒng)計(jì)功能解決：(1 ta

2、bleviewtableview1的optionsviewfooter=ture然后在cxGRid1的customize.中的summary 的footer.add需要合計(jì)的列kind= skSum在Footer的第一列顯示合計(jì):  加一個Summary項(xiàng),Column設(shè)為Grid的第一列,Kind設(shè)為skNone  在該Summary項(xiàng)的OnGetText事件中,輸入:  procedure   TFormExpense.tvExpenseTcxGridDBDataControllerTcxDataSummary

3、FooterSummaryItems2GetText(        Sender:   TcxDataSummaryItem;   const   AValue:   Variant;   AIsFooter:   Boolean;        var   AText:   String;

4、60; begin        AText   :=   '合計(jì):'  end;      (2 按條件匯總:  在TableView的DataController->Summary->FooterSummary->OnSummary事件中,輸入:  procedure   TFormExpense.tvExpe

5、nseDataControllerSummaryFooterSummaryItemsSummary(        ASender:   TcxDataSummaryItems;   Arguments:   TcxSummaryEventArguments;        var   OutArguments:   TcxSummaryEventOutAr

6、guments;  begin        /得到字段名   TcxDBDataSummaryItem(Arguments.SummaryItem.FieldName;        if (ASender.DataController.ValuesArguments.RecordIndex,   tvExpenseLevel.Index   >  

7、 1       /只統(tǒng)計(jì)Level列=1的值            and (TcxDBDataSummaryItem(Arguments.SummaryItem.Kind   =   skSum   then            OutArguments

8、.Value   :=   0; /Level   >   1的統(tǒng)計(jì)值設(shè)為0  end;OptionView中屬性GroupFooters設(shè)為gfAlwaysVisible并設(shè)置需要求和的列,在summary.default for Groups 下add加入需要合計(jì)的字段,column下顯示fieldname 為統(tǒng)計(jì)字段,format為格式,kind為統(tǒng)計(jì)方法,position 為位子 spfooter 在分組的下面,spgroup 在分組的上面或用cxGridPopupMenu1,在運(yùn)

9、行時可對任意數(shù)字類型列求和,方法是只需設(shè)置cxGridPopupMenu1的屬性Grid為cxGrid1DBTableView1的cxGrid,3去掉cxgrid 中的過濾下拉箭頭解決： 選擇tableview1.optionscustomize.columnfiltering=fasle;4讓“Drag a column here to group by that column”不顯示   解決：在cxGrid1DBTableView1->optionsview->groupbybox:=false即可5GroupPanel上面的英文Drag a column

10、 header to group by that column怎么可以改成中文解決：最簡單的方法是 TcxGridTableView.OnCustomDrawPartBackground,也可用 OnCustomDrawGroupCell：procedure TForm1.cxGrid1DBTableView1CustomDrawPartBackground(Sender: TcxGridTableView; ACanvas: TcxCanvas;AViewInfo: TcxCustomGridCellViewInfo; var ADone: Boolean;beginAViewInfo.Te

11、xt:='動態(tài)設(shè)置 GroupBox 的顯示內(nèi)容'ACanvas.FillRect(AViewInfo.Bounds;end;注：改成中文后將字段拖上去中文還是會顯示，最好是設(shè)置空值6如何實(shí)現(xiàn)如下功能：+財(cái)務(wù)部+原材料倉庫+成品庫+沖壓車間+軟件開發(fā)部這個是部門的名稱,點(diǎn)擊加號就可以將本部門的人員情況顯示出來。解決：其實(shí)這是一個主從表關(guān)系，1：填好主表的keyfieldnames2：填好從表的keyfieldnames3：填好從表的detaikeyfieldNames與masterkeyfieldnames4: 從表的數(shù)據(jù)源一定要按與主表關(guān)聯(lián)的字段排序注：其它地方設(shè)置了主從表結(jié)

12、構(gòu)那樣就顯示不出來，比如設(shè)置了從表的Table或者Query的mastersource和asterfield就會不能顯示數(shù)據(jù)！如果是兩個cxGrid的主從關(guān)系，這樣設(shè)置就很OK了。7類似PageControl顯示解決：增加一個Level,將cxGrid1->RootLevelOptions->DetailTabsPosition設(shè)為dtpTop，然后相應(yīng)的設(shè)置cxGrid1Level1,和cxGrid1Level2的Caption值。8如何設(shè)定左邊幾列，不能滾動 解決：使用DB Banded Table才可以實(shí)現(xiàn)，在cxGrid1DBBandedTableView里建立B

13、and0,Band1Band0的Fixed=tfLeftBand1的Fixed=tfnone設(shè)置要鎖定的字段的BandIndex=0,其它為1，就OK了。9. 怎樣實(shí)現(xiàn)如EXCEL一樣的，當(dāng)前格=G14+G15+G16 這樣的功能解決： 舉一個簡單的例子：label1.Caption := cxGrid1DBTableView1.DataController.Values2,3+cxGrid1DBTableView2.DataController.Values1, 1+cxGrid1DBTableView3.DataController.Values1, 1;所以不同cxGrid1DBTabl

14、eView中的數(shù)據(jù)都可以給當(dāng)前格，這樣就做到了EXCEL中的當(dāng)前格=G14+G15+G16 類似的功能。10. 鼠標(biāo)右擊cxGrid1DBBandedTableView1菜單里的Edit Layout什么用，怎么使用？解決：可以拖動字段，并列的可以拖成有層次感（一層層）， 拖動時會顯示箭頭的，就是說可以拖一個字段放11怎樣將cxGrid里的數(shù)據(jù)導(dǎo)入到EXCEL，HTML，XML和TEXT解決：usescxExportGrid4Link; ( cxExportGrid6Linkprocedure TForm1.Button1Click(Sender: TObject;beginExportGri

15、d4ToEXCEL('d:/wang.xsl',cxGrid1,True,True;ExportGrid4ToTEXT('d:/wang.txt',cxGrid1,True,True;ExportGrid4ToXML('d:/wang.xml',cxGrid1,True,True;ExportGrid4ToHTML('d:/wang.html',cxGrid1,True,True;end;12. 如何使?jié)M足條件的數(shù)據(jù)顯示不同的顏色？解決：varAYellowStyle: TcxStyle;procedure TForm1.Form

16、Create(Sender: TObject;begin/行顏色AYellowStyle := TcxStyle.Create(Self;AYellowStyle.Color := $0080FFFF;AYellowStyle.TextColor := clMaroon;end;procedure TForm1.cxGrid1DBBandedTableView1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;AItem: TcxCustomGridTableItem; out

17、AStyle: TcxStyle;beginif ARecord.ValuescxGrid1DBBandedTableView1Lengthcm.Index < 81 thenAStyle := AYellowStyle;end;這里cxGrid1DBBandedTableView1Lengthcm.Index小于81時就顯示黃色13. 如何從外邊的TXT文件導(dǎo)入到cxGrid？解決：procedure CustomizeColumns;procedure LoadData;procedure TForm1.CustomizeColumns;constcDistance = 1;cRad

18、ius = 5;cPeriod = 4;cPstring = 0;varI: Integer;beginDecimalSeparator := '.'with cxGrid1TableView2 dofor I := 0 to ColumnCount - 1 doif I in cDistance, cRadius thenColumnsI.DataBinding.ValueTypeClass := TcxIntegerValueType/1，5列為Integerelseif I in cPstring,cPeriod thenColumnsI.DataBinding.Valu

19、eTypeClass := TcxStringValueType/0，4列為StringelseColumnsI.DataBinding.ValueTypeClass := TcxFloatValueType;/其他為Floatend;procedure TForm1.LoadData;constAFileName = '資產(chǎn)負(fù)債表.txt'AHeaderLineCount = 2;varARecords, AValues: TStringList;I: Integer;procedure InitRecord(const Str: string;varJ: Integer;V

20、: Variant;beginAValues.CommaText := Str;for J := 0 to AValues.Count - 1 doif AValues.StringsJ <> '-' thenbeginV := AValues.StringsJ;if not VarIsNull(V thencxGrid1TableView2.DataController.ValuesI, J := V;end;end;beginif not FileExists(AFileName thenraise Exception.Create('Data file

21、 not found'ARecords := TStringList.Create;AValues := TStringList.Create;with ARecords dotryLoadFromFile(AFileName;cxGrid1TableView2.BeginUpdate;cxGrid1TableView2.DataController.RecordCount := Count - AHeaderLineCount;for I := 0 to Count - (AHeaderLineCount + 1 doInitRecord(StringsI + AHeaderLine

22、Count;finallycxGrid1TableView2.EndUpdate;ARecords.Free;AValues.Free;end;end;procedure TForm1.FormCreate(Sender: TObject;beginCustomizeColumns;LoadData_Zcfz;end;*14 如何改變列的顏色？解決：varAFirstColumnStyle: TcxStyle;procedure TForm1.FormCreate(Sender: TObject;begin/列顏色AFirstColumnStyle := TcxStyle.Create(Sel

23、f;AFirstColumnStyle.Color := clAqua;AFirstColumnStyle.TextColor := clBlue;cxGrid1TableView1.Columns1.Styles.Content := AFirstColumnStyle;end;15 Set as default的用法？解決：Set as default的用法是為了解決設(shè)置參數(shù)的方便而做的，比如：連好數(shù)據(jù)庫以后，更改cxGrid1DBBandedTableView1->OptionsCustomize-> ColumnFiltering 設(shè)為False。（這個設(shè)置可以將字段名的下

24、拉單給去掉）更改cxGrid1DBBandedTableView1->OptionsView- >Navigator 設(shè)置為True。然后右擊cxGrid1DBBandedTableView1，在彈出的菜單欄里面點(diǎn)擊Set as default。OK，下次你再產(chǎn)生一個新的cxGrid1DBBandedTableView1時這些設(shè)置和剛才的一樣了。如果需要設(shè)置的參數(shù)很多的時候，這個Set as default很有用！16. 怎樣使鼠標(biāo)移動時，相應(yīng)的單元里的文字變色？解決：varFTrackItem: TcxCustomGridTableItem;FTrackRec: TcxCusto

25、mGridRecord;procedure TForm1.cxGrid1DBTableView1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean;beginif (AViewInfo.GridRecord = FTrackRec and (AViewInfo.Item = FTrackItem thenbeginACanvas.Font.Color := clred; /紅色字體ACanvas.

26、Font.Style := fsUnderline;/帶下劃線end;end;procedure TForm1.cxGrid1DBTableView1MouseMove(Sender: TObject;Shift: TShiftState; X, Y: Integer;varAHitTest: TcxCustomGridHitTest;ATrackItem: TcxCustomGridTableItem;ATrackRec: TcxCustomGridRecord;beginATrackItem := FTrackItem;ATrackRec := FTrackRec;AHitTest :=

27、(Sender as TcxGridSite.GridView.ViewInfo.GetHitTest(X, Y;if AHitTest is TcxGridRecordCellHitTest thenbeginFTrackItem := TcxGridRecordCellHitTest(AHitTest.Item;FTrackRec := TcxGridRecordCellHitTest(AHitTest.GridRecord;endelsebeginFTrackItem := nil;FTrackRec := nil;end;if (ATrackItem <> FTrackIt

28、em or (ATrackRec <> FTrackRec thenbegin/ Invalidate old cellif ATrackRec <> nil thenATrackRec.Invalidate(ATrackItem;/ Invalidate new cellif FTrackRec <> nil thenFTrackRec.Invalidate(FTrackItem;end;end; 17. 怎樣設(shè)計(jì)多表頭的cxGrid？解決：cxGrid可以解決如下的表頭：-| 說明1 | 說明2 |-| 字段1 | 字段2 | 字段3 | 字段

29、4 | 字段5 | 字段6 | 字段7 | 字段8 | 字段9 |實(shí)現(xiàn)這個很簡單，你可以直接在上面拖動字段名，拖動時會顯示箭頭的，放入你想顯示的位置就OK了。或者在鼠標(biāo)右擊cxGrid1DBBandedTableView1菜單里的Edit Layout里也可以拖放。但是cxGrid不能實(shí)現(xiàn)如下的多表頭形式：-| 說明1 | 說明2 |-| 說明3 | 說明4 | 說明5 | 說明6 | 字段1 | 字段2 | 字段3 | 字段4 | 字段5 |不知道有誰能實(shí)現(xiàn)這樣的多表頭？18. 在主從表結(jié)構(gòu)時，當(dāng)點(diǎn)開“+”時怎樣將焦點(diǎn)聚在相應(yīng)主表的記錄上？解決：varHitTest: TcxCustomGr

30、idHitTest;procedure TColumnsShareDemoMainForm.tvProjectsMouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer;begin/ Note that the Sender parameter is a SiteHitTest := (Sender as TcxGridSite.GridView.ViewInfo.GetHitTest(X, Y;/ The point belongs to the +/- button areaif Hi

31、tTest is TcxGridExpandButtonHitTest then/ Move focus to the recordTcxGridExpandButtonHitTest(HitTest.GridRecord.Focused := True;end;19 CXGrid4如何展開全部節(jié)點(diǎn)解決：GridDBTableView1.DataController.Groups.FullExpand;20. cxGrid如何動態(tài)創(chuàng)建Items的Editor的項(xiàng)?解決：cxGrid的列有一個屬性,它的編輯框可以指定combobox,spinedit等.在設(shè)計(jì)時,可以為combobox的item

32、s添加項(xiàng)目.請問是否可以動態(tài)創(chuàng)建?(run-time時由程序加入varA:TDataSource:B:TcxlookupcomboboxProperties;beginA:=TDataSource.create(self;B:=tcxlookupcomboboxproperties.create(self;A.Dataset:=Dic_ry_xb;/此處指定數(shù)據(jù)源。b.listdource:=a;/此處指明字段的listsource屬性。b.keyfieldnames:='a' /此處指明字段的關(guān)鍵字段b.listfieldnames:='b' /此處指明字段的

33、返回值。b.listcolumns.items0.caption:='x; /此處默認(rèn)是會建立一個字段，但是顯示的表頭是name，所以此處讓它顯示為自己想要的中午顯示。cxGrid1DBTableView1c1_sex_code.Properties:=b; /此處指明是那個字段。end; /這個是初始化的代碼21. 拷貝文件時有進(jìn)度顯示解決：procedure TForm1.mycopyfile(sourcef,targetf:string;varFromF, ToF: file;NumRead, NumWritten: Integer;Buf: array1.2048 of Cha

34、r;n:integer;begin   AssignFile(FromF, sourcef;   Reset(FromF, 1; Record size = 1    AssignFile(ToF,targetf; Open output file    Rewrite(ToF, 1; Record size = 1    n:=0;   repeat        BlockRead(FromF, Buf

35、, SizeOf(Buf, NumRead;        form1.label1.caption:=IntToStr(sizeof(buf*n*100 div FileSize(FromF+'100%'        application.ProcessMessages;        /顯示進(jìn)度      

36、;  BlockWrite(ToF, Buf, NumRead, NumWritten;        inc(n;    until (NumRead = 0 or (NumWritten <> NumRead;    form1.Label1.Caption:='100%'    CloseFile(FromF;    CloseFile(ToF;end;proce

37、dure TForm1.Button1Click(Sender: TObject;beginmycopyfile('e:/components/tv2k-w2k.zip','c:/a.zip'end;22. cxGrid 設(shè)置斑馬線解決：在TcxGridDBBandedTableView.Styles屬性中有 ContentEven(奇數(shù)行風(fēng)格 ContentOdd (偶數(shù)行風(fēng)格 ，設(shè)定一下風(fēng)格就好了。23 根據(jù)記錄內(nèi)容更改字體顏色解決：參考范例CustomDrawTableViewDemo，主要在TcxGridDBBandedTableView.OnCusto

38、mDrawCell事件中實(shí)現(xiàn)。如下代碼：if   (Pos('-',AViewInfo.GridRecord.DisplayTextscolOrderProductCount.Index > 0 thenbegin /標(biāo)識負(fù)數(shù)記錄    /ACanvas.Canvas.Brush.Color:= clMoneyGreen;    ACanvas.Canvas.Font.Color:= clRed;/clActiveCaptionend;其中colOrderProductCount是“產(chǎn)品訂數(shù)”

39、列。還要有一步就是要刷新顯示TcxGridDBBandedTableView.LayoutChanged(;/tvCars.LayoutChanged(False;TcxGridDBBandedTableView.Painter.Invalidate;24 用代碼展開/收縮主從結(jié)構(gòu)解決：      Self.tvDepartment.ViewData.Expand(True;        Self.tvDepartment.ViewData.Collaspe(True;&#

40、160; 注:tvDepartment為主表對應(yīng)的TableView25 在內(nèi)置右鍵菜單的后面增加菜單項(xiàng)解決：首先應(yīng)在Form上加一個cxGridPopupMenu控件   以啟用右鍵菜單  UseBuildInPopupMenus設(shè)為True     procedure   TFormItemList.FormCreate(Sender:   TObject;  var     

41、60;  AMenu:   TComponent;        FMenuItem,   FSubMenuItem:   TMenuItem;  begin        AMenu   :=   nil;        if   cxG

42、ridPopupMenu.BuiltInPopupMenus.Count   =   0   then            Exit;        AMenu   :=   cxGridPopupMenu.BuiltInPopupMenus0.PopupMenu; /第一個內(nèi)置右鍵菜單(表頭菜單 

43、0;      if   Assigned(AMenu   and   AMenu.InheritsFrom(TPopupMenu   then        begin            TPopupMenu(AMenu.AutoHotkeys   := 

44、;  maManual;         /手動熱鍵               /-            FMenuItem   :=   TMenuItem.Create(Self;  

45、0;         FMenuItem.Caption   :=   '-'            FMenuItem.Name   :=   'miLineForGroup'          

46、  TPopupMenu(AMenu.Items.Add(FMenuItem;               /展開所有組            FMenuItem   :=   TMenuItem.Create(Self;      

47、60;     FMenuItem.Name   :=   'miExpandAllGroup'            FMenuItem.Caption   :=   '展開所有組(&X'            FMe

48、nuItem.OnClick   :=   miExpandAllGroupClick;            TPopupMenu(AMenu.Items.Add(FMenuItem;               /收縮所有組       

49、;     FMenuItem   :=   TMenuItem.Create(Self;            FMenuItem.Name   :=   'miCollapseAllGroup'            FMenuItem.C

50、aption   :=   '收縮所有組(&O'            FMenuItem.OnClick   :=   miCollapseAllGroupClick;            TPopupMenu(AMenu.Items.Add(FMenuItem;

51、0;              /-            FMenuItem   :=   TMenuItem.Create(Self;            FMenuItem.Caption &

52、#160; :=   '-'            TPopupMenu(AMenu.Items.Add(FMenuItem;               /過濾面板            FMenuIt

53、em   :=   TMenuItem.Create(Self;            FMenuItem.Name   :=   'miFilterPanel'            FMenuItem.Caption   :=   '

54、;過濾面板(&P'            /自動顯示            FSubMenuItem   :=   TMenuItem.Create(Self;            FSubMenuItem.Na

55、me   :=   'miFilterPanelAuto'            FSubMenuItem.Caption   :=   '自動(&A'            FSubMenuItem.RadioItem   := 

56、;  True;            FSubMenuItem.GroupIndex   :=   5; /指定同一組            FSubMenuItem.Checked   :=   True;      

57、0;     FSubMenuItem.OnClick   :=   miFilterPanelClick;            FMenuItem.Add(FSubMenuItem; /加入二級子菜單            /總是顯示     &

58、#160;      FSubMenuItem   :=   TMenuItem.Create(Self;            FSubMenuItem.Name   :=   'miFilterPanelAlways'          &

59、#160; FSubMenuItem.Caption   :=   '總是顯示(&W'            FSubMenuItem.RadioItem   :=   True;            FSubMenuItem.GroupIndex  

60、:=   5;            FSubMenuItem.OnClick   :=   miFilterPanelClick;            FMenuItem.Add(FSubMenuItem;         &

61、#160;  /從不顯示            FSubMenuItem   :=   TMenuItem.Create(Self;            FSubMenuItem.Name   :=   'miFilterPanelNerver'  &

62、#160;         FSubMenuItem.Caption   :=   '從不顯示(&N'            FSubMenuItem.RadioItem   :=   True;         &

63、#160;  FSubMenuItem.GroupIndex   :=   5;            FSubMenuItem.OnClick   :=   miFilterPanelClick;            FMenuItem.Add(FSubMenuItem; &

64、#160;          TPopupMenu(AMenu.Items.Add(FMenuItem;               /自定義過濾            FMenuItem   :=   TMenuIte

65、m.Create(Self;            FMenuItem.Name   :=   'miCustomFilter'            FMenuItem.Caption   :=   '自定義過濾(&M'   &

66、#160;        FMenuItem.OnClick   :=   miCustomFilterClick;            TPopupMenu(AMenu.Items.Add(FMenuItem;              

67、; /過濾管理器            FMenuItem   :=   TMenuItem.Create(Self;            FMenuItem.Name   :=   'miFilterBuilder'     &#

68、160;      TPopupMenu(AMenu.Images.AddImage(FormMain.ImageListExtend,   44; /添加圖標(biāo)圖像            FMenuItem.ImageIndex   :=   TPopupMenu(AMenu.Images.Count   -   1; /指定圖標(biāo)序號&#

69、160;           FMenuItem.Caption   :=   '過濾管理器'            FMenuItem.OnClick   :=   Self.miFilterBuilderClick;      &

70、#160;     TPopupMenu(AMenu.Items.Add(FMenuItem;               /-            FMenuItem   :=   TMenuItem.Create(Self;   &#

71、160;        FMenuItem.Caption   :=   '-'            TPopupMenu(AMenu.Items.Add(FMenuItem;               /導(dǎo)出 

72、;           FMenuItem   :=   TMenuItem.Create(Self;            FMenuItem.Name   :=   'miExport'        

73、0;   TPopupMenu(AMenu.Images.AddImage(FormMain.ImageListExtend,   37;            FMenuItem.ImageIndex   :=   TPopupMenu(AMenu.Images.Count   -   1;      &#

74、160;     FMenuItem.Caption   :=   '導(dǎo)出(&E'            FMenuItem.OnClick   :=   Self.miExportClick;            TPopupMen

75、u(AMenu.Items.Add(FMenuItem;               /打印            FMenuItem   :=   TMenuItem.Create(Self;         

76、0;  FMenuItem.Name   :=   'miPrint'            FMenuItem.Caption   :=   '打印(&P'            TPopupMenu(AMenu.Images.AddImage(F

77、ormMain.ImageListExtend,   14;            FMenuItem.ImageIndex   :=   TPopupMenu(AMenu.Images.Count   -   1;            FMenuItem.OnClick

78、60;  :=   Self.miPrintClick;            TPopupMenu(AMenu.Items.Add(FMenuItem;        end;  end;     procedure   TFormItemList.miExportClick(Sender:

79、60;  TObject;  var        FileName,   FileExt,   msg:   String;  begin        if   Self.aqyQuery.IsEmpty   then        b

80、egin            msg   :=   '沒有導(dǎo)出數(shù)據(jù).'            Application.MessageBox(PChar(msg,   PChar(Application.Title,       &#

81、160;        MB_OK   or   MB_IconWarning;            Exit;        end;           Self.SaveDialogExport.Fil

82、ter   :=   'Excel文件   (*.xls|*.xls|XML文件   (*.xml|*.xml'            +   '|文本文件   (*.txt|*.txt|網(wǎng)頁文件   (*.html|*.html'       

83、Self.SaveDialogExport.Title   :=   '導(dǎo)出為'           if   not   Self.SaveDialogExport.Execute   then            Exit;   

84、0;       FileName   :=   Self.SaveDialogExport.FileName;        FileExt   :=   LowerCase(ExtractFileExt(FileName;        if   FileExt   =

85、60;  '.xls'   then            ExportGrid4ToExcel(FileName,   Self.cxGrid1        else   if   FileExt   =   '.xml'   the

86、n            ExportGrid4ToXML(FileName,   Self.cxGrid1        else   if   FileExt   =   '.txt'   then       

87、;     ExportGrid4ToText(FileName,   Self.cxGrid1        else   if   FileExt   =   '.html'   then            ExportGrid4ToH

88、TML(FileName,   Self.cxGrid1        else        begin            msg   :=   '不支持的導(dǎo)出文件類型.'        

89、    Application.MessageBox(PChar(msg,   PChar(Application.Title,                MB_OK   or   MB_IconError;            Exit;        end;           msg   :=   '導(dǎo)出完成.'