TComboBox資料增加問題 |
尚未結案
|
sword185
一般會員 發表:36 回覆:81 積分:23 註冊:2002-06-05 發送簡訊給我 |
|
turboted
版主 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
chih 兄,感謝您的幫忙
是我的不查,沒注意到是delphi 的
我也自已改正了一下,順便提供了另外一種的save/load方法
1. if ComboBox1.Items.IndexOf(ComboBox1.Text) = -1 then ComboBox1.Items.Add(ComboBox1.Text); 記錄 ComboBox1.Items.SaveToFile('CBList.txt'); ComboBox1.Items.LoadFromFile('CBList.txt'); 2. if ComboBox1.Items.IndexOf(ComboBox1.Text) <> -1 then ShowMessage (ComboBox1.Text);發表人 - turboted 於 2003/06/03 13:37:02 |
sword185
一般會員 發表:36 回覆:81 積分:23 註冊:2002-06-05 發送簡訊給我 |
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
sword185
一般會員 發表:36 回覆:81 積分:23 註冊:2002-06-05 發送簡訊給我 |
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
turboted
版主 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
|
sword185
一般會員 發表:36 回覆:81 積分:23 註冊:2002-06-05 發送簡訊給我 |
小弟我非常愚庸...
是出來的結果:若直接點選下拉式的方式,無法選擇數值
我的程式碼如下:
procedure TForm1.FormActivate(Sender: TObject);
begin
ComboBox1.Items.LoadFromFile('CBList.txt');
end; procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
if ComboBox1.Items.IndexOf(ComboBox1.Text) <> -1 then
begin
ShowMessage ('【' ComboBox1.Text '】 欄位已有資料');
end
else
begin
ComboBox1.Items.Add(ComboBox1.Text);
ComboBox1.Items.SaveToFile('CBList.txt');
ComboBox1.Items.LoadFromFile('CBList.txt');
end;
end; 不知如何更改
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
sword185
一般會員 發表:36 回覆:81 積分:23 註冊:2002-06-05 發送簡訊給我 |
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
turboted
版主 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
|
sword185
一般會員 發表:36 回覆:81 積分:23 註冊:2002-06-05 發送簡訊給我 |
|
turboted
版主 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
把判斷放在
OnKeyPress 裏面
並判斷有沒有按下'/r' enter 鍵
如果有,再做判斷
if ComboBox1.Items.IndexOf(ComboBox1.Text) = -1 then ComboBox1.Items.Add(ComboBox1.Text); if ComboBox1.Items.IndexOf(ComboBox1.Text) <> -1 then ShowMessage (ComboBox1.Text);如果沒有,就不用判斷,當他是正常的選數值 就沒問題了 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |