全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1209
推到 Plurk!
推到 Facebook!

想問一個關係 combo 指定select的問題

答題得分者是:pceyes
MatthewSong
一般會員


發表:17
回覆:17
積分:6
註冊:2007-09-24

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-02-20 12:56:25 IP:202.175.xxx.xxx 訂閱
現在我有一個己具內容的 combo
例如
1 aaa
2 bbb
3 ddd
4 eee
' ' <- 空格

我有一個edit box
我想輸入一個 號碼,就在combo box 里select了, 但我試過幾個都不行,,有人可以教我嗎,
這是我試過的code


cbTDType: TComboBox; (假設己存在內容)
edRDType:TEdit;

procedure TfrmFicha.edRDTypeChange(Sender: TObject);
var
rdType :string;
i :integer;
begin
inherited;

i := 0;
while cbRDType.Items[i] <> '' do
begin
rdType := trim(Copy(cbRDType.Items[i], 1, 3));
if rdType = edRDType.Text then
begin
cbRDType.Text := cbRDType.Items[i];
break;
end;
inc(i);
end;

end;
pceyes
尊榮會員


發表:70
回覆:657
積分:1140
註冊:2003-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-02-20 14:28:15 IP:122.127.xxx.xxx 訂閱
procedure TForm1.Edit1Change(Sender: TObject);
var
n : integer;
begin
n:=ComboBox1.Items.IndexOf(edit1.Text);
combobox1.ItemIndex := n;
end;
------
努力會更接近成功
MatthewSong
一般會員


發表:17
回覆:17
積分:6
註冊:2007-09-24

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-02-20 14:34:15 IP:202.175.xxx.xxx 訂閱

謝謝你呀,有時候太基本的東西我也不太會
系統時間:2024-04-25 14:52:23
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!