delphi中XLSReadWrite控件的使用(3)---基本应用

 这是自带的一个例子，看懂这一点东西，基本的操作应该没问题了....

  
  
  

   
   
   unit
   
   
    Main;


   
   
   interface
   
   
   


   
   
   uses
   
   
   
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, XLSReadWriteII4, XLSFonts4, CellFormats4, BIFFRecsII4;


   
   
   type
   
   
   
 TfrmMain 
   
   
   =
   
   
    
   
   
   class
   
   
   (TForm)
 Label1: TLabel;
 Button1: TButton;
 edFilename: TEdit;
 Button2: TButton;
 Button3: TButton;
 dlgSave: TSaveDialog;
 XLS: TXLSReadWriteII4;

   
   
   procedure
   
   
    Button1Click(Sender: TObject);

   
   
   procedure
   
   
    Button2Click(Sender: TObject);

   
   
   procedure
   
   
    Button3Click(Sender: TObject);

   
   
   private
   
   
   

   
   
   procedure
   
   
    AddFormats;

   
   
   public
   
   
   

   
   
   {
   
   
    Public declarations 
   
   
   }
   
   
   

   
   
   end
   
   
   ;


   
   
   var
   
   
   
 frmMain: TfrmMain;


   
   
   implementation
   
   
   


   
   
   {
   
   
   $R *.dfm
   
   
   }
   
   
   


   
   
   procedure
   
   
    TfrmMain.AddFormats;

   
   
   begin
   
   
   

   
   
   (*
   
   
   Format a single cell
   
   
   *)
   
   
   

   
   
   (*
   
   
    显示字符串 
   
   
   *)
   
   
   
 XLS.Sheets[
   
   
   0
   
   
   ].AsString[
   
   
   0
   
   
   ,
   
   
   1
   
   
   ] :
   
   
   =
   
   
    
   
   
   '
   
   
   Cell 1
   
   
   '
   
   
   ;

   
   
   (*
   
   
    字符串颜色 
   
   
   *)
   
   
   
 XLS.Sheets[
   
   
   0
   
   
   ].Cell[
   
   
   0
   
   
   ,
   
   
   1
   
   
   ].FillPatternForeColor :
   
   
   =
   
   
    xcYellow;

   
   
   (*
   
   
    字体 
   
   
   *)
   
   
   
 XLS.Sheets[
   
   
   0
   
   
   ].Cell[
   
   
   0
   
   
   ,
   
   
   1
   
   
   ].FontStyle :
   
   
   =
   
   
    [xfsBold,xfsItalic];


   
   
   (*
   
   
   Format a number cell (3 decimals and thousand separator)
 (* 格式化字符串，显示小数点后三位，千位和百位之间加个空格 
   
   
   *)
   
   
   
 XLS.Sheets[
   
   
   0
   
   
   ].AsFloat[
   
   
   0
   
   
   ,
   
   
   0
   
   
   ] :
   
   
   =
   
   
    
   
   
   12335985394.895634
   
   
   ;
 XLS.Sheets[
   
   
   0
   
   
   ].Cell[
   
   
   0
   
   
   ,
   
   
   0
   
   
   ].NumberFormat :
   
   
   =
   
   
    
   
   
   '
   
   
   # ##0.000
   
   
   '
   
   
   ;


   
   
   (*
   
   
    Write a string cell. 
   
   
   *)
   
   
   
 XLS.Sheet[
   
   
   0
   
   
   ].AsStringRef[
   
   
   '
   
   
   C2
   
   
   '
   
   
   ] :
   
   
   =
   
   
    
   
   
   '
   
   
   Hello
   
   
   '
   
   
   ;

   
   
   (*
   
   
    单元格赋值 
   
   
   *)
   
   
   

   
   
   (*
   
   
    Set the font size of the cells in the area.
 (* 改变区域内的字体大小 
   
   
   *)
   
   
   
 XLS.Sheet[
   
   
   0
   
   
   ].Range.Items[
   
   
   1
   
   
   ,
   
   
   0
   
   
   ,
   
   
   3
   
   
   ,
   
   
   3
   
   
   ].FontSize :
   
   
   =
   
   
    
   
   
   14
   
   
   ;

   
   
   (*
   
   
    Set the color of the cells. 
   
   
   *)
   
   
   

   
   
   (*
   
   
    设置区域的颜色 
   
   
   *)
   
   
   
 XLS.Sheet[
   
   
   0
   
   
   ].Range.ItemsRef[
   
   
   '
   
   
   B1:D4
   
   
   '
   
   
   ].FillPatternForeColor :
   
   
   =
   
   
    xcYellow;

   
   
   (*
   
   
    Set a outline border. 
   
   
   *)
   
   
   

   
   
   (*
   
   
    设置外框线的外形、颜色 
   
   
   *)
   
   
   
 XLS.Sheet[
   
   
   0
   
   
   ].Range.ItemsRef[
   
   
   '
   
   
   B1:D4
   
   
   '
   
   
   ].BorderOutlineStyle :
   
   
   =
   
   
    cbsThick;

   
   
   (*
   
   
    Set color of the outline border. 
   
   
   *)
   
   
   
 XLS.Sheet[
   
   
   0
   
   
   ].Range.ItemsRef[
   
   
   '
   
   
   B1:D4
   
   
   '
   
   
   ].BorderOutlineColor :
   
   
   =
   
   
    xcRed;

   
   
   (*
   
   
    Make a copy of the cells. 
   
   
   *)
   
   
   

   
   
   (*
   
   
    区域复制 
   
   
   *)
   
   
   
 XLS.Sheet[
   
   
   0
   
   
   ].Range.ItemsRef[
   
   
   '
   
   
   B1:D4
   
   
   '
   
   
   ].Copy(
   
   
   8
   
   
   ,
   
   
   10
   
   
   );

   
   
   (*
   
   
    Move the cells. 
   
   
   *)
   
   
   

   
   
   (*
   
   
    区域移动 
   
   
   *)
   
   
   
 XLS.Sheet[
   
   
   0
   
   
   ].Range.ItemsRef[
   
   
   '
   
   
   B1:D4
   
   
   '
   
   
   ].Move(
   
   
   8
   
   
   ,
   
   
   2
   
   
   );

   
   
   end
   
   
   ;


   
   
   procedure
   
   
    TfrmMain.Button1Click(Sender: TObject);

   
   
   begin
   
   
   
 AddFormats;
 XLS.Filename :
   
   
   =
   
   
    edFilename.Text;

   
   
   (*
   
   
    保存文件 
   
   
   *)
   
   
   
 XLS.Write;

   
   
   end
   
   
   ;


   
   
   procedure
   
   
    TfrmMain.Button2Click(Sender: TObject);

   
   
   begin
   
   
   
 dlgSave.FileName :
   
   
   =
   
   
    edFilename.Text;

   
   
   if
   
   
    dlgSave.Execute 
   
   
   then
   
   
   
 edFilename.Text :
   
   
   =
   
   
    dlgSave.FileName;

   
   
   end
   
   
   ;


   
   
   procedure
   
   
    TfrmMain.Button3Click(Sender: TObject);

   
   
   begin
   
   
   
 Close;

   
   
   end
   
   
   ;


   
   
   end
   
   
   .