敗家 WP7 Phone

要開始寫程式啦...

Delphi TDictionary 用法

var
aDic : TDictionary;
aEnum : TDictionary.TPairEnumerator;
begin
aEnum := aDic.GetEnumerator;
while (aEnum.MoveNext) do
begin
  Memo1.Items.Add(aEnum.Current.Key + ' : ' + IntToStr(aEnum.Current.Value));
end;

方法二

var kvp : TPait＜integer,string＞
begin
 for kvp in FList do begin
  //kvp.....
 end;
end;

DevExpress 3.22 Drag a column header here to group by that column 中文化

為了這行找了好多資料。
後來還是自己修改原始碼
在 dxDBGrid.pas 2714行

FText := ' ' + sdxPanelText;

改成

       case GetSystemDefaultLangID of
         2052 : begin //簡體
           FText := ' ' + '▲嶺雄戲弇祫森褫郪趙◎';
         end;
         1028 : begin
           FText := ' ' + '《拖曳欄位至此可群組化》';
         end;
         else begin
           FText := ' ' + sdxPanelText;
         end;
       end;

這樣就支持 簡繁體的顯示嘍！