最近做了一個小程式，用到了SQLite，後臺用Python寫的分析程式，將資料插入（更新）到SQLite資料庫中，Delphi的程式週期顯示資料庫的內容。Delphi訪問SQLite採用的Aducom元件。Python插入的資料編碼都是採用的UTF-8，而Delphi的DBGrid、cxGrid控制元件顯示的卻是亂碼，主要是因為Delphi7不支援Unicode造成的，因此要想辦法讓他支援。

嘗試了多種方法，包括使用據說支援Unicode的TMS Unicode Component、SUIPack等，都不好使。最後還是用了簡單的方法，在資料集元件的需要顯示的欄位的OnGetText事件，在事件處理中，對資料進行Unicode到GB的轉換。

procedure unicode2gb(const unicodestr:string; var GbStr:String);
var SourceLength:integer;
  DoneLength:integer;
  AscNo:integer;
  Byte1,Byte2,Byte3:integer;
begin
 GbStr:='';
 if Trim(unicodestr)='' then exit;

 SourceLength:=Length(UnicodeStr);
 DoneLength:=1;
 repeat
  AscNo:=ord(UnicodeStr[DoneLength]);
  case (AscNo and $E0) of
  $E0:begin
     Byte1:=(AscNo and $0f) shl 12;
     Inc(DoneLength);
     if DoneLength>SourceLength then break;
     AscNo:=ord(UnicodeStr[DoneLength]);
     Byte2:=(AscNo and $3f) shl 6;
     Inc(DoneLength);
       if DoneLength>SourceLength then break;
     AscNo:=ord(UnicodeStr[DoneLength]);
     Byte3:=AscNo and $3f;
    end;
  $C0:begin
     Byte1:=(AscNo and $1f) shl 6;
     Inc(DoneLength);
     if DoneLength>SourceLength then break;
     AscNo:=ord(UnicodeStr[DoneLength]);
     Byte2:=(AscNo and $3f);
     Byte3:=0;
    end;
  0..$bf:begin
     Byte1:=AscNo;
     Byte2:=0;
     Byte3:=0;
    end;
  end;//case;
   GbStr:=GBStr+widechar(Byte1+Byte2+Byte3);
   Inc(DoneLength);
   if DoneLength>SourceLength then break;
 until DoneLength>=SourceLength;
end;
 

另外，在用cxGrid進行顯示的時候，要根據欄位的值進行顏色的設定，這個可以在TableView的Styles的OnGetContentStyle事件中進行處理，如下所示：

procedure TFormMain.cxGrid1DBTableView1StylesGetContentStyle(
  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
  attention : integer;
begin

  attention := ARecord.Values[5];

  if attention > 0 then
  begin
    AStyle := styleAttention;
    exit;
  end;

  if ARecord.Values[4] = 0 then
  begin
    AStyle := styleRed;
  end
  else
  begin
    AStyle := styleDefault;
  end;
end;
 

其中styleAttention、styleDefault等是放在cxStyleRepository1中的設定好的各種Style。