TComboBox |
|
尚未結案
|
|
jason_cyl329
高階會員   發表：123 回覆：155 積分：105 註冊：2003-05-26 發送簡訊給我 |
|
|
g6101
高階會員 發表：22 回覆：129 積分：110 註冊：2002-06-15 發送簡訊給我 |
jason_cyl329您好：
請參考以下的設定及程式碼，視實際需求修改.
1.先在Form上頭擺上ComboBox1(TComboBox元件)及Memo1(TMemo元件)
設定屬性
(1) ComboBox1:
ComboBox1->AutoDropDown = true;
ComboBox1->Cursor = crArrow;
ComboBox1->Style = csDropDown;
ComboBox1->Sorted = true;
ComboBox1->Text = "";
(2) Memo1:
Memo1->BorderStyle = bsNone;
Memo1->Color = clBtnFace;
Memo1->ScrollBars = ssVertical;
Memo1->Lines->Text = ""; 2.準備SRC.TXT及JOINSRC.TXT兩個檔案(暫定)
檔案內容
(1)SRC.TXT
a
Apple
b
c
Taiwan
compute
computer (2)JOINSRC.TXT (字串"\n"作為換行依據)
a=1.英語字母中第一個字母，小寫為a\n2.(用大寫A)甲等，優等
Apple=蘋果
b=英語字母的第2字
c=1.英語字母的第三個字母\n2. (用大寫C)丙等(成績)
Taiwan=台灣(省)
compute=計算\n估算\n推斷
computer=1.電腦，電子計算機\n2.計算者 (3)加入以下的程式碼. TStrings *joinsrc = new TStringList(); //<-全域
//-------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
ComboBox1->Items->LoadFromFile("SRC.TXT");
joinsrc->LoadFromFile("joinsrc.txt");
}
//-------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
TReplaceFlags Flags;
AnsiString str;
if ((str = joinsrc->Values[ComboBox1->Text]) != -1) {
Memo1->Lines->Text = StringReplace(str,"\\n","\n\n",Flags << rfReplaceAll); }
else { Memo1->Clear(); }
} ◎天長地久有時盡，追求知識無絕期！
|
|
jason_cyl329
高階會員 發表：123 回覆：155 積分：105 註冊：2003-05-26 發送簡訊給我 |
|
|
jason_cyl329
高階會員 發表：123 回覆：155 積分：105 註冊：2003-05-26 發送簡訊給我 |
|
|
g6101
高階會員 發表：22 回覆：129 積分：110 註冊：2002-06-15 發送簡訊給我 |
|
|
jason_cyl329
高階會員 發表：123 回覆：155 積分：105 註冊：2003-05-26 發送簡訊給我 |
發表時間：2004-04-23 18:02:34
IP:211.23.xxx.xxx 未訂閱
系統時間：2024-11-25 1:59:29
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |