GetEnvironmentVariable(’TEMP’)

其中TEMP為WINDOWS的環境變數

Windows 在 command 模式下輸入 set 也可秀出現有 Windows 的環境變數，把變數值帶入這個 Function 內即可取得，回傳值是文字型態。

Windows常用變數: 參考來源：http://jck11.pixnet.net/blog/post/13459124-windows%E7%B3%BB%E7%B5%B1%E5%85%A7%E5%BB%BA%E7%9A%84%E5%B8%B8%E8%A6%8B%E7%92%B0%E5%A2%83%E8%AE%8A%E6%95%B8

%ALLUSERSPROFILE%：All Users設定檔的資料夾位置。 %APPDATA%：目前使用者的Application Data資料夾位置。 %CD%：目前的工作資料夾。 %CLIENTNAME%：目前使用者的NETBIOS電腦名稱。 %CMDCMDLINE%：處理目前命令提示字元視窗命令的cmd.exe的完整路徑。 %CMDEXTVERSION%：目前Command Processor Extensions的版本。 %COMPUTERNAME%：電腦名稱。 %COMSPEC%:：命令提示字元視窗的解譯程式路徑，通常與%CMDCMDLINE%相同。 %CommonProgramFiles%：Common Files資料夾的路徑。 [...]]]> 使用 DELPHI 抓取 WINDOWS 內的環境變數值

GetEnvironmentVariable(’TEMP’)

其中TEMP為WINDOWS的環境變數

Windows 在 command 模式下輸入 set 也可秀出現有 Windows 的環境變數，把變數值帶入這個 Function 內即可取得，回傳值是文字型態。

Windows常用變數:
參考來源：http://jck11.pixnet.net/blog/post/13459124-windows%E7%B3%BB%E7%B5%B1%E5%85%A7%E5%BB%BA%E7%9A%84%E5%B8%B8%E8%A6%8B%E7%92%B0%E5%A2%83%E8%AE%8A%E6%95%B8

%ALLUSERSPROFILE%：All Users設定檔的資料夾位置。
%APPDATA%：目前使用者的Application Data資料夾位置。
%CD%：目前的工作資料夾。
%CLIENTNAME%：目前使用者的NETBIOS電腦名稱。
%CMDCMDLINE%：處理目前命令提示字元視窗命令的cmd.exe的完整路徑。
%CMDEXTVERSION%：目前Command Processor Extensions的版本。
%COMPUTERNAME%：電腦名稱。
%COMSPEC%:：命令提示字元視窗的解譯程式路徑，通常與%CMDCMDLINE%相同。
%CommonProgramFiles%：Common Files資料夾的路徑。
%DATE%：目前的系統日期。
%ERRORLEVEL%：最近執行過的命令的錯誤碼；非零的值表示發生過的錯誤碼。
%HOMESHARE%：目前使用者共用資料夾的網路路徑。
%HomeDrive%：使用者目錄的磁碟機。
%HomePath%：使用者家目錄。
%LOGONSEVER%：目前使用者所登入的網路控制器名稱。
%NUMBER_OF_PROCESSORS%：電腦的處理器數量。
%OS%：作業系統名稱，其值固定為Windows_NT
%PATHEXT%：作業系統是為執行檔的副檔名。
%PROCESSOR_ARCHITECTURE%：處理器的架構名稱，例如x86。
%PROCESSOR_IDENTFIER%：說明處理器的文字（不一定會有此環境變數）。
%PROCESSOR_LEVEL%：處理器的model number。
%PROCESSOR_REVISION%：處理器的revision number。
%PROMPT%：目前解譯程式的命令提示字串。
%Path%：執行檔的搜尋路徑。
%ProgramFiles%：應用程式目錄，預設是C:\Program Files。
%RANDOM%：顯示0到32767之間的十進位整數亂數。
%SESSIONNAME%：連上終端伺服器的session names。
%SystemDirectory%：系統目錄，預設是C:\WINNT\System32或C:\WINDOWS\System32。
%SystemDrive%：系統磁碟機，預設是C:。
%SystemRoot%：系統根目錄，預設是C:\WINNT或C:\WINDOWS。
%TIME%：目前的系統時間。
%Temp%、%Tmp%：暫存檔目錄。
%USERPROFILE%：目前使用者的設定檔路徑。
%UserDomain%：包含使用者帳號的網域名稱，或者電腦名稱。
%UserName%：使用者帳號名稱。
%WinDir%：Windows目錄，預設是C:\WINNT或C:\WINDOWS。

出處:http://tw.myblog.yahoo.com/cschen99ws/article?mid=16596&prev=18175&l=f&fid=52

procedure TForm1.Button1Click(Sender: TObject); var  S:string;   begin     with   TMemoryStream.Create   do   try             S   :=   #$EF#$BB#$BF;             Write(S[1],   Length(S));             S   :=   AnsiToUtf8(Memo1.Text);             Write(S[1],   Length(S));             Position   :=   0;           SaveToFile(’c:\temp.txt’);       finally             Free;         end;   end;      procedure TForm1.Button2Click(Sender: TObject); var         [...]]]> DELPHI 7 下 TEXT檔 ANSI與UTF8互轉方式

出處:http://tw.myblog.yahoo.com/cschen99ws/article?mid=16596&prev=18175&l=f&fid=52

procedure TForm1.Button1Click(Sender: TObject);
var  S:string;  
begin  
  with   TMemoryStream.Create   do   try  
          S   :=   #$EF#$BB#$BF;  
          Write(S[1],   Length(S));  
          S   :=   AnsiToUtf8(Memo1.Text);  
          Write(S[1],   Length(S));  
          Position   :=   0;
          SaveToFile(’c:\temp.txt’);  
    finally  
          Free;  
      end;  
end;     
procedure TForm1.Button2Click(Sender: TObject);
var  
      S:   string;  
  begin  
      //取  
      if   not   FileExists(’c:\temp\temp.txt’)   then   Exit;  
      with   TMemoryStream.Create   do   try  
          LoadFromFile(’c:\temp\temp.txt’);  
          SetLength(S,   Size);  
          Read(S[1],   Length(S));  
          if   Copy(S,   1,   3)   <>   #$EF#$BB#$BF   then   Exit;  
          Memo1.Text   :=   Utf8ToAnsi(Copy(S,   4,   MaxInt));  
      finally  
          Free;  
      end;  
  end;

抓檔前先轉UTF8Encode filename:= UTF8Encode(filename);   FIdFtp.Get(filename,tStream,true);

未測試………………

==================================================================================

出處:http://hi.baidu.com/syncgrey/blog/item/8c894e823c7f78aa6c8119f1.html

1、Delphi 2010自帶TIdFTP的中文問題   最近使用TIdTFP，使用ChangeDir切換到中文目錄時報錯，錯誤提示中的中文目錄成了一串“?”號，閱讀源代碼得知，該控件的默認IOHandle的默認Encoding是ASCII（代碼頁為20127），ITdFTP在Connect方法中，連接成功後，有這麼一句：

    // RLebeau: must not send/receive UTF-8 before negotiating for it…     IOHandler.DefStringEncoding := Indy8BitEncoding;

再轉到Indy8BitEncoding 中看看：

function Indy8BitEncoding(const AOwnedByIndy: Boolean = True): TIdTextEncoding; var   LEncoding: TIdTextEncoding; [...]]]> DELPHI7 + INDY

抓檔前先轉UTF8Encode
filename:= UTF8Encode(filename);  
FIdFtp.Get(filename,tStream,true);

未測試………………

==================================================================================

出處:http://hi.baidu.com/syncgrey/blog/item/8c894e823c7f78aa6c8119f1.html

1、Delphi 2010自帶TIdFTP的中文問題
  最近使用TIdTFP，使用ChangeDir切換到中文目錄時報錯，錯誤提示中的中文目錄成了一串“?”號，閱讀源代碼得知，該控件的默認IOHandle的默認Encoding是ASCII（代碼頁為20127），ITdFTP在Connect方法中，連接成功後，有這麼一句：

    // RLebeau: must not send/receive UTF-8 before negotiating for it…
    IOHandler.DefStringEncoding := Indy8BitEncoding;

再轉到Indy8BitEncoding 中看看：

function Indy8BitEncoding(const AOwnedByIndy: Boolean = True): TIdTextEncoding;
var
  LEncoding: TIdTextEncoding;
begin
  if not AOwnedByIndy then begin
    LEncoding := TIdTextEncoding.GetEncoding(28591);
  end else
  begin
    if GId8BitEncoding = nil then begin
      LEncoding := TIdTextEncoding.GetEncoding( 28591);
      if InterlockedCompareExchangePtr(Pointer(GId8BitEncoding), LEncoding, nil) <> nil then begin
        LEncoding.Free;
      end;
    end;
    LEncoding := GId8BitEncoding;
  end;
  Result := LEncoding;
end;

可以看到，這裡會創建（如果還沒創建的話）返回一個代碼頁為28591 的TEncoding，那這個28591 到底是啥子呢？搜索結果如下：

  28591 iso-8859-1 Western European (ISO)

原來是西歐的編碼，不支持中文就不足為奇了，那該如何處理呢？只要在調用TIdFTP.Connect 後，增加一句

TIdFTP.IOHandler.DefStringEncoding := TEncoding.Default

就正常了，注意一定要放在Connect 之後，否則會被Connect 方法重置為28591 代碼頁。

======================================================================

cxGrid的使用方法

cxGrid功能強大，適合做企業級的複雜查詢。非常方便。

但是對其用法介紹的並不多，在此總結他人的使用經驗和自己的一點小經驗，供大家參考。

procedure SetDisplayFormat(ACtrlData: TClientDataSet;

  TbView: TcxGridDBTableView);

var

  i: integer;

begin

  if ACtrlData.RecordCount <= 0 then Exit;

  try

    TbView.ClearItems;

    ACtrlData.First;

    for i := 0 to ACtrlData.RecordCount – 1 do

    begin

      if ACtrlData.FieldByName(’SQBF_DisplayInGrid’).AsString = ‘1′ then //在表格中顯示

      with TbView.CreateColumn do

      begin

        DataBinding.FieldName := ACtrlData.FieldByName(’SQBF_FieldName’).AsString;

        Caption := ACtrlData.FieldByName(’SQBF_Caption’).AsString; //欄位中文標題

        Hint := ACtrlData.FieldByName(’SQBF_Hint’).AsString;

        Width := ACtrlData.FieldByName(’SQBF_Width’).AsInteger;

        HeaderAlignmentHorz := taCenter;

      end;

      [...]]]> 朋友貼給我的，只知道是大陸網站上分享的資料，可在cxGrid內使用CheckBox喔!!!只是用了之後以前可使用 Shift 選區段的功能似乎不能用了。

======================================================================

cxGrid的使用方法

cxGrid功能強大，適合做企業級的複雜查詢。非常方便。

但是對其用法介紹的並不多，在此總結他人的使用經驗和自己的一點小經驗，供大家參考。

（１）動態設置顯示格式

procedure SetDisplayFormat(ACtrlData: TClientDataSet;

  TbView: TcxGridDBTableView);

var

  i: integer;

begin

  if ACtrlData.RecordCount <= 0 then Exit;

  try

    TbView.ClearItems;

    ACtrlData.First;

    for i := 0 to ACtrlData.RecordCount – 1 do

    begin

      if ACtrlData.FieldByName(’SQBF_DisplayInGrid’).AsString = ‘1′ then //在表格中顯示

      with TbView.CreateColumn do

      begin

        DataBinding.FieldName := ACtrlData.FieldByName(’SQBF_FieldName’).AsString;

        Caption := ACtrlData.FieldByName(’SQBF_Caption’).AsString; //欄位中文標題

        Hint := ACtrlData.FieldByName(’SQBF_Hint’).AsString;

        Width := ACtrlData.FieldByName(’SQBF_Width’).AsInteger;

        HeaderAlignmentHorz := taCenter;

      end;

      ACtrlData.Next;

    end;

  except

    on E: Exception do

      SaveLog(’設置顯示格式時出錯：’ + E.Message);

  end;

end;

（２）顯示行號

procedure TFmQueryBase.cxDBViewMasterCustomDrawIndicatorCell(

  Sender: TcxGridTableView; ACanvas: TcxCanvas;

  AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);

var

  FValue: string;

  FBounds: TRect;

begin

  FBounds := AViewInfo.Bounds;

  if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then

  begin

    ACanvas.FillRect(FBounds);

    ACanvas.DrawComplexFrame(FBounds, clBlack, clBlack, [bBottom, bLeft, bRight], 1);

    FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index+1);

    InflateRect(FBounds, -3, -2); //Platform specific. May not work on Linux.

    ACanvas.Font.Color := clBlack;

    ACanvas.Brush.Style := bsClear;

    ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop);

    ADone := True;

  end;

end;

（３）設置顯示格式，我的專案要求先動態添加欄位，這時不知道欄位類型，所以設置DisplayFormat不方便，我還沒有找到好方法。

所以採用打開資料集後再設置：

procedure TFmQueryBase.cdsMasterAfterOpen(DataSet: TDataSet);

var

  i: Integer;

begin

  for i := 0 to cxDBViewMaster.DataController.DataSet.FieldCount -1 do

  begin

    if cxDBViewMaster.DataController.DataSet.Fields[i] is TNumericField then

    begin

      if Pos(’AMOUNT’, UpperCase(cxDBViewMaster.DataController.DataSet.Fields[i].FieldName)) > 0 then

      begin

        TNumericField(cxDBViewMaster.DataController.DataSet.Fields[i]).DisplayFormat := ‘#,##0.000′;

        Continue;

      end;

      if Pos(’QUANTITY’, UpperCase(cxDBViewMaster.DataController.DataSet.Fields[i].FieldName)) > 0 then

      begin

        TNumericField(cxDBViewMaster.DataController.DataSet.Fields[i]).DisplayFormat := ‘#,##0.000′;

        Continue;

      end;

       if Pos(’MONEY’, UpperCase(cxDBViewMaster.DataController.DataSet.Fields[i].FieldName)) > 0 then

      begin

        TNumericField(cxDBViewMaster.DataController.DataSet.Fields[i]).DisplayFormat := ‘#,##0.00′;

        Continue;

      end;

   end;

  end;

end;

最近在學習使用cxGrid,安裝的版本是ExpressQuantumGrid   Suite   v5.10 

我發現這個控制項功能雖然強大,但是非常難用。

現在我手頭就有幾個問題還沒解決：

  1）主從模式下導出Excel中文會產生亂碼，而且從表內容沒有導出。

我不知道是不是因為我的欄位名包括單引號的原因。

導出代碼：ExportGrid4ToExcel(FileName,   cxGrid); 

  2）主從模式下通過按鈕對從表添加/刪除行，代碼怎么寫。

附：單表添加/刪除行的代碼

  procedure   TFormAccount.cxButtonNewClick(Sender:   TObject); 

  begin 

      Self.tvAccount.DataController.Append; 

      Self.tvAccount.Columns[0].Focused   :=   True; 

      cxGrid.SetFocus; 

  end; 

  procedure   TFormAccount.cxButtonDeleteClick(Sender:   TObject); 

  begin 

      if   Self.tvAccount.DataController.RowCount   =   0   then 

          Exit; 

      if   Application.MessageBox(’確認刪除當前記錄?’,   ‘確認刪除’, 

          MB_YesNo   +   MB_IconQuestion)   =   IDNO   then 

          Exit; 

      Self.tvAccount.DataController.DeleteFocused; 

  end; 

  3）動態創建主從結構出錯（Compiler沒錯，運行時出現系統錯誤0000000018），

我使用了二個ADOStoreProcedure作主從表

代碼如下：

  var 

      Level:   TcxGridLevel; 

      GridView:   TcxGridDBTableView; 

  begin 

      Level   :=   cxGrid1.Levels[0].Add; 

      GridView   :=   TcxGridDBTableView(cxGrid1.CreateView(TcxGridDBTableView)); 

      GridView.DataController.DataSource   :=   Self.dsDetail; 

      GridView.DataController.KeyFieldNames   :=   ‘PurchOrderID;POLineNbr;PromiseDate;ReceiverDate’; 

      GridView.DataController.MasterKeyFieldNames   :=   ‘VendorID’; 

      GridView.DataController.DetailKeyFieldNames   :=   ‘VendorID’; 

      GridView.DataController.DataModeController.SmartRefresh   :=   True; 

      GridView.OptionsCustomize.ColumnHiding   :=   True; 

      GridView.OptionsCustomize.ColumnsQuickCustomization   :=   True; 

      GridView.OptionsData.Deleting   :=   False; 

      GridView.OptionsData.Inserting   :=   False; 

      GridView.OptionsView.Indicator   :=   True; 

      Level.GridView   :=   GridView; 

      GridView   :=   TcxGridDBTableView(cxGrid1.Levels[0].GridView); 

      GridView.DataController.KeyFieldNames   :=   ‘VendorID’; 

      GridView.OptionsView.GroupByBox   :=   False; 

      //顯示主表內容

      tvResult.BeginUpdate; 

      tvResult.ClearItems; 

      tvResult.DataController.CreateAllItems; 

      tvResult.EndUpdate; 

      //顯示明細表內容

      GridView   :=   TcxGridDBTableView(cxGrid1.Levels[0].Items[0].GridView); 

      GridView.BeginUpdate; 

      GridView.ClearItems; 

      GridView.DataController.CreateAllItems; 

      GridView.DataController.Refresh; 

      GridView.EndUpdate; 

  end; 

此樓回復Re：

小技巧:用代碼展開/收縮主從結構

  Self.tvDepartment.ViewData.Expand(True); 

  Self.tvDepartment.ViewData.Collaspe(True); 

注:tvDepartment為主表對應的TableView

此樓回復Re：

你說的這幾個問題我也遇到過。

第一個問題是編碼的問題，修改了其中關於編碼的函數，OK. 

第二個問題在cxGrid的社區可以找到解答，但從表必須滿足某種條件，例如關鍵字排序。

第三個問題的解決辦法，你可以嘗試在動態創建的代碼前後加上：

  grid.beginupdate; 

  … 

  grid.endupdate 

來解決。

此樓回復Re：

沒用過

不要經常使用三方控制項

此樓回復Re：

to   tttk(網路芝麻)：

第一個問題：如何修改啊，貼出代碼

第二個問題：沒搜到啊

第三個問題：試一下再說

此樓回復Re：

不要經常使用三方控制項

  ====================== 

我感覺不用cxGrid的話，沒必要用Delphi了，呵呵

此樓回復Re：

樓上這話是不是有點問題?DELPHI能做得事情很多很多,難道非要用CXGRID?CXGRID不是用DELPHI做出來得?

此樓回復Re：

沒用過…..

此樓回復Re：

回復人：   zxkid(沒有人會像我這樣…)   (   )   信譽：101     2006-01-06   16:58:00     得分:   0     

不要經常使用三方控制項

  ====================== 

我感覺不用cxGrid的話，沒必要用Delphi了，呵呵

  ********** 

樓主乃天人也！！

此樓回復Re：

呵呵

此樓回復Re：

cxGrid比較不錯,我也使用過導出到Excel,沒有遇到你說的亂碼

主從表也沒有問題的，其實跟單表操作還不是一回事

此樓回復Re：

up

此樓回復Re：

沒用過cxGrid，以後考慮

此樓回復Re：

樓主乃天人也！！

  ============================= 

  Delphi下有cxGrid,   .NET下有XtraGrid,   它們都是同一公司出的。

遲早都會轉到.NET，所以。。。

此樓回復Re：

路過

此樓回復Re：

用過，挺好，只會使用最簡單的。

此樓回復Re：

發一個郵件給我，我把解決亂碼後的源代碼發一分給你，放到你的專案檔夾下即可。

  tttk2000@hotmail.com

此樓回復Re：

第二個問題：https://www.devexpress.com/Support/Center/default.aspx?view=ViewIssue&issueid=B2691

此樓回復Re：

謝謝tttk(網路芝麻)   

第二個問題：我現在直接讓用戶用導航條的刪除/添加按鈕了。根據你給的網址上的內容我知道大概該怎么寫了，有空再試試。

第一個問題：不光是亂碼問題，還有從表內容沒導出的問題。

只有一個表的話是不會出現亂碼的。

第三個問題：還沒來得及試。

此樓回復Re：

第一個問題：看了一下幫助，原來cxGrid不支持主從表的導出，只能導出主表（頂層表）的內容。暈

此樓回復Re：

貼一些小技巧,希望與各位使用cxGrid的朋友共同交流

各位有什么好個技巧也可以貼出來: 

技巧二：在內置右鍵功能表的後面增加功能表項

