要如何將 元件上 Font->Charset 用變數方式填入 |
答題得分者是:taishyang
|
carloyan
一般會員 發表:35 回覆:14 積分:9 註冊:2004-05-26 發送簡訊給我 |
請問要如何將 元件上 Font->Charset 用變數方式填入 例如 AnsiString LanguageStatus; 按下 Button1 時
void __fastcall TForm1::Button11Click(TObject *Sender)
{
LanguageStatus = "CHINESEBIG5_CHARSET";
} 按下 Button2 時
void __fastcall TForm1::Button11Click(TObject *Sender)
{
LanguageStatus = "GB2312_CHARSET";
} 在Timer1之中加入
Label1->Font->Charset = LanguageStatus; Run 之後 就告訴我 Cannot Convert AnsiString To Unsigned Char !!!
請問該如何解決 ? 謝謝 !
|
rollboy
一般會員 發表:8 回覆:16 積分:9 註冊:2005-04-12 發送簡訊給我 |
引言: 請問要如何將 元件上 Font->Charset 用變數方式填入 例如 AnsiString LanguageStatus; 按下 Button1 時 void __fastcall TForm1::Button11Click(TObject *Sender) { LanguageStatus = "CHINESEBIG5_CHARSET"; } 按下 Button2 時 void __fastcall TForm1::Button11Click(TObject *Sender) { LanguageStatus = "GB2312_CHARSET"; } 在Timer1之中加入 Label1->Font->Charset = LanguageStatus; Run 之後 就告訴我 Cannot Convert AnsiString To Unsigned Char !!! 請問該如何解決 ? 謝謝 !我想你誤會了 ... 像CHINESEBIG5_CHARSET或ANSI_CHARSET這些本身是個變數喔!不是字串 ... 正確方法應該如底下這樣 .. Label1->Font->Charset = CHINESEBIG5_CHARSET; 你在試試看吧 .. |
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
您好:
試試下面的程式碼
TFontCharset LanguageStatus; void __fastcall TForm1::Button1Click(TObject *Sender) { LanguageStatus = CHINESEBIG5_CHARSET; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { LanguageStatus = GB2312_CHARSET; } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { Label1->Font->Charset = LanguageStatus; }順心 |
carloyan
一般會員 發表:35 回覆:14 積分:9 註冊:2004-05-26 發送簡訊給我 |
引言: 您好: 試試下面的程式碼TFontCharset LanguageStatus; void __fastcall TForm1::Button1Click(TObject *Sender) { LanguageStatus = CHINESEBIG5_CHARSET; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { LanguageStatus = GB2312_CHARSET; } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { Label1->Font->Charset = LanguageStatus; }順心 >>< face="Verdana, Arial, Helvetica"> Taishyang 老兄 ! 您的方法的確可以做到我要的效果 ! 不過有一個 Error Message : "Access violation at address 00432B32 in module 'TestLanguage.exe'. Read of address 00000010." 另我不知該怎麼辦 ??? 我的程式畫面是希望能做到, 當選擇其他語系的文字時, 可以有那個語系的畫面, 不侷限於在那個語系的作業系統之下, 所以才會希望能改變 Font->Charset, 利用變數是沒有辦法的辦法了 ! 希望 rollboy 老兄能諒解 ! |
zilch
中階會員 發表:5 回覆:87 積分:78 註冊:2002-09-24 發送簡訊給我 |
|
carloyan
一般會員 發表:35 回覆:14 積分:9 註冊:2004-05-26 發送簡訊給我 |
引言: Taishyang 老兄 ! 您的方法的確可以做到我要的效果 ! 不過有一個 Error Message : "Access violation at address 00432B32 in module 'TestLanguage.exe'. Read of address 00000010." 另我不知該怎麼辦 ??? 我的程式畫面是希望能做到, 當選擇其他語系的文字時, 可以有那個語系的畫面, 不侷限於在那個語系的作業系統之下, 所以才會希望能改變 Font->Charset, 利用變數是沒有辦法的辦法了 ! 希望 rollboy 老兄能諒解 !我發現問題了 ! 是我在語法上的錯誤 ! 我在這篇文章找到答案了 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=39292 原本我是用 for (int i = 0; i < ComponentCount; i ) { if ( Components[i]->ClassNameIs("TLabel") ) (dynamic_cast |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |