請問站長, 前所介紹有關TNT支援Unicode code之Component在中,英文Window 2000系統均能顯示正常,但用在日文 Window 2000系統為何只能接受及顯示數字,所輸入之日文為何無法接受? 謝謝 !

請裝日文字型於系統 試試 非ie的 請問一下 你是使用ado 還是bde 有部份的程式碼可以參考嗎? ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind

這一篇嗎 http://delphi.ktop.com.tw/topic.php?topic_id=22477 有可能您的日文系統的內碼不是採用uni-code, 也是採用類似big-5的two bytes內碼系統! ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

感謝Jackkcg兄及站長的回答,若此日文系統的內碼不是採用uni-code, 而是採用類似big-5的two bytes內碼系統時,利用此些Component在中文Window 2000系統下開發所完成之程式如何能像在中文Window 2000亦可顯示中文一樣也可顯示日文 ? 謝謝 !

引言: 感謝Jackkcg兄及站長的回答,若此日文系統的內碼不是採用uni-code, 而是採用類似big-5的two bytes內碼系統時,利用此些Component在中文Window 2000系統下開發所完成之程式如何能像在中文Window 2000亦可顯示中文一樣也可顯示日文 ? 謝謝 !

若真是如此的話, 就不要用其他元件(TNT), 就用Delphi的標準元件應該就可以顯示日文了, 注意要調整font的charset為DEFAULT_CHARSET ～～～Delphi K.Top討論區站長～～～

非常感謝,問題總算解決了,另外請問如何在Form所屬之各Component不經過判斷轉型其是何種Component而逕行修改其Porperty之Fornt.charset ? 謝謝 !

引言: 非常感謝,問題總算解決了,另外請問如何在Form所屬之各Component不經過判斷轉型其是何種Component而逕行修改其Porperty之Fornt.charset ? 謝謝 !

應該在主Form上的font的charset設定好後 各個子物件的parantfont:=true 就會沿用主form的設定了 不用一一設定 ～～～Delphi K.Top討論區站長～～～

再度感謝站長之答覆,唯若以此方式則所有Component之字型大小均變成一樣影響畫面之安排,請問是否有方法可直接判斷Form之components[index]是否具有Font之property ? 謝謝 !

uses
  TypInfo;    procedure TForm1.Button1Click(Sender: TObject);
var
  p: PPropInfo;
  i: integer;
begin
  for i := 0 to ComponentCount - 1 do
  begin
    p := GetPropInfo(Components[i].ClassInfo, 'Font');
    if Assigned(p) then
      Memo1.Lines.Add(Components[i].Name   ' 有 Font 屬性');
  end;

--- --<-<-<@

引言:

uses
  TypInfo;    procedure TForm1.Button1Click(Sender: TObject);
var
  p: PPropInfo;
  i: integer;
begin
  for i := 0 to ComponentCount - 1 do
  begin
    p := GetPropInfo(Components[i].ClassInfo, 'Font');
    if Assigned(p) then
      Memo1.Lines.Add(Components[i].Name   ' 有 Font 屬性');
  end;

--- --<-<-<@

帥喔! ～～～Delphi K.Top討論區站長～～～

感謝各位的協助,終於解決近日苦思不解之問題,也再度印證了 Delphi K.Top真是臥虎藏龍的地方. 謝謝 !