首先應在Form上加一個cxGridPopupMenu控制項 以啟用右鍵功能表

  UseBuildInPopupMenus設為True 

  procedure   TFormItemList.FormCreate(Sender:   TObject); 

  var 

      AMenu:   TComponent; 

      FMenuItem,   FSubMenuItem:   TMenuItem; 

  begin 

      AMenu   :=   nil; 

      if   cxGridPopupMenu.BuiltInPopupMenus.Count   =   0   then 

          Exit; 

      AMenu   :=   cxGridPopupMenu.BuiltInPopupMenus[0].PopupMenu; //第一個內置右鍵功能表(表頭功能表) 

      if   Assigned(AMenu)   and   AMenu.InheritsFrom(TPopupMenu)   then 

      begin 

          TPopupMenu(AMenu).AutoHotkeys   :=   maManual;         //手動熱鍵

          //————————- 

          FMenuItem   :=   TMenuItem.Create(Self); 

          FMenuItem.Caption   :=   ‘-’; 

          FMenuItem.Name   :=   ‘miLineForGroup’; 

          TPopupMenu(AMenu).Items.Add(FMenuItem); 

          //展開所有組

          FMenuItem   :=   TMenuItem.Create(Self); 

          FMenuItem.Name   :=   ‘miExpandAllGroup’; 

          FMenuItem.Caption   :=   ‘展開所有組(&X)’; 

          FMenuItem.OnClick   :=   miExpandAllGroupClick; 

          TPopupMenu(AMenu).Items.Add(FMenuItem); 

          //收縮所有組

          FMenuItem   :=   TMenuItem.Create(Self); 

          FMenuItem.Name   :=   ‘miCollapseAllGroup’; 

          FMenuItem.Caption   :=   ‘收縮所有組(&O)’; 

          FMenuItem.OnClick   :=   miCollapseAllGroupClick; 

          TPopupMenu(AMenu).Items.Add(FMenuItem); 

          //————————- 

          FMenuItem   :=   TMenuItem.Create(Self); 

          FMenuItem.Caption   :=   ‘-’; 

          TPopupMenu(AMenu).Items.Add(FMenuItem); 

          //過濾面板

          FMenuItem   :=   TMenuItem.Create(Self); 

          FMenuItem.Name   :=   ‘miFilterPanel’; 

          FMenuItem.Caption   :=   ‘過濾面板(&P)’; 

          //自動顯示

          FSubMenuItem   :=   TMenuItem.Create(Self); 

          FSubMenuItem.Name   :=   ‘miFilterPanelAuto’; 

          FSubMenuItem.Caption   :=   ‘自動(&A)’; 

          FSubMenuItem.RadioItem   :=   True; 

          FSubMenuItem.GroupIndex   :=   5; //指定同一組

          FSubMenuItem.Checked   :=   True; 

          FSubMenuItem.OnClick   :=   miFilterPanelClick; 

          FMenuItem.Add(FSubMenuItem); //加入二級子功能表

          //總是顯示

          FSubMenuItem   :=   TMenuItem.Create(Self); 

          FSubMenuItem.Name   :=   ‘miFilterPanelAlways’; 

          FSubMenuItem.Caption   :=   ‘總是顯示(&W)’; 

          FSubMenuItem.RadioItem   :=   True; 

          FSubMenuItem.GroupIndex   :=   5; 

          FSubMenuItem.OnClick   :=   miFilterPanelClick; 

          FMenuItem.Add(FSubMenuItem); 

          //從不顯示

          FSubMenuItem   :=   TMenuItem.Create(Self); 

          FSubMenuItem.Name   :=   ‘miFilterPanelNerver’; 

          FSubMenuItem.Caption   :=   ‘從不顯示(&N)’; 

          FSubMenuItem.RadioItem   :=   True; 

          FSubMenuItem.GroupIndex   :=   5; 

          FSubMenuItem.OnClick   :=   miFilterPanelClick; 

          FMenuItem.Add(FSubMenuItem); 

          TPopupMenu(AMenu).Items.Add(FMenuItem); 

          //自定義過濾

          FMenuItem   :=   TMenuItem.Create(Self); 

          FMenuItem.Name   :=   ‘miCustomFilter’; 

          FMenuItem.Caption   :=   ‘自定義過濾(&M)’; 

          FMenuItem.OnClick   :=   miCustomFilterClick; 

          TPopupMenu(AMenu).Items.Add(FMenuItem); 

          //過濾管理器

          FMenuItem   :=   TMenuItem.Create(Self); 

          FMenuItem.Name   :=   ‘miFilterBuilder’; 

          TPopupMenu(AMenu).Images.AddImage(FormMain.ImageListExtend,   44); //添加圖示圖像

          FMenuItem.ImageIndex   :=   TPopupMenu(AMenu).Images.Count   -   1; //指定圖示序號

          FMenuItem.Caption   :=   ‘過濾管理器’; 

          FMenuItem.OnClick   :=   Self.miFilterBuilderClick; 

          TPopupMenu(AMenu).Items.Add(FMenuItem); 

          //——————— 

          FMenuItem   :=   TMenuItem.Create(Self); 

          FMenuItem.Caption   :=   ‘-’; 

          TPopupMenu(AMenu).Items.Add(FMenuItem); 

          //導出

          FMenuItem   :=   TMenuItem.Create(Self); 

          FMenuItem.Name   :=   ‘miExport’; 

          TPopupMenu(AMenu).Images.AddImage(FormMain.ImageListExtend,   37); 

          FMenuItem.ImageIndex   :=   TPopupMenu(AMenu).Images.Count   -   1; 

          FMenuItem.Caption   :=   ‘導出(&E)’; 

          FMenuItem.OnClick   :=   Self.miExportClick; 

          TPopupMenu(AMenu).Items.Add(FMenuItem); 

          //列印

          FMenuItem   :=   TMenuItem.Create(Self); 

          FMenuItem.Name   :=   ‘miPrint’; 

          FMenuItem.Caption   :=   ‘列印(&P)’; 

          TPopupMenu(AMenu).Images.AddImage(FormMain.ImageListExtend,   14); 

          FMenuItem.ImageIndex   :=   TPopupMenu(AMenu).Images.Count   -   1; 

          FMenuItem.OnClick   :=   Self.miPrintClick; 

          TPopupMenu(AMenu).Items.Add(FMenuItem); 

      end; 

  end; 

  procedure   TFormItemList.miExportClick(Sender:   TObject); 

  var 

      FileName,   FileExt,   msg:   String; 

  begin 

      if   Self.aqyQuery.IsEmpty   then 

      begin 

          msg   :=   ‘沒有導出資料…’; 

          Application.MessageBox(PChar(msg),   PChar(Application.Title), 

              MB_OK   or   MB_IconWarning); 

          Exit; 

      end; 

      Self.SaveDialogExport.Filter   :=   ‘Excel文件   (*.xls)|*.xls|XML文件   (*.xml)|*.xml’ 

          +   ‘|文字檔案   (*.txt)|*.txt|網頁文件   (*.html)|*.html’; 

      Self.SaveDialogExport.Title   :=   ‘導出為’; 

      if   not   Self.SaveDialogExport.Execute   then 

          Exit; 

      FileName   :=   Self.SaveDialogExport.FileName; 

      FileExt   :=   LowerCase(ExtractFileExt(FileName)); 

      if   FileExt   =   ‘.xls’   then 

          ExportGrid4ToExcel(FileName,   Self.cxGrid1) 

      else   if   FileExt   =   ‘.xml’   then 

          ExportGrid4ToXML(FileName,   Self.cxGrid1) 

      else   if   FileExt   =   ‘.txt’   then 

          ExportGrid4ToText(FileName,   Self.cxGrid1) 

      else   if   FileExt   =   ‘.html’   then 

          ExportGrid4ToHTML(FileName,   Self.cxGrid1) 

      else 

      begin 

          msg   :=   ‘不支援的導出檔類型…’; 

          Application.MessageBox(PChar(msg),   PChar(Application.Title), 

              MB_OK   or   MB_IconError); 

          Exit; 

      end; 

      msg   :=   ‘導出完成…’; 

      Application.MessageBox(PChar(msg),   PChar(Application.Title), 

          MB_OK   or   MB_IconInformation); 

  end; 

  procedure   TFormItemList.miPrintClick(Sender:   TObject); 

  begin 

      //列印

      Self.dxComponentPrinter.Preview(True,   Self.dxComponentPrinterLink1); 

  end; 

  procedure   TFormItemList.cxGridPopupMenuPopup(ASenderMenu:   TComponent; 

      AHitTest:   TcxCustomGridHitTest;   X,   Y:   Integer;   var   AllowPopup:   Boolean); 

  begin 

      if   GetHitTypeByHitCode(AHitTest.HitTestCode)   =   gvhtColumnHeader   then //右擊列標題時

      begin 

          //if   tvResult.DataController.Groups.GroupingItemCount   >   0   then 

          if   tvResult.GroupedColumnCount   >   0   then //有分組時顯示

          begin 

            TMenuItem(Self.FindComponent(’miLineForGroup’)).Visible   :=   True; 

            TMenuItem(Self.FindComponent(’miExpandAllGroup’)).Visible   :=   True; 

            TMenuItem(Self.FindComponent(’miCollapseAllGroup’)).Visible   :=   True; 

          end 

          else 

          begin 

            TMenuItem(Self.FindComponent(’miLineForGroup’)).Visible   :=   False; 

            TMenuItem(Self.FindComponent(’miExpandAllGroup’)).Visible   :=   False; 

            TMenuItem(Self.FindComponent(’miCollapseAllGroup’)).Visible   :=   False; 

          end; 

      end; 

  end; 

  procedure   TFormItemList.miFilterBuilderClick(Sender:   TObject); 

  begin 

      //過濾管理器

      //彈出Filter   Builder   Dialog對話方塊

      tvResult.Filtering.RunCustomizeDialog; 

  end; 

  procedure   TFormItemList.miCustomFilterClick(Sender:   TObject); 

  var 

      AHitTest:   TcxCustomGridHitTest; 

  begin 

      //自定義過濾

      //彈出Custom   Filter   Dialog對話方塊

      AHitTest   :=   cxGridPopupMenu.HitTest; 

      if   GetHitTypeByHitCode(AHitTest.HitTestCode)   =   gvhtColumnHeader   then //獲得右擊的列

          tvResult.Filtering.RunCustomizeDialog(TcxGridColumnHeaderHitTest(AHitTest).Column); 

  end; 

  procedure   TFormItemList.miFilterPanelClick(Sender:   TObject); 

  var 

      mi:   TMenuItem; 

  begin 

      //隱藏/顯示過濾面板

      mi   :=   TMenuItem(Sender); 

      mi.Checked   :=   True; 

      if   mi.Name   =   ‘miFilterPanelAlways’   then 

          tvResult.Filtering.Visible   :=   fvAlways 

      else   if   mi.Name   =   ‘miFilterPanelNerver’   then 

          tvResult.Filtering.Visible   :=   fvNever 

      else 

          tvResult.Filtering.Visible   :=   fvNonEmpty; 

  end; 

  procedure   TFormItemList.miExpandAllGroupClick(Sender:   TObject); 

  begin 

      //展開所有組

      tvResult.DataController.Groups.FullExpand; 

  end; 

  procedure   TFormItemList.miCollapseAllGroupClick(Sender:   TObject); 

  begin 

      //收縮所有組

      tvResult.DataController.Groups.FullCollapse; 

  end; 

此樓回復Re：

在用，留名

此樓回復Re：

技巧三 按條件計算合計值

在Footer的第一列顯示[合計:] 

加一個Summary項,Column設為Grid的第一列,Kind設為skNone 

在該Summary項的OnGetText事件中,輸入: 

  procedure   TFormExpense.tvExpenseTcxGridDBDataControllerTcxDataSummaryFooterSummaryItems2GetText( 

      Sender:   TcxDataSummaryItem;   const   AValue:   Variant;   AIsFooter:   Boolean; 

      var   AText:   String); 

  begin 

      AText   :=   ‘合計:’; 

  end; 

按條件匯總: 

在TableView的DataController->Summary->FooterSummary->OnSummary事件中,輸入: 

  procedure   TFormExpense.tvExpenseDataControllerSummaryFooterSummaryItemsSummary( 

      ASender:   TcxDataSummaryItems;   Arguments:   TcxSummaryEventArguments; 

      var   OutArguments:   TcxSummaryEventOutArguments); 

  begin 

      //得到欄位名   TcxDBDataSummaryItem(Arguments.SummaryItem).FieldName; 

      if   (ASender.DataController.Values[Arguments.RecordIndex,   tvExpenseLevel.Index]   >   1)       //只統計Level列=1的值

          and   (TcxDBDataSummaryItem(Arguments.SummaryItem).Kind   =   skSum)   then 

          OutArguments.Value   :=   0; //Level   >   1的統計值設為0 

  end; 

此樓回復Re：

借貴地一用,問個CXGrid問題,在cxgrid中如何使一些行不能編輯,如:欄位isenable   =   false的行

此樓回復Re：

樓上的問題

請參考下面的技巧

技巧四:根據某列的值設定其他列的可編輯性

  procedure   TFormUser.tvUserEditing(Sender:   TcxCustomGridTableView; 

      AItem:   TcxCustomGridTableItem;   var   AAllow:   Boolean); 

  begin 

      //如果第三列值為True,則第4列不能修改

      if   (tvUser.Controller.FocusedRecord.Values[2]   =   True)   and   (AItem.Index   =   4)   then 

          AAllow   :=   False 

      else 

          AAllow   :=   True; 

  end; 

此樓回復Re：

技巧五:保存/恢復Grid佈局

  //恢復佈局

  IniFileName   :=   ExtractFilePath(Application.ExeName)   +   ‘Layout\’   +   Self.Name   +   ‘.ini’; 

  if   FileExists(IniFileName)   then 

      Self.tvResult.RestoreFromIniFile(IniFileName) //從佈局檔中恢復

  else 

  begin 

      Self.tvResult.BeginUpdate; 

      for   i   :=   0   to   Self.tvResult.ItemCount   -   1   do 

          Self.tvResult.Items[i].ApplyBestFit; //調整為最佳寬度

      Self.tvResult.EndUpdate; 

  end; 

  //保存佈局

  IniFileName   :=   ExtractFilePath(Application.ExeName)   +   ‘Layout\’   +   Self.Name   +   ‘.ini’; 

  if   not   DirectoryExists(ExtractFileDir(IniFileName))   then 

      CreateDir(ExtractFileDir(IniFileName)); 

  Self.tvResult.StoreToIniFile(IniFileName); //保存為佈局檔

此樓回復Re：

借用地問一下：在   cxgrid中，如果我同時選中主表與子表中的記錄，怎么樣能同時進行對其所選記錄進行處理呢。

我現在只能判斷 焦點是在主表還是從表中，然後只能對主表或子表中的資料進行處理。

此樓回復Re：

看來用cxGrid人不多啊

再多貼一些技巧,需要的朋友頂一下

  ========================================================================== 

在主從TableView中根據主TableView得到對應的從TableView 

  var 

      ADetailDC:   TcxGridDataController; 

      AView:   TcxCustomGridTableView; 

  begin 

      with   cxGrid1DBTableView1.DataController   do 

          ADetailDC   :=   TcxGridDataController(GetDetailDataController(FocusedRecordIndex,   0)); 

      AView   :=   ADetailDC.GridView; 

  end; 

  ============================================================================== 

定位在第一行並顯示內置編輯器

  cxDBVerticalGrid1.FocusedRow   :=   cxDBVerticalGrid1.Rows[0]; 

  cxDBVerticalGrid1.ShowEdit; 

  ============================================================================== 

隱藏   "<No   data   to   display>"   字串

該文本存儲在scxGridNoDataInfoText資源字串,可以將該資源字串的內容設為空

來隱藏該文本。

  uses   cxClasses,   cxGridStrs;   

      … 

      cxSetResourceString(@scxGridNoDataInfoText,   』); 

      //如果"<No   data   to   display>"   字串已經顯示，需要調用：

      <View>.LayoutChanged; 

  ============================================================ 

刪除應用過濾後的行

  var 

      I:   Integer; 

  begin 

      with   <GridView>   do 

          for   I   :=   0   to   ViewData.RecordCount   -   1   do 

          begin 

              ViewData.Records[0].Focused   :=   True; 

              DataController.DataSet.Delete; 

          end; 

  ============================================================= 

根據單元的值設置樣式

  procedure   <aForm>.<aColumn>StylesGetContentStyle( 

      Sender:   TcxCustomGridTableView;   ARecord:   TcxCustomGridRecord; 

      AItem:   TcxCustomGridTableItem;   out   AStyle:   TcxStyle); 

  begin 

      if   ARecord.Values[AItem.Index]   =   aSomeValue   then 

          AStyle   :=   <aSomeStyle>; 

  end; 

  procedure   <aForm>.<aView>StylesGetContentStyle( 

      Sender:   TcxCustomGridTableView;   ARecord:   TcxCustomGridRecord; 

      AItem:   TcxCustomGridTableItem;   out   AStyle:   TcxStyle); 

  var 

      AColumn:   TcxCustomGridTableItem; 

  begin 

      AColumn   :=   (Sender   as   TcxGridDBTableView).GetColumnByFieldName(’Email’); 

      if   VarToStr(ARecord.Values[AColumn.Index])   =   』   then 

          AStyle   :=   cxStyleNullEmail; 

  end; 

  ============================================================================== 

  TcxCustomGridTableView.FindItemByName,   TcxGridDBTableView.GetColumnByFieldName   or 

  TcxGridDBDataController.GetItemByFieldName 

      with   cxGrid1DBBandedTableView1.DataController   do 

          AValue   :=   Values[FocusedRecordIndex,   GetItemByFieldName('SomeFieldName').Index]; 

  =================================================================== 

動態生成BandedView 

  var 

      AView:   TcxCustomGridView; 

  begin 

      AView   :=   <cxGrid>.CreateView(TcxGridDBBandedTableView); 

      TcxGridDBBandedTableView(AView).DataController.DataSource   :=   <DataSource>; 

      TcxGridDBBandedTableView(AView).Bands.Add; 

      with   TcxGridDBBandedTableView(AView).Bands.Add   do 

      begin 

          Visible   :=   False; 

          FixedKind   :=   fkLeft; 

      end; 

      TcxGridDBBandedTableView(AView).DataController.CreateAllItems; 

      <cxGridLevel>.GridView   :=   AView; 

此樓回復Re：

====================================================================== 

