想問一個關係 combo 指定select的問題 |
答題得分者是:pceyes
|
MatthewSong
一般會員 發表:17 回覆:17 積分:6 註冊:2007-09-24 發送簡訊給我 |
現在我有一個己具內容的 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 發送簡訊給我 |
|
MatthewSong
一般會員 發表:17 回覆:17 積分:6 註冊:2007-09-24 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |