請問固定間距的英文字型有哪些？ 目前我知道的有fixedsys, Courier New 這兩種windows中內建的字型， 除了這兩種以外還有別的嗎？不管是內建的還是非內建的，謝謝！

hornacek 您好：    有個耍賴的方法，供您參考。 首先利用Screen->Fonts讀取所有的字型，再分別寫英文字I與W，之後比較其寬度，藉以判斷是否為固定寬度。 < class="code">//--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { int w1, w2; for (int k=0; kFonts->Count-1; k ) { Form1->Canvas->Font->Name = Screen->Fonts->Strings[k]; w1 = Form1->Canvas->TextWidth("I"); w2 = Form1->Canvas->TextWidth("W"); if ( w1==w2 ) { ListBox1->Items->Add(Screen->Fonts->Strings[k]); } } } //--------------------------------------------------------------------------- //選用先前得到的字型，測試輸出結果： void __fastcall TForm1::Button2Click(TObject *Sender) { if ( FontDialog1->Execute() ) { Form1->Canvas->Font = FontDialog1->Font; float w1, w2; w1 = Form1->Canvas->TextWidth("I"); w2 = Form1->Canvas->TextWidth("W"); Form1->Canvas->TextOut(10, 10, "IIIWWW"); Form1->Canvas->TextOut(10, 30, "HHHJJJ") ; ShowMessage(FloatToStr(w1/w2)); } } RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====##### 發表人 - richtop 於 2004/08/23 15:52:14

這個方法還真是有意思！ 可以不用在用肉眼去分辨是否為固定間距了...

這個方法還真是有意思！ 可以不用再用肉眼去分辨是否為固定間距了...

殘念~~~這個方法似乎行不通... 每個字型都符合 if ( w1==w2 ) 這個條件... 看來TextWidth這個函數對每種字型的回傳值都是一樣...

謝啦！It's working... 現在才發現有好多固定間距的字型， 不過很多字型看起來不知道是什麼語言？