當底層資料集為空時顯示一條空記錄

  procedure   <Form>.<cxGrid>Enter(Sender:   TObject); 

  var 

      View:   TcxGridDBTableView; 

  begin 

      View   :=   TcxGridDBTableView((Sender   as   TcxGrid).FocusedView); 

      if   View.DataController.DataSet.IsEmpty   then 

      begin 

          View.DataController.DataSet.Append; 

          View.Controller.EditingController.ShowEdit; 

      end; 

  end; 

  ======================================================================= 

在當前View插入記錄

使用FocusedView屬性得到當前焦點View，用View.DataController得到對應的Data   Controller，

之後使用Data   Controller的方法來運算元據：

  -   Append 

  -   Insert 

  -   Post 

  -   Cancel 

  -   DeleteFocused 

  -   DeleteSelection 

示例：

  var 

      ARecIndex:   Integer; 

  … 

      View.DataController.Append; 

      ARecIndex   :=   View.DataController.FocusedRecordIndex; 

      View.DataController.Values[ARecIndex,   SomeItemIndex]   :=   SomeValue; 

      View.DataController.Post; 

另外一種方法是使用View.DataController.DataSource.DataSet得到底層資料集後，再用資料集的

方法來運算元據。

  ======================================================================== 

啟動內置編輯控制項

    1)   <aView>.Controller.EditingController.ShowEdit(<aColumn>); 

    2)   <aView>.Controller.EditingController.StartEditShowingTimer(<aColumn>); 

    3)   <aView>.Controller.EditingItem   :=   <aColumn>; 

    4)   <aColumn>.Editing   :=   True; 

隱藏內置編輯控制項

      <aView>.Controller.EditingController.HideEdit(True); 

  =========================================================================== 

移除一個分組列

      <aColumn>.GroupIndex   :=   -1; 

      <aColumn>.Visible   :=   True; 

  =========================================================================== 

保存修改到資料庫

  procedure   <aForm>.FormClose(Sender:   TObject;   var   Action:   TCloseAction); 

  begin 

      if   (<aGrid>.FocusedView   <>   nil)   and   (<aGrid>.FocusedView.DataController.EditState   <>   [])   then 

          <aGrid>.FocusedView.DataController.Post; 

  end; 

  ============================================================================ 

設置內置右鍵菜單

內置右鍵功能表包括二個功能表:cxGridStdHeaderMenu,   TcxGridStdFooterMenu 

  uses   cxGridStdPopupMenu; 

  procedure   TForm1.cxGridPopupMenu1Popup(ASenderMenu:   TComponent; 

      AHitTest:   TcxCustomGridHitTest;   X,   Y:   Integer;   var   AllowPopup:   Boolean); 

  begin 

      if   ASenderMenu   is   TcxGridStdHeaderMenu   then 

          TcxGridStdHeaderMenu(ASenderMenu).OnPopup   :=   StdHeaderMenuPopup; 

  end; 

  procedure   TForm1.StdHeaderMenuPopup(Sender:   TObject); 

  var 

      I:   Integer; 

  begin 

      with   TcxGridStdHeaderMenu(Sender).Items   do 

          for   I   :=   0   to   Count   -   1   do 

              if   Items[I].Caption   =   ‘Group   By   Box’   then 

              begin 

                  Items[I].Enabled   :=   False; 

                  System.Break; 

              end 

  end; 

  =========================================================================== 

得到選中記錄的值(MultiSelect) 

  1)   View.DataController.DataModeController.GridMode   =   False時

      RecIdx   :=   View.Controller.SelectedRecords[i].RecordIndex; 

      ColIdx   :=   View.DataController.GetItemByFieldName(AFieldName).Index; 

      OutputVal   :=   View.DataController.Values[RecIdx,   ColIdx]; 

      //RecID   :=   View.DataController.GetRecordId(RecIdx); 

      //OutputVal   :=   ADataSet.Lookup(View.DataController.KeyFieldNames,   RecID,   AFieldName); 

  2)   Bkm: string; 

View.DataController.DataModeController.GridMode   =   True時

      Bkm   :=   View.DataController.GetSelectedBookmark(ASelectedRecordIndex); 

      if   ADataSet.BookmarkValid(TBookmark(Bkm))   then 

      begin 

          ADataSet.Bookmark   :=   Bkm; 

          OutputVal   :=   ADataSet.FieldByName(AFieldName).Value; 

      end; 

      View.BeginUpdate; 

      View.DataController.BeginLocate; 

      try 

          //   make   changes   here… 

      finally 

          View.DataController.EndLocate; 

          View.EndUpdate; 

      end; 

    //直接讀取選擇的單格內容

var

I, J: Integer;

val: Variant;

begin

Result := 0;

for I := 0 to TableView.Controller. SelectedRowCount – 1 do

for J := 0 to TableView.Controller. SelectedColumnCount – 1 do

begin

val := TableView.DataController.GetValue(

TableView.Controller.SelectedRows[I].RecordIndex,

TableView.Controller.SelectedColumns[J].Index);

Showmessage(val);

end;

end;

  ============================================================= 

在GridMode禁用內置的右鍵Footer菜單

  uses   cxGridStdPopupMenu; 

  procedure   cxGridPopupMenuOnPopup(…) 

  begin 

      if   (ASenderMenu   is   TcxGridStdFooterMenu)   and 

              <GridView>.DataController.DataModeController.GridMode   then 

          AllowPopup   :=   False; 

  end; 

  ============================================================== 

主從表任何時候只能展開一個組

  procedure   TForm1.ADetailDataControllerCollapsing( 

      ADataController:   TcxCustomDataController;   ARecordIndex:   Integer; 

      var   AAllow:   Boolean); 

  var 

      I:   Integer; 

      C:   Integer; 

  begin 

      AAllow   :=   False; 

      C   :=   0; 

      for   I   :=   0   to   ADataController.RecordCount   -   1   do 

      begin 

          if   ADataController.GetDetailExpanding(I)   then 

              Inc(C); 

          if   C   >   1   then 

              AAllow   :=   True; 

        end; 

  end; 

  procedure   TForm1.ADetailDataControllerExpanding( 

      ADataController:   TcxCustomDataController;   ARecordIndex:   Integer; 

      var   AAllow:   Boolean); 

  begin 

      ADataController.CollapseDetails; 

  end; 

  procedure   TForm1.FormCreate(Sender:   TObject); 

  begin 

      cxGrid1DBTableView1.DataController.OnDetailExpanding   :=   ADetailDataControllerExpanding; 

      cxGrid1DBTableView1.DataController.OnDetailCollapsing   :=   ADetailDataControllerCollapsing; 

  end; 

  ================================================================= 

動態創建層次(Level)和視圖(View) 

  var     

      Grid:   TcxGrid;     

      Level:   TcxGridLevel;     

      View:   TcxGridDBTableView;     

  begin 

      //   Creates   a   Grid   instance 

      Grid   :=   TcxGrid.Create(SomeOwner);     

      Grid.Parent   :=   SomeParent;     

      //   Creates   a   Level 

      Level   :=   Grid.Levels.Add;     

      Level.Name   :=   ‘SomeLevelName’; 

      //   Creates   a   View 

      View   :=   Grid.CreateView(TcxGridDBTableView)   as   TcxGridDBTableView;     

      View.Name   :=   ‘SomeViewName’; 

      //   …   and   binds   it   to   the   Level 

      Level.GridView   :=   View;     

      //   Hooks   up   the   View   to   the   data 

      View.DataController.DataSource   :=   SomeDataSource;     

      //   …   and   creates   all   columns 

      View.DataController.CreateAllItems;     

  end;   

此樓回復Re：

====================================================================== 

獲得Group   Footer合計行對應的記錄

  procedure   TForm1.cxGrid1DBTableView1CustomDrawFooterCell( 

      Sender:   TcxGridTableView;   ACanvas:   TcxCanvas; 

      AViewInfo:   TcxGridColumnHeaderViewInfo;   var   ADone:   Boolean); 

  var 

      ALevel,   ADataGroupIndex:   Integer; 

      AGridRecord,   AGroupRecord:   TcxCustomGridRecord; 

  begin 

      if   AViewInfo   is   TcxGridRowFooterCellViewInfo   and       //   Row   footer 

            (TcxGridDBColumn(AViewInfo.Column).DataBinding.FieldName   =   ‘Area’)   then     //   Area   column 

          begin 

              AGridRecord   :=   TcxGridRowFooterCellViewInfo(AViewInfo).GridRecord; 

              ALevel   :=   TcxGridRowFooterCellViewInfo(AViewInfo).Container.GroupLevel; 

              ADataGroupIndex   :=   Sender.DataController.Groups.DataGroupIndexByRowIndex[AGridRecord.Index]; 

              if   ADataGroupIndex   <>   -1   then 

              begin 

                  AGroupRecord   :=   AGridRecord; 

                  while   AGroupRecord.Level   <>   ALevel   do 

                      AGroupRecord   :=   AGroupRecord.ParentRecord; 

                  AViewInfo.Text   :=   AGroupRecord.DisplayTexts[0]; 

              end; 

          end; 

  end; 

  =========================================================================== 

訪問過濾之後的記錄

  var 

      I:   Integer; 

  begin 

      Memo1.Lines.Clear; 

      with   cxGrid1DBTableView1.DataController   do 

          for   I   :=   0   to   FilteredRecordCount   -   1   do 

              Memo1.Lines.Add(DisplayTexts[FilteredRecordIndex[I],   0]); 

  end; 

  ============================================================================ 

獲得單元的Font 

  cxGrid1DBTableView1.ViewInfo.RecordsViewInfo.Items[1].GetCellViewInfoByItem( 

      cxGrid1DBTableView1Company).EditViewInfo.Font; 

  ============================================================================ 

根據Level名稱找到Level物件

  function   GetLevelByName(AGrid:   TcxGrid;   ALevelName:   string):   TcxGridLevel; 

      function   LoopThroughLevels(ALevel:   TcxGridLevel;   ALevelName:   string):   TcxGridLevel; 

      var 

          I:   Integer; 

      begin 

          Result   :=   nil; 

          for   I   :=   0   to   ALevel.Count   -   1   do 

          begin 

              if   ALevel[I].Name   =   ALevelName   then 

              begin 

                  Result   :=   ALevel[I]; 

                  Exit; 

              end; 

              if   ALevel[I].Count   >   0   then 

              begin 

                  Result   :=   LoopThroughLevels(ALevel[I],   ALevelName); 

                  if   Result   <>   nil   then 

                      Exit; 

              end; 

          end; 

      end; 

  var 

      I:   Integer; 

  begin 

      Result   :=   nil; 

      for   I   :=   0   to   AGrid.Levels.Count   -   1   do 

      begin 

          if   AGrid.Levels[I].Name   =   ALevelName   then 

          begin 

              Result   :=   AGrid.Levels[I]; 

              Exit; 

          end; 

          if   AGrid.Levels[I].Count   >   0   then 

          begin 

              Result   :=   LoopThroughLevels(AGrid.Levels[I],   ALevelName); 

              if   Result   <>   nil   then 

                  Exit; 

          end; 

      end; 

  end; 

  ============================================================================ 

指定Filter   Builder打開/保存過濾檔的默認路徑

  uses 

      …,   cxFilterControlDialog; 

  procedure   TForm.GridView1FilterControlDialogShow( 

      Sender:   TObject); 

  begin 

      TfmFilterControlDialog(Sender).OpenDialog.InitialDir   :=   ‘D:\’ 

  end;   

  ============================================================================ 

保存/恢復帶匯總行的佈局

  <TableView>.StoreToIniFile(’c:\Grid.ini’,   True,   [gsoUseSummary]);   

  <GridView>.RestoreFromIniFile(<inifilename>,True,False   {or   True,   optional},[gsoUseSummary]); 

  ============================================================================ 

取消過濾時移到第一行

  uses 

      cxCustomData; 

  procedure   TYour_Form.AViewDataControllerFilterChanged(Sender:   TObject); 

  var 

      Filter:   TcxDataFilterCriteria; 

  begin 

      with   Sender   as   TcxDataFilterCriteria   do 

          if   IsEmpty   then 

              DataController.FocusedRowIndex   :=   0; 

  end; 

  ============================================================================= 

排序後移到第一行

可以設置DataController.Options.FocusTopRowAfterSorting   :=   True，也可以使用如下的代碼：

  uses 

      cxCustomData; 

  procedure   TYour_Form.Your_ViewDataControllerSortingChanged(Sender:   TObject); 

  begin 

      TcxCustomDataController(Sender).FocusedRowIndex   :=   0; 

  end; 

  ============================================================================== 

判斷當前行是否第一行或最後一行

可以使用DataController的IsBOF,   IsEOF方法，或者：

  <AView>.Controller.Controller.FocusedRow.IsFirst 

  <AView>.Controller.Controller.FocusedRow.IsLast 

  ============================================================================== 

根據指定值查找記錄

  DataController提供了好幾個方法來得到指定值對應的RecordIndex 

對於Bound   View可以使用FindRecordIndexByKeyValue方法

  =============================================================================== 

編輯和顯示Blob欄位

該欄位的Properties設置為BlobEdit，並將BlobPaintStyle   屬性設為   bpsText 

  =============================================================================== 

得到可見行數

  <View>.ViewInfo.VisibleRecordCount 

  =============================================================================== 

保存後的行設置為當前行

  const 

      CM_SETFOCUSEDRECORD   =   WM_USER   +   1002; 

  type 

      TForm1   =   class(TForm) 

          cxGrid1DBTableView1:   TcxGridDBTableView; 

          cxGrid1Level1:   TcxGridLevel; 

          cxGrid1:   TcxGrid; 

          dxMemData1:   TdxMemData; 

          dxMemData1Field1:   TStringField; 

          dxMemData1Field2:   TIntegerField; 

          DataSource1:   TDataSource; 

          cxGrid1DBTableView1RecId:   TcxGridDBColumn; 

          cxGrid1DBTableView1Field1:   TcxGridDBColumn; 

          cxGrid1DBTableView1Field2:   TcxGridDBColumn; 

          Timer1:   TTimer; 

          CheckBox1:   TCheckBox; 

          procedure   Timer1Timer(Sender:   TObject); 

          procedure   dxMemData1AfterPost(DataSet:   TDataSet); 

          procedure   CheckBox1Click(Sender:   TObject); 

      private 

          procedure   CMSetFocusedRecord(var   Msg:   TMessage);   message   CM_SETFOCUSEDRECORD; 

      public 

          {   Public   declarations   } 

      end; 

  var 

      Form1:   TForm1; 

      FocusedIdx:   Integer; 

  implementation 

  {$R   *.dfm} 

  procedure   TForm1.Timer1Timer(Sender:   TObject); 

  begin 

      dxMemData1.AppendRecord(['',   IntToStr(Random(1000)),   Random(1000)]); 

  end; 

  procedure   TForm1.dxMemData1AfterPost(DataSet:   TDataSet); 

  begin 

      PostMessage(Handle,   CM_SETFOCUSEDRECORD,   Integer(cxGrid1DBTableView1),   MakeLParam(cxGrid1DBTableView1.Controller.FocusedRowIndex,   cxGrid1DBTableView1.Controller.TopRowIndex)); 

  end; 

  procedure   TForm1.CMSetFocusedRecord(var   Msg:   TMessage); 

  begin 

      TcxGridDBTableView(msg.WParam).Controller.FocusedRowIndex   :=   Msg.LParamLo; 

      TcxGridDBTableView(msg.WParam).Controller.TopRowIndex   :=   Msg.LParamHi; 

  end; 

  procedure   TForm1.CheckBox1Click(Sender:   TObject); 

  begin 

      Timer1.Enabled   :=   TCheckBox(Sender).Checked; 

  end; 

  end. 

  ================================================================================= 

刪除記錄並獲得焦點

  procedure   TForm1.BtnDeleteClick(Sender:   TObject); 

  var 

      FocusedRow,   TopRow:   Integer; 

      View:   TcxGridTableView; 

      DataController:   TcxGridDataController; 

  begin 

      View   :=   cxGrid1.FocusedView   as   TcxGridTableView; 

      DataController   :=   View.DataController; 

      //   Remember   the   top   row   (the   vertical   scrollbar   position) 

      TopRow   :=   View.Controller.TopRowIndex; 

      //   Remember   the   focused   row(!)   index 

      FocusedRow   :=   DataController.FocusedRowIndex; 

      DataController.DeleteFocused; 

      //   After   deletion   the   same   row   must   be   focused, 

      //   although   it   will   correspond   to   a   different   data   record 

      DataController.FocusedRowIndex   :=   FocusedRow; 

      //   Restore   the   top   row 

      View.Controller.TopRowIndex   :=   TopRow; 

  end; 

//====================================================================================

報表匯總的設置

資料庫中的財務表為：

      ID     收支類型 金額 其他屬性

其中收支類型只有兩種值：0   表示收入，1   表示支出 ；金額都是正數。

設置cxGrid的Footer   可以使得在顯示時，列表的下方出現匯總行：“金額”的和

同樣設置Default   For   Groups可以使得在用戶拖動表頭屬性實現分組時，顯示組內的匯總行：“金額”的和。

上面說的，用過cxGrid應該都會，下面就有這么一個問題

如果我想使匯總行的值變為如下的值應該怎樣實現：

收支類型為0的金額的和   -   收支類型為1的金額的和

實現Footer的功能好辦，因為它的值不會變，自己用迴圈寫一個就完了，但是Default   For   Groups的功能就不好說了，因為它的值是根據用戶拖動的屬性計算的，而且還有可能是多層分組，想不出來了，所有到這來問

是不是要設置什么屬性？或者cxGrid根本就沒這個功能，那該用什么方法解決？希望哪位幫我解決，謝謝了先！

給你一個例子,可能對你有幫助, 

    with   tvOrders.DataController.Summary   do 

      begin 

          BeginUpdate; 

          try 

              SummaryGroups.Clear; 

              //The   first   summary   group 

              with   SummaryGroups.Add   do 

              begin 

                  //Add   proposed   grouping   column(s) 

                  TcxGridTableSummaryGroupItemLink(Links.Add).Column   :=   tvOrdersCustomerID; 

                  //Add   summary   items 

                  with   SummaryItems.Add   as   TcxGridDBTableSummaryItem   do 

                  begin 

                      Column   :=   tvOrdersPaymentAmount; 

                      Kind   :=   skSum; 

                      Format   :=   ‘Amount   Paid:   $,0′; 

                  end; 

                  with   SummaryItems.Add   as   TcxGridDBTableSummaryItem   do 

                  begin 

                      Column   :=   tvOrdersPaymentAmount; 

                      Kind   :=   skCount; 

                      Format   :=   ‘Records:   0′; 

                  end; 

              end; 

              //The   second   summary   group 

              with   SummaryGroups.Add   do 

              begin 

                  //Add   proposed   grouping   column(s) 

                  TcxGridTableSummaryGroupItemLink(Links.Add).Column   :=   tvOrdersProductID; 

                  //Add   summary   items 

                  with   SummaryItems.Add   as   TcxGridDBTableSummaryItem   do 

                  begin 

                      Column   :=   tvOrdersQuantity; 

                      Kind   :=   skSum; 

                      Position   :=   spFooter; 

                      Format   :=   ‘TOTAL   =   0′; 

                  end; 

                  with   SummaryItems.Add   as   TcxGridDBTableSummaryItem   do 

                  begin 

                      Column   :=   tvOrdersPurchaseDate; 

                      Kind   :=   skMin; 

                      Position   :=   spFooter; 

                  end; 

              end; 

          finally 

              EndUpdate; 

          end; 

      end;   

2007-7-19 12:56:41    go on

訂單號 商品名 單價 數量 金額

001 aa 11.00 2 22.00

001 bb 2.00 2 4.00

001 cc 3.00 3 9.00

———————-合計 7 35.00

002 ee 11.00 2 22.00

002 bb 3.00 2 6.00

002 cc 3.00 3 9.00

———————-合計 7 37.00

總計14 72.00

每個單號分一個小結，能實現嗎？最後在底下實現總的合計

可以的，cxGrid的功能比你想像的還要強大。

1.你先放一個cxGrid，設置好View，設置View.DataController連接的DataSource

2.啟動DataSource連接的DataSet，雙擊cxGrid，點擊Retrieve Fields，取得所有的Column

3.設置View的OptionsView.Footer=True，OptionsView.GroupFooters=True，這是為了把分組小計和總計面板顯示出來

4.將“訂單號”欄位拖到cxGrid上方的分組面板(GroupbyBox)，將資料按“訂單號”分組。這時你會發現單身所有的資料都縮起來了，如果想使所有的資料都展開，可以設置View.DataController.Options.dcoGroupsAlwaysExpanded=True

5.設置分組小計：把View.DataController.Summary.DefaultGroupSummaryItems點開，新增一個Item，Column屬性在下拉裏選擇“數量”欄位，FieldName屬性為空，Format屬性可以設置數值的顯示格式，Kind屬性下拉skSum加總，Position屬性一定要選擇spFooter。

6.設置總計：把View.DataController.Summary.FooterSummaryItems點開，新增一個Item，Column屬性在下拉裏選擇“數量”欄位，FieldName屬性為空，Format屬性可以設置數值的顯示格式，Kind屬性下拉skSum加總，Position屬性一定要選擇spFooter。

大功告成，按F9看一下勝利果實吧。

再奉送一個技巧，在Form1再放一個TcxGridPopupMenu控制項，就在cxGrid控制項旁邊的那個，把TcxGridPopupMenu的Grid屬性設置成你的cxGrid。

然後運行程式，在運行狀態，點擊Grid上的所有地方，左鍵或右鍵，你都會有意外收穫。

ExpressQuantumGrid控制項實在是太複雜，太龐大，最好的瞭解它的方法就是查幫助。

cxGrid的多選我一般都是用這個方法：

//————— .Pas文件

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxEdit,

DB, cxDBData, DBTables, cxGridLevel, cxGridCustomTableView,

cxGridTableView, cxGridDBTableView, cxClasses, cxControls,

cxGridCustomView, cxGrid, cxLookAndFeelPainters, cxGridRows, cxContainer,

cxCheckBox, cxDataStorage;

type

TForm1 = class(TForm)

cxGrid1: TcxGrid;

cxGrid1DBTableView1: TcxGridDBTableView;

cxGrid1DBTableView1CustNo: TcxGridDBColumn;

cxGrid1DBTableView1Company: TcxGridDBColumn;

cxGrid1DBTableView1Addr1: TcxGridDBColumn;

cxGrid1DBTableView1City: TcxGridDBColumn;

cxGrid1DBTableView1State: TcxGridDBColumn;

cxGrid1DBTableView1Country: TcxGridDBColumn;

cxGrid1Level1: TcxGridLevel;

Table1: TTable;

DataSource1: TDataSource;

cxGrid1DBTableView1DBColumn1: TcxGridDBColumn;

procedure FormCreate(Sender: TObject);

procedure cxGrid1DBTableView1MouseDown(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

procedure cxGrid1DBTableView1DBColumn1CustomDrawCell(

Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;

AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure cxGrid1DBTableView1CustomDrawCell(

Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;

AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

private

AList: TList;

function CheckList(ARecord: TcxCustomGridRecord): Boolean;

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

AList := TList.Create;

end;

function TForm1.CheckList(ARecord: TcxCustomGridRecord): Boolean;

begin

Result := AList.IndexOf(Pointer(ARecord.RecordIndex)) <> – 1;

end;

procedure TForm1.cxGrid1DBTableView1MouseDown(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

var

AHitTest: TcxCustomGridHitTest;

AGridRecord: TcxCustomGridRecord;

begin

if Sender is TcxGridSite then

begin

with TcxGridSite(Sender).GridView do

AHitTest := ViewInfo.GetHitTest(X, Y);

if (AHitTest.HitTestCode = htCell) and (TcxGridDBColumn(TcxGridRecordCellHitTest (AhitTest). Item ). DataBinding . FieldName = ) then

AGridRecord := TcxGridRecordCellHitTest(AHitTest).GridRecord

else

Exit;

end;

if (AGridRecord <> nil) then

if CheckList(AGridRecord) then

AList.Remove(Pointer(AGridRecord.RecordIndex))

else

AList.Add(Pointer(AGridRecord.RecordIndex));

end;

procedure TForm1.cxGrid1DBTableView1DBColumn1CustomDrawCell(

Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;

AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

begin

if AViewInfo.EditViewInfo is TcxCustomCheckBoxViewInfo then

TcxCustomCheckBoxViewInfo(AViewInfo.EditViewInfo).State:= TcxCheckBoxState(CheckList(AViewInfo.GridRecord));

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

AList.Free;

end;

procedure TForm1.cxGrid1DBTableView1CustomDrawCell(

Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;

AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

begin

with AViewInfo do

if CheckList(GridRecord) then

ACanvas.Brush.Color := clHighlight

else

ACanvas.Brush.Color := clWindow;

ACanvas.Font.Color := clBlack;

end;

end.

//—————cxGrid的Dfm屬性

object cxGrid1: TcxGrid

Left = 0

Top = 0

Width = 688

Height = 446

Align = alClient

TabOrder = 0

object cxGrid1DBTableView1: TcxGridDBTableView

OnMouseDown = cxGrid1DBTableView1MouseDown

NavigatorButtons.ConfirmDelete = False

OnCustomDrawCell = cxGrid1DBTableView1CustomDrawCell

DataController.DataSource = DataSource1

DataController.DetailKeyFieldNames = CustNo

DataController.KeyFieldNames = CustNo

DataController.Summary.DefaultGroupSummaryItems = <>

DataController.Summary.FooterSummaryItems = <>

DataController.Summary.SummaryGroups = <>

OptionsSelection.MultiSelect = True

object cxGrid1DBTableView1CustNo: TcxGridDBColumn

DataBinding.FieldName = CustNo

end

object cxGrid1DBTableView1DBColumn1: TcxGridDBColumn

Caption = CheckColumn

PropertiesClassName = TcxCheckBoxProperties

Properties.DisplayUnchecked = False

OnCustomDrawCell = cxGrid1DBTableView1DBColumn1CustomDrawCell

Options.Editing = False

Options.Filtering = False

Options.IncSearch = False

Options.ShowEditButtons = isebNever

Options.Grouping = False

Options.Sorting = False

Width = 123

end

object cxGrid1DBTableView1Company: TcxGridDBColumn

DataBinding.FieldName = Company

end

object cxGrid1DBTableView1Addr1: TcxGridDBColumn

DataBinding.FieldName = Addr1

end

object cxGrid1DBTableView1City: TcxGridDBColumn

DataBinding.FieldName = City

end

object cxGrid1DBTableView1State: TcxGridDBColumn

DataBinding.FieldName = State

end

object cxGrid1DBTableView1Country: TcxGridDBColumn

DataBinding.FieldName = Country

end

end

object cxGrid1Level1: TcxGridLevel

GridView = cxGrid1DBTableView1

end

end

cyblueboy83 發表於 2005-12-9 11:30:45

學習

hanlin2004 發表於 2005-12-9 13:14:52

我一般是這樣取cxGrid選中的紀錄的值的：

function TFrameAccount.GetSelectedID:variant;

var

AccID: array of string;

i, n: Integer;

Index: Integer;

begin

n := cxGrid1DBTableView1.DataController.GetSelectedCount;

for i:=0 to n – 1 do

begin

Index := cxGrid1DBTableView1.DataController.GetSelectedRowIndex(i);

setlength(AccID, length(AccID) + 1);

AccID[High(AccID)] :=cxGrid1DBTableView1.DataController.GetRowValue(cxGrid1DBTableView1.DataController.GetRowInfo(Index),0); //這裏的0是Grid中列的索引，0表示第一個列綁定的欄位

end;

result := AccID;

end;

DevExpress cxGrid的應用

在cxGrid下建立view，取名myView

1. 允許選擇多條記錄(MultiSelect)：

   myView–OptionsSelection–MultiSelect 設成true

2. 取得選定行的值：

   myView->DataController->FocusedRowIndex 獲得選擇行的行號

   myView->DataController->Values[myView->DataController->FocusedRowIndex+1][0] 選擇的行的第一列的值

   myView->DataController->GetSelectedCount() 選擇多行的行數

   myView->DataController->GetSelectedRowIndex(行號n) 所選多行裏的第n行

3. VerticalGrid的單元值

控制項->Properties->Value 獲得單元的值，此值為variant類型，需要強制轉換成AnsiString

4. VerticalGrid裏的CheckGroup的使用

得到的值為: (;1,3,8)此為選擇了選項裏的第1、3、8項

5. VerticalGrid裏驗證

   TcxEditorRow的properties->EditorProperties選MaskEdit，然後再選下面的MaskEdit和MaskKind，可以限定輸入的東西

6. TcxPopupEdit控制項的應用，Form1加一個控制項cxPopupEdit1

屬性裏PopupControl指向你要彈出的表單Form2，Form2裏添加一個按鈕，說明文件裏添加

[Copy to clipboard] [ - ]

CODE:

private:        // User declarations

        AnsiString FEditValue;

        TcxPopupEdit *FPopupEdit;

。。。

public:

        __property AnsiString EditValue = {read=FEditValue,write=FEditValue};

        __property TcxPopupEdit *PopupEdit = {read=FPopupEdit, write=FPopupEdit};

在Form1的cxPopupEdit1控制項的事件裏添加下面的代碼

[Copy to clipboard] [ - ]

CODE:

//—————————————————————————

void __fastcall TForm1::cxPopupEdit1PropertiesInitPopup(TObject *Sender)

{

        Form2->PopupEdit = (TcxPopupEdit*)Sender;

}

//—————————————————————————

void __fastcall TForm1::cxPopupEdit1PropertiesCloseUp(TObject *Sender)

{

        cxPopupEdit1->EditValue = Form2->EditValue;

}

在Form1的按鈕事件裏可以加入

[Copy to clipboard] [ - ]

CODE:

        FEditValue = "嘻嘻哈哈";

        FAccepted = AAccepted;

        FPopupEdit->DroppedDown = false; 

//—————————————————————————

7. TcxGrid控制項去掉上面的"Drag a column header here to group by that column"欄

在控制項的view的OptionsView屬性裏有一個GroupByBox，設為false即可

呵呵，寫的有些亂，自己試著做吧

選擇了若干條記錄(MultiSelect)

選擇了若干條記錄(MultiSelect),現在要把這些選中的記錄從該資料庫複製到另一庫中，該如何做？

可以參考。我的程式是列印選擇的記錄 ，

你可以保存到其他表就好。

var i:integer;

begin

  if cxview1.DataController.Controller.SelectedRecordCount>0 then

    with cxview1.DataController.DataSource.DataSet do

    begin

      global.BQ_ppp(』,3); //只進行資料清除

      for i:=0 to cxview1.DataController.Controller.SelectedRecordCount-1 do

      begin

        GotoBookmark(Pointer(cxview1.DataController.GetSelectedBookmark(i)));

        if Pos(’計’,fields[0].AsString)=0 then

        begin

          if CheckBox2.Checked then

            global.BQ_ppp(fields[0].AsString,0)//立即進行標籤列印，不把資料加到臨時資料庫。

          else

            global.BQ_ppp(fields[0].AsString,1); //加入資料到臨時資料庫。

        end;

      end;

      if CheckBox2.Checked=false then //列印中的資料只是包含一種標籤。 不是多種標籤列印，集中列印臨時資料庫中的資料。

        global.BQ_ppp(』,2); //只進行標籤列印

      Log_save(’標籤補打’,'標籤列印’);

    end;

end;

來自：lihoulong, 時間：2006-7-8 23:59:31, ID：3500034

function CopyRecord(var recData: TArrayVariant): boolean;

var

  i: integer;

begin

  with FDataset do

  begin

    SetLength(recData, Fields.Count);

    for i := 0 to Fields.Count – 1 do

      recData[i] := Fields[i].Value;

  end;

  Result := true;

end;

function TwpQDTable.PasteRecord(

  const RecData: array of Variant): boolean;

var

  fcnt,

    i: integer;

begin

  with FDataset do

  try

    fcnt :=  Length(RecData) – 1;

    for i := 0 to fcnt do

    begin

      if FDataset.State in [dsBrowse] then

        Edit;

      Fields[i].Value := RecData[i];

    end;

    Result := true;

  except

    Result := false;

  end;

end;

定義一個記錄陣列

for i := 0 to cxgrid.SelectedCount-1 do  begin

依據關鍵字定位資料集,再執行CopyRecord

end;

在粘貼的地方用pasteRecord

cxGrid的使用方法

1.  去掉cxgrid中台頭的box ,在tableview1的ptionsview的groupbybox=false;

2.  在GRID footer 中加入sum(列), tableview1的optionsviewàfooter=ture

然後在cxGRid1的customize..中的summary 的footer.add需要合計的列kind= skSum

3.  去掉cxgrid 中的過濾下拉箭頭 選擇tableview1.optionscustomize.columnfiltering=fasle;

4.   cxGrid1DBTableView1 的 OptionView中屬性GroupFooters設為gfAlwaysVisible並設置需要求和的列,在summary.default for Groups 下add加入需要合計的欄位,column下顯示fieldname 為統計欄位,format為格式,kind為統計方法,position 為位子 spfooter 在分組的下面,spgroup 在分組的上面

或用cxGridPopupMenu1,在運行時可對任意數字類型列求和,方法是只需設置cxGridPopupMenu1的屬性Grid為cxGrid1DBTableView1的cxGrid,

即可實現您所需功能

5.  DEV Express裏的cxGrid默認的數值格式帶￥，怎么去掉啊！

6.  雙擊Cxgrid，選擇colmnum改變類型 options.properties.Memo

7.  在displayformat中進行設置

來源於大富翁論壇

使用cxGrid有一些時間了，在這裏總結一下使用cxGrid的一些方法，希望給剛開始接觸cxGrid的人一些幫助。

1.簡單介紹：cxGrid右下方的cxGrid1Level1是表示Grid表的層，cxGrid可以有多層，這相當於集合了PageControl的

功能,而cxGrid1Level1右邊的cxGrid1DBTableView1相當於DBGrid一樣。右擊cxGrid1可以添加cxGrid1Level2，右擊

cxGrid1Level2，可以選擇Create View , Add level 或者Delete Level。Add level可以增加子Level，Create View

裏面可以選擇很多不同總類的View。其中

  1)DB Table可以和資料庫連接的View，更一般的DBGrid類似，它比DBGrid多了比如滑鼠中鍵可以用，可以統計，

查詢，等等功能；

  2)DB Banded Table 則可以實現比如：

                    ———————————

                    |     說明1     |     說明2     |

                    ———————————

                    | 欄位1 | 欄位2 | 欄位3 | 欄位4 |

等類似的功能；

  3)DB Card View 則提供了卡片方式的顯示資料的功能，這個用在比如人事檔案管理比較不錯；

  4)其他不一一贅述。

2.一些使用方法：

  1)有圖片和MEMO的例子：

拖入一個cxGrid1，Table1，DataSource1。 Table1的DatabaseName設為DBDEMOS，TableName設為biolife.db，

   Active設為True;DataSource1的DataSet設為Table1；cxGrid1DBTableView1的DataController中的DataSource 

設為DataSource1;右擊cxGrid1DBTableView1選擇Create All Columns；雙擊cxGrid1，在彈出的窗口中找到

  cxGrid1DBTableView1Notes和cxGrid1DBTableView1Graphic，將它們的Properties屬性設為BlobEdit；運行看看

結果。再將cxGrid1DBTableView1Graphic的Properties屬性設為Image，再將Properties下的Stretch設為True，

將cxGrid1DBTableView1->optionsview->CellAutoHeight 設為True，看看結果。

  2)如何讓“Drag a column here to group by that column”不顯示

解決：點擊cxGrid1上的cxGrid1DBTableView1

在cxGrid1DBTableView1->optionsview->groupbybox:=false即可

注：OptionsView裏面有很多屬性可能經常要用，比如：ColumnAutoWith,Navigator等等，慢慢琢磨吧:)

  3)GroupPanel上面的英文[Drag a column header to group by that column]怎么可以改成中文？

解決：最簡單的方法是 TcxGridTableView.OnCustomDrawPartBackground ，也可用 OnCustomDrawGroupCell：

    procedure TForm1.cxGrid1DBTableView1CustomDrawPartBackground(

               Sender: TcxGridTableView; ACanvas: TcxCanvas;

              AViewInfo: TcxCustomGridCellViewInfo; var ADone: Boolean);

    begin

      AViewInfo.Text:=’動態設置 GroupBox 的顯示內容’;

      ACanvas.FillRect(AViewInfo.Bounds);

    end;

  4)如何實現如下功能：

           +財務部

           +原材料倉庫

           +成品庫

           +衝壓車間

           +軟體發展部

這個是部門的名稱,點擊加號就可以將本部門的人員情況顯示出來。

解決：其實這是一個主從表關係，1：填好主表的keyfieldnames

                                  2：填好從表的keyfieldnames

                                  3：填好從表的 detaikeyfieldNames與masterkeyfieldnames

                                  4: 從表的資料源一定要按與主表關聯的欄位排序

注：其他地方設置了主從表結構那樣就顯示不出來，比如設置了從表的Table或者Query的mastersource和

   asterfield就會不能顯示資料！如果是兩個cxGrid的主從關係，這樣設置就很OK了。

5)統計功能

解決：cxGrid1DBTableView1->optionsview->Footer 設為True

         cxGrid1DBTableView1->DataController->Summary設置FooterSummaryItems即可

6)類似PageControl顯示

解決：增加一個Level,將cxGrid1->RootLevelOptions->DetailTabsPosition設為dtpTop，然後相應的設置cxGrid1Level1,和cxGrid1Level2的Caption值。

未完待續。。。。。。。。。

7)如何設定左邊幾列，不能滾動?

解決：使用DB Banded Table才可以實現，

在cxGrid1DBBandedTableView裏建立Band0,Band1

         Band0的Fixed=tfLeft

         Band1的Fixed=tfnone

設置要鎖定的欄位的BandIndex=0,其他為1，就OK了。

8)怎樣實現如EXCEL一樣的，當前格=G14+G15+G16 這樣的功能

解決：舉一個簡單的例子：label1.Caption := cxGrid1DBTableView1.DataController.Values[2,

3]+cxGrid1DBTableView2.DataController.Values[1, 1]+cxGrid1DBTableView3.DataController.Values[1, 1];

所以不同cxGrid1DBTableView中的資料都可以給當前格，這樣就做到了EXCEL中的當前格=G14+G15+G16 類似的功能。

9)滑鼠右擊cxGrid1DBBandedTableView1功能表裏的Edit Layout什么用，怎么使用？

解決：可以拖動欄位，並列的可以拖成有層次感（一層層）， 拖動時會顯示箭頭的，就是說可以拖一個欄位放

到最上面，就可以使記錄按此欄位進行分組。點擊其中一個欄位，上面還會出現一個上升或者下降的小三角形，這個

小三角形的作用是在運行階段，資料就會按照這個欄位上升或者下降排序。

還有一個Set as Default的作用是保持當前TableView的參數，下此產生新的TableView的時候就會可以和上次保持的參數一樣。這個還沒有做過試驗。

10）怎樣將cxGrid裏的數據導入到EXCEL，HTML，XML和TEXT

解決：這個問題在用了cxGrid以後變得異常簡單，

uses

cxExportGrid4Link;

procedure TForm1.Button1Click(Sender: TObject);

begin

ExportGrid4ToEXCEL(’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;

11)如何使滿足條件的資料顯示不同的顏色？

解決：

var

AYellowStyle: TcxStyle;

procedure TForm1.FormCreate(Sender: TObject);

begin

//行顏色

AYellowStyle := TcxStyle.Create(Self);

AYellowStyle.Color := $0080FFFF;

AYellowStyle.TextColor := clMaroon;

end;

procedure TForm1.cxGrid1DBBandedTableView1StylesGetContentStyle(

Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;

AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);

begin

if ARecord.Values[cxGrid1DBBandedTableView1Lengthcm.Index] < 81 then

  AStyle := AYellowStyle;

end;

這裏cxGrid1DBBandedTableView1Lengthcm.Index小於81時就顯示黃色

12）如何從外邊的TXT文件導入到cxGrid？

解決：    procedure CustomizeColumns;

          procedure LoadData;

procedure TForm1.CustomizeColumns;

const

cDistance = 1;

cRadius = 5;

cPeriod = 4;

cPstring = 0;

var

I: Integer;

begin

DecimalSeparator := ‘.’;

with cxGrid1TableView2 do

for I := 0 to ColumnCount – 1 do

   if I in [cDistance, cRadius] then

     Columns[I].DataBinding.ValueTypeClass := TcxIntegerValueType//1，5列為Integer

   else

     if I in [cPstring,cPeriod] then

     Columns[I].DataBinding.ValueTypeClass := TcxStringValueType//0，4列為String

     else

      Columns[I].DataBinding.ValueTypeClass := TcxFloatValueType;//其他為Float

end;

procedure TForm1.LoadData;

const

AFileName = ‘資產負債表.txt’;

AHeaderLineCount = 2;

var

ARecords, AValues: TStringList;

I: Integer;

procedure InitRecord(const Str: string);

var

   J: Integer;

   V: Variant;

begin

   AValues.CommaText := Str;

   for J := 0 to AValues.Count – 1 do

    if AValues.Strings[J] <> ‘-’ then

    begin

     V := AValues.Strings[J];

     if not VarIsNull(V) then

       cxGrid1TableView2.DataController.Values[I, J] := V;

    end;

end;

begin

if not FileExists(AFileName) then

   raise Exception.Create(’Data file not found’);

ARecords := TStringList.Create;

AValues := TStringList.Create;

with ARecords do

try

   LoadFromFile(AFileName);

   cxGrid1TableView2.BeginUpdate;

   cxGrid1TableView2.DataController.RecordCount := Count – AHeaderLineCount;

   for I := 0 to Count – (AHeaderLineCount + 1) do

     InitRecord(Strings[I + AHeaderLineCount]);

finally

   cxGrid1TableView2.EndUpdate;

   ARecords.Free;

   AValues.Free;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

CustomizeColumns;

LoadData_Zcfz;

end;

13）如何改變列的顏色？

var

AFirstColumnStyle: TcxStyle;

procedure TForm1.FormCreate(Sender: TObject);

begin

//列顏色

AFirstColumnStyle := TcxStyle.Create(Self);

AFirstColumnStyle.Color := clAqua;

AFirstColumnStyle.TextColor := clBlue;

cxGrid1TableView1.Columns[1].Styles.Content := AFirstColumnStyle;

end;

14）Set as default的用法？

解決：Set as default的用法是為了解決設置參數的方便而做的，比如：

連好資料庫以後，更改cxGrid1DBBandedTableView1->OptionsCustomize->ColumnFiltering 設為False。（這個設置可以將欄位名的下拉單給去掉）更改cxGrid1DBBandedTableView1->OptionsView->Navigator 設置為True。然後右擊cxGrid1DBBandedTableView1，在彈出的菜單欄裏麵點擊Set as default。

  OK，下次你再產生一個新的cxGrid1DBBandedTableView1時這些設置和剛才的一樣了。如果需要設置的參數很多的時候，這個Set as default很有用！

15）怎樣使滑鼠移動時，相應的單元裏的文字變色？

解決：

var

FTrackItem: TcxCustomGridTableItem;

FTrackRec: TcxCustomGridRecord;

procedure TForm1.cxGrid1DBTableView1CustomDrawCell(

Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;

AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

begin

if (AViewInfo.GridRecord = FTrackRec) and (AViewInfo.Item = FTrackItem) then

begin

   ACanvas.Font.Color := clred;   //紅色字體

   ACanvas.Font.Style := [fsUnderline];//帶下劃線

end;

end;

procedure TForm1.cxGrid1DBTableView1MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

var

AHitTest: TcxCustomGridHitTest;

ATrackItem: TcxCustomGridTableItem;

ATrackRec: TcxCustomGridRecord;

begin

ATrackItem := FTrackItem;

ATrackRec := FTrackRec;

AHitTest := (Sender as TcxGridSite).GridView.ViewInfo.GetHitTest(X, Y);

if AHitTest is TcxGridRecordCellHitTest then

begin

   FTrackItem := TcxGridRecordCellHitTest(AHitTest).Item;

   FTrackRec := TcxGridRecordCellHitTest(AHitTest).GridRecord;

end

else

begin

   FTrackItem := nil;

   FTrackRec := nil;

end;

if (ATrackItem <> FTrackItem) or (ATrackRec <> FTrackRec) then

begin

   // Invalidate old cell

   if ATrackRec <> nil then

     ATrackRec.Invalidate(ATrackItem);

   // Invalidate new cell

   if FTrackRec <> nil then

     FTrackRec.Invalidate(FTrackItem);

end;

end;

16)ExpressQuantumGrid 3.2.2中的dxdbgrid和4.2版本中的cxgrid有什么區別?

有很大的區別，基本上相當於是兩個控制項一樣。

cxgrid是在dxdbgrid基礎上完全重寫的，所以cxgrid不支持dxdbgrid

所以cxgrid裏面特意提供了一個將dxdbgrid導入到cxgrid的功能。

17）怎樣設計多表頭的cxGrid？

解決：cxGrid可以解決如下的表頭：

                   ———————————

                   |     說明1     |     說明2     |

                   ———————————

                   | 欄位1 | 欄位2 | 欄位3 | 欄位4 |

                   |      欄位5    |     欄位6     |

                   |      欄位7    | 欄位8 | 欄位9 |

實現這個很簡單，你可以直接在上面拖動欄位名，拖動時會顯示箭頭的，放入你想顯示的位置就OK了。或者在滑鼠右擊cxGrid1DBBandedTableView1功能表裏的Edit Layout裏也可以拖放。

但是cxGrid不能實現如下的多表頭形式：

                   ———————————

                   |     說明1     |     說明2     |

                   ———————————

                   | 說明3 | 說明4 | 說明5 | 說明6 |

                   |      欄位1    |     欄位2     |

                   |      欄位3    | 欄位4 | 欄位5 |

不知道有誰能實現這樣的多表頭？

18）在主從表結構時，當點開“+”時怎樣將焦點聚在相應主表的記錄上？

解決：

var

HitTest: TcxCustomGridHitTest;

procedure TColumnsShareDemoMainForm.tvProjectsMouseDown(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

// Note that the Sender parameter is a Site

HitTest := (Sender as TcxGridSite).GridView.ViewInfo.GetHitTest(X, Y);

// The point belongs to the [+]/[-] button area

if HitTest is TcxGridExpandButtonHitTest then

   // Move focus to the record

   TcxGridExpandButtonHitTest(HitTest).GridRecord.Focused := True;

end;

19)CXGrid4如何展開全部節點

解決：GridDBTableView1.DataController.Groups.FullExpand;

2003-12-12 17:07:30    問題20

20）cxGrid如何動態創建Items的Editor的項?

   cxGrid的列有一個屬性,它的編輯框可以指定combobox,spinedit等.在設計時,可以為

   combobox的items添加項目.請問是否可以動態創建?(run-time時由程式加入)

解決：

var

  A:TDataSource:

  B:TcxlookupcomboboxProperties;

      begin

  A:=TDataSource.create(self);

  B:=tcxlookupcomboboxproperties.create(self);

  A.Dataset:=Dic_ry_xb;//此處指定數據源。

  b.listdource:=a;//此處指明欄位的listsource屬性。

  b.keyfieldnames:=’a';    //此處指明欄位的關鍵字段

  b.listfieldnames:=’b';   //此處指明欄位的返回值。

  b.listcolumns.items[0].caption:=’x;  //此處默認是會建立一個欄位，但是顯示的表頭是name，所以此處讓它顯示為自己想要的中午顯示。

        cxGrid1DBTableView1c1_sex_code.Properties:=b;  //此處指明是那個欄位。

end;  //這個是初始化的代碼，

2004-1-7 14:05:14    問題21

21）ExpressQuantumGrid4.5的漢化包

在這裏可以下載ExpressQuantumGrid4.5的漢化包，將檔直接覆蓋到原始檔案就可以了。

如何在dxMemData1或cxGrid1中動態添加欄位？

Procedure TcxGridDBTableView.CreateDefaultColumn;      //建立默認的列  //Add By Pgt

Var

  CxColumn:TcxGridDBColumn;

  FootItem:TcxDataSummaryItem;

  i:Integer;

  OldAutoWidth:Boolean;

Begin

  If Assigned(DataController.DataSource) And

     Assigned(DataController.DataSource.DataSet) And

     DataController.DataSource.DataSet.Active Then Begin

     With DataController.DataSource.DataSet Do Begin

       While ColumnCount>0 Do

         Columns[0].Free ;

       For i:=0 to FieldCount -1 Do Begin

         If (Fields[i].DataType<>ftAutoInc) And (UpperCase(Fields[i].FullName)<>’ID’) Then Begin

           CxColumn:=Self.CreateColumn ;

           CxColumn.DataBinding.FieldName := Fields[i].FullName ;

           CxColumn.HeaderAlignmentHorz := taCenter ;

           CxColumn.HeaderAlignmentVert := VaCenter ;

           If CxColumn.Width >150 Then CxColumn.Width := 150 ;

           If i=0 Then Begin

             FootItem := DataController.Summary.FooterSummaryItems.Add ;

             FootItem.ItemLink :=CxColumn ;

             FootItem.Format := ‘共0條’;

             FootItem.Kind := skCount ;

           End Else Begin

             If (Fields[i].DataType = ftFloat) And (Pos(’價’,Fields[i].FullName)=0) Then Begin

               FootItem := DataController.Summary.FooterSummaryItems.Add ;

               FootItem.ItemLink :=CxColumn ;

               If Pos(’數量’,Fields[i].FullName)<>0 Then

                 FootItem.Format := ‘,0;-,0′

               Else Begin

                 FootItem.Format := ‘,0.00;-,0.00′ ; // ‘￥,0.00;-￥,0.00′;

                 If CxColumn.Width<80 Then CxColumn.Width := 80 ;

               End;

               FootItem.DisplayName := Fields[i].FullName ;

               FootItem.Kind := skSum ;

             End;

           End;

         End;

       End;

       OldAutoWidth := Self.OptionsView.ColumnAutoWidth ;

       Self.OptionsView.ColumnAutoWidth := True ;

       Self.OptionsView.ColumnAutoWidth := OldAutoWidth ;

     End;

  End;

End;

OpenDialog 元件是讓使用者選檔案,那選目錄要使用什麼方式呢?

USE QDialogs

procedure TForm1.cxButton1Click(Sender: TObject); var   Dir: WideString; begin   if SelectDirectory(’請選擇目錄’, 』, Dir) then   begin     ShowMessage(Dir);   end; end;

SelectDirectory(’請選擇目錄’, 』, Dir)

第一個參數為提示文字,第二個參數可設定預設目錄,第三個參數為使用者選取目錄後的目錄路徑

可對SelectDirectory按F1查詢使用方式,還有VCL的用法可用,代的參數又不一樣,有興趣的可研究一下。

parameters.parambyname(’tmpprice’).datatype：=ftFloat;   <==寫入資料前先將欄位設定成 Float 型態即可解決此問題。

參考:http://jzinfo.javaeye.com/blog/432853

參考:http://delphi.ktop.com.tw/board.php?cid=30&fid=70&tid=37667

procedure TForm1.Button1Click(Sender: TObject); Var     FileHandle : Integer;     Str : String; begin     FileHandle := FileOpen(’D:\prog\1.txt’, fmOpenReadWrite);     if FileHandle = -1 then       ShowMessage(’開啟檔案失敗’) [...]]]> Delphi下使用function FileSetDate(Handle: Integer; Age: Integer): Integer; overload;函式修改檔案的”修改日期”:

參考:http://delphi.ktop.com.tw/board.php?cid=30&fid=70&tid=37667

procedure TForm1.Button1Click(Sender: TObject);
Var
    FileHandle : Integer;
    Str : String;
