哪位大大幫幫小了弟，小在用DELPHI寫了一個從資料庫中查詢數據出來的程式，但是查詢出來的中文字碼顯示是亂碼。我的系統是繁體系統。不知道是怎麼會事我用了TNTWARE元件出錯了。幫幫小弟看看有什麼辦法能解決這個問題.有沒有比較簡單的轉碼方式謝謝。
錯誤如下：
[Fatal Error] PLAN.pas(8): File not found: 'TntDBGrids.dcu'
代碼如下：
unit PLAN;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, comobj, StdCtrls, Buttons, Grids, ComCtrls, Menus,
DBGrids, TntDBGrids;
type
...........
private
{ Private declarations }
public
procedure TForm1.LableCaption(Sender: TComponent);
var Count: Integer;
begin
for Count:=0 to Sender.ComponentCount-1 do
begin
if (Sender.Components[Count] is TLABEL) then TLABEL(Sender.Components
[Count]).Caption :=GBtoBIG5(TLABEL(Sender.Components[Count]).Caption);
if (Sender.Components[Count] is TBITBTN) then TBITBTN(Sender.Components[Count]).Caption :=GBtoBIG5(TBITBTN(Sender.Components[Count]).Caption);
if (Sender.Components[Count] is TTabSheet) then TTabSheet(Sender.Components[Count]).Caption:=GBtoBIG5(TTabSheet(Sender.Components[Count]).Caption);
if (Sender.Components[Count] is TGroupBox) then TGroupBox(Sender.Components[Count]).Caption:=GBtoBIG5(TGroupBox(Sender.Components[Count]).Caption);
if (Sender.Components[Count] is TQuery) then FieldDisplay(TQuery(Sender.Components[Count]));
end;
end;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var sql1:string;
begin
query1.SQL.Clear;
query1.SQL.Add('select op_no,descr from poordd where op_no="po950300096"');
query1.Prepare;
query1.Open;
end;

您好：

'TntDBGrids.dcu'這個檔案找不到，您要先加入這個路徑D:\VCL\Unicode\TntUnicodeControls\Source

Delphi 內部要設定
選單\Tools\Environment Options\Livrary 下目錄設定
Library Path

看能不能解決您的問題！

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！