begin
    FileHandle := FileOpen(’D:\prog\1.txt’, fmOpenReadWrite);
    if FileHandle = -1 then
      ShowMessage(’開啟檔案失敗’)
    else
    begin
      Str := ‘檔案原來日期時間: ‘+ DateTimeToStr(FileDateToDateTime(FileGetDate(FileHandle)))+#10#13;
      if FileSetDate(FileHandle, FileAge(’D:\prog\AMS.exe’)) = 0 then
        Str := Str+DateTimeToStr(FileDateToDateTime(FileAge(’D:\prog\AMS.exe’)))
      else
        Str := Str+’新的日期時間設定失敗’;
      ShowMessage(Str);
    end;
    FileClose(FileHandle);
end;

ChangeFileExt(FileName);     //去除副檔名

PageSetup.PrintArea := ‘A:R’;  //設定列印範圍

建議把它移到資料轉完後，最後在給上這個參數就好了。

討論區：http://delphi.ktop.com.tw/board.php?cid=30&fid=76&tid=89562

procedure TForm1.Button1Click(Sender: TObject); var   S:UTF8String;   F:TextFile;   TntEdit1: TStringList; begin   TntEdit1 := TStringList.Create;   TntEdit1.Add(’我是天才我是天才我是天才’);   S:=UTF8Encode(TntEdit1.Text); [...]]]> 上網找到下面的程式碼，修了一下測試，真的可以耶!!!!最近的程式剛好有UTF8編碼的困擾，使用這方式轉是方便多了，不過還要測試會不會有問題。

討論區：http://delphi.ktop.com.tw/board.php?cid=30&fid=76&tid=89562

procedure TForm1.Button1Click(Sender: TObject);
var
  S:UTF8String;
  F:TextFile;
  TntEdit1: TStringList;
begin
  TntEdit1 := TStringList.Create;
  TntEdit1.Add(’我是天才我是天才我是天才’);
  S:=UTF8Encode(TntEdit1.Text);
  AssignFile(F, ‘C:\test.txt’);
  Rewrite(F);
  Write(F,#$EF+#$BB+#$BF); //UTF8??
  Write(F,S);
  CloseFile(F);
end;

結果去開C:\test.txt 來看，真的直接就是UTF8編碼，在XP下看中文也正常，沒有亂碼。

  Write(F,#$EF+#$BB+#$BF); 中 #$EF+#$BB+#$BF 的意義

=======================================================================

http://60.248.128.85/bbs/dv_rss.asp?s=xhtml&boardid=63&id=491&page=3

這是一篇程式員寫給程式員的趣味讀物。所謂趣味是指可以比較輕鬆地瞭解一些原來不清楚的概念，增進知識，類似於打RPG遊戲的升級。整理這篇文章的動機是兩個問題：

問題一：

使用Windows記事本的「另存為」，可以在GBK、Unicode、Unicode big endian和UTF-8這幾種編碼方式間相互轉換。同樣是txt文件，Windows是怎樣辨識編碼方式的呢？

我很早前就發現Unicode、Unicode big endian和UTF-8編碼的txt文件的開頭會多出幾個字元，分別是FF、FE（Unicode）,FE、FF（Unicode big endian）,EF、BB、BF（UTF-8）。但這些標記是基於什麼標準呢？

問題二：

最近在網上看到一個ConvertUTF.c，達到了UTF-32、UTF-16和UTF-8這三種編碼方式的相互轉換。對於Unicode(UCS2)、GBK、UTF-8這些編碼方式，我原來就瞭解。但這個程式讓我有些糊塗，想不起來UTF-16和UCS2有什麼關係。

查了查相關資料，總算將這些問題弄清楚了，順帶也瞭解了一些Unicode的細節。寫成一篇文章，送給有過類似疑問的朋友。本文在寫作時盡量做到通俗易懂，但要求讀者知道什麼是字元，什麼是十六進制。

0、big endian和little endian

big endian和little endian是CPU處理多字元數的不同方式。例如「漢」字的Unicode編碼是6C49。那麼寫到文件裡時，究竟是將6C寫在前面，還是將49寫在前面？如果將6C寫在前面，就是big endian。還是將49寫在前面，就是little endian。

「endian」這個詞出自《格列佛遊記》。小人國的內戰就源於吃雞蛋時是究竟從大頭(Big-Endian)敲開還是從小頭(Little-Endian)敲開，由此曾發生過六次叛亂，其中一個皇帝送了命，另一個丟了王位。

我們一般將endian翻譯成「字元序」，將big endian和little endian稱作「大尾」和「小尾」。

1、字元編碼、內碼，順帶介紹中文字編碼

字元必須編碼後才能被電腦處理。電腦使用的缺省編碼方式就是電腦的內碼。早期的電腦使用7位的ASCII編碼，為了處理中文字，程式員設計了用於簡體中文的big5和用於繁體中文的big5。

big5(1980年)一共收錄了7445個字元，包括6763個中文字和682個其它符號。中文字區的內碼範圍高字元從B0-F7，低字元從A1-FE，佔用的碼位是72*94=6768。其中有5個空位是D7FA-D7FE。

big5支援的中文字太少。1995年的中文字擴展規範GBK1.0收錄了21886個符號，它分為中文字區和圖形符號區。中文字區包括21003個字元。2000年的GB18030是取代GBK1.0的正式國家標準。該標準收錄了27484個中文字，同時還收錄了藏文、蒙文、維吾爾文等主要的少數民族文字。現在的PC平台必須支援GB18030，對嵌入式產品暫不作要求。所以手機、MP3一般只支援big5。

從ASCII、big5、GBK到GB18030，這些編碼方法是向下兼容的，即同一個字元在這些方案中總是有相同的編碼，後面的標準支援更多的字元。在這些編碼中，英文和中文可以統一地處理。區分中文編碼的方法是高字元的最高位不為0。按照程式員的稱呼，big5、GBK到GB18030都屬於雙字元字元集 (DBCS)。

有的中文Windows的缺省內碼還是GBK，可以透過GB18030升級包升級到GB18030。不過GB18030相對GBK增加的字元，普通人是很難用到的，通常我們還是用GBK指代中文Windows內碼。

這裡還有一些細節：

• big5的原文還是區位碼，從區位碼到內碼，需要在高字元和低字元上分別加上A0。

• 在DBCS中，GB內碼的存儲格式始終是big endian，即高位在前。

• big5的兩個字元的最高位都是1。但符合這個條件的碼位只有128*128=16384個。所以GBK和GB18030的低字元最高位都可能不是1。不過這不影響DBCS字元流的解析：在讀取DBCS字元流時，只要遇到高位為1的字元，就可以將下兩個字元作為一個雙字元編碼，而不用管低字元的高位是什麼。

2、Unicode、UCS和UTF

前面提到從ASCII、big5、GBK到GB18030的編碼方法是向下兼容的。而Unicode只與ASCII兼容（更準確地說，是與ISO-8859-1兼容），與GB碼不兼容。例如「漢」字的Unicode編碼是6C49，而GB碼是BABA。

Unicode也是一種字元編碼方法，不過它是由國際組織設計，可以容納全世界所有語言文字的編碼方案。Unicode的學名是"Universal Multiple-Octet Coded Character Set"，簡稱為UCS。UCS可以看作是"Unicode Character Set"的縮寫。

根據維基百科全書(http://zh.wikipedia.org/wiki/)的記載：歷史上存在兩個試圖獨立設計Unicode的組織，即國際標準化組織（ISO）和一個軟體製造商的協會（unicode.org）。ISO開發了ISO 10646項目，Unicode協會開發了Unicode項目。

在1991年前後，雙方都認識到世界不需要兩個不兼容的字元集。於是它們開始合併雙方的工作成果，並為創立一個單一編碼表而協同工作。從Unicode2.0開始，Unicode項目採用了與ISO 10646-1相同的字庫和字碼。

目前兩個項目仍都存在，並獨立地公佈各自的標準。Unicode協會現在的最新版本是2005年的Unicode 4.1.0。ISO的最新標準是10646-3:2003。

UCS規定了怎麼用多個字元表示各種文字。怎樣傳輸這些編碼，是由UTF(UCS Transformation Format)規範規定的，常見的UTF規範包括UTF-8、UTF-7、UTF-16。

IETF的RFC2781和RFC3629以RFC的一貫風格，清晰、明快又不失嚴謹地描述了UTF-16和UTF-8的編碼方法。我總是記不得IETF是Internet Engineering Task Force的縮寫。但IETF負責維護的RFC是Internet上一切規範的基礎。

3、UCS-2、UCS-4、BMP

UCS有兩種格式：UCS-2和UCS-4。顧名思義，UCS-2就是用兩個字元編碼，UCS-4就是用4個字元（實際上只用了31位，最高位必須為0）編碼。下面讓我們做一些簡單的數學遊戲：

UCS-2有2^16=65536個碼位，UCS-4有2^31=2147483648個碼位。

UCS-4根據最高位為0的最高字元分成2^7=128個group。每個group再根據次高字元分為256個plane。每個plane根據第3個字元分為256行 (rows)，每行包含256個cells。當然同一行的cells只是最後一個字元不同，其餘都相同。

group 0的plane 0被稱作Basic Multilingual Plane, 即BMP。或者說UCS-4中，高兩個字元為0的碼位被稱作BMP。

將UCS-4的BMP去掉前面的兩個零字元就得到了UCS-2。在UCS-2的兩個字元前加上兩個零字元，就得到了UCS-4的BMP。而目前的UCS-4規範中尚未任何字元被分配在BMP之外。

4、UTF編碼

UTF-8就是以8位為單元對UCS進行編碼。從UCS-2到UTF-8的編碼方式如下：

UCS-2編碼(16進制)
UTF-8 字元流(二進制)

0000 – 007F
0xxxxxxx

0080 – 07FF
110xxxxx 10xxxxxx

0800 – FFFF
1110xxxx 10xxxxxx 10xxxxxx

例如「漢」字的Unicode編碼是6C49。6C49在0800-FFFF之間，所以肯定要用3字元模板了：1110xxxx 10xxxxxx 10xxxxxx。將6C49寫成二進制是：0110 110001 001001， 用這個比特流依次代替模板中的x，得到：11100110 10110001 10001001，即E6 B1 89。

讀者可以用記事本測試一下我們的編碼是否正確。

UTF-16以16位為單元對UCS進行編碼。對於小於0×10000的UCS碼，UTF-16編碼就等於UCS碼對應的16位無符號整數。對於不小於0×10000的UCS碼，定義了一個算法。不過由於實際使用的UCS2，或者UCS4的BMP必然小於0×10000，所以就目前而言，可以認為UTF-16和UCS-2基本相同。但UCS-2只是一個編碼方案，UTF-16卻要用於實際的傳輸，所以就不得不考慮字元序的問題。

5、UTF的字元序和BOM

UTF-8以字元為編碼單元，沒有字元序的問題。UTF-16以兩個字元為編碼單元，在解釋一個UTF-16文本前，首先要弄清楚每個編碼單元的字元序。例如收到一個「奎」的Unicode編碼是594E，「乙」的Unicode編碼是4E59。如果我們收到UTF-16字元流「594E」，那麼這是「奎」還是「乙」？

Unicode規範中推薦的標記字元順序的方法是BOM。BOM不是「Bill Of Material」的BOM表，而是Byte Order Mark。BOM是一個有點小聰明的想法：

在UCS編碼中有一個叫做"ZERO WIDTH NO-BREAK SPACE"的字元，它的編碼是FEFF。而FFFE在UCS中是不存在的字元，所以不應該出現在實際傳輸中。UCS規範建議我們在傳輸字元流前，先傳輸字元"ZERO WIDTH NO-BREAK SPACE"。

這樣如果接收者收到FEFF，就表明這個字元流是Big-Endian的；如果收到FFFE，就表明這個字元流是Little-Endian的。因此字元"ZERO WIDTH NO-BREAK SPACE"又被稱作BOM。

UTF-8不需要BOM來表明字元順序，但可以用BOM來表明編碼方式。字元"ZERO WIDTH NO-BREAK SPACE"的UTF-8編碼是EF BB BF（讀者可以用我們前面介紹的編碼方法驗證一下）。所以如果接收者收到以EF BB BF開頭的字元流，就知道這是UTF-8編碼了。

Windows就是使用BOM來標記文本文件的編碼方式的。

6、進一步的參考資料

本文主要參考的資料是 "Short overview of ISO-IEC 10646 and Unicode" (http://www.nada.kth.se/i18n/ucs/unicode-iso10646-oview.html)。

我還找了兩篇看上去不錯的資料，不過因為我開始的疑問都發現了答案，所以就沒有看：

1. "Understanding Unicode A general introduction to the Unicode Standard" (http://scripts.sil.org/cms/scripts/page.php?site_id=nrsi&item_id=IWS-Chapter04a)
2. "Character set encoding basics Understanding character set encodings and legacy encodings" (http://scripts.sil.org/cms/scripts/page.php?site_id=nrsi&item_id=IWS-Chapter03)

我寫過UTF-8、UCS-2、GBK相互轉換的軟體包，包括使用Windows API和不使用Windows API的版本。以後有時間的話，我會整理一下放到我的個人首頁上(http://fmddlmyy.home4u.china.com)。

我是想清楚所有問題後才開始寫這篇文章的，原以為一會兒就能寫好。沒想到考慮措辭和查證細節花費了很長時間，竟然從下午1:30寫到9:00。希望有讀者能從中受益。

=======================================================================