hi all 我有一個edit裡可輸入字串 又有一個listbox裡放了一些字串 我想要做到當我edit發生onchange時就去比對listbox裡的每個item 若有部份符合就把它放到第一項去(捲動到第一項) 我在listbox裡用了indexof來做 但發現listbox只有在完全比對成功時才會把item資料選出 是否能做到部份符合就選出呢???    

procedure TForm1.Edit1Change(Sender: TObject);
var
  str: string;
  idx: integer;
begin
  str:= edit1.Text;
  idx:= listbox1.Items.IndexOf(str);
  if(idx >= 0)then begin
    listbox1.ItemIndex:= idx;
  end;
end;

豬寶寶的寫法 可能有點笨...請多包涵^^ procedure TForm1.Edit1Change(Sender: TObject); var I: Integer; str: string; idx: integer; begin str:= edit1.Text; for I := 0 to LISTBOX1.Items.Count - 1 do begin if STR=COPY(LISTBOX1.Items.Strings[I],1,LENGTH(STR)) then begin listbox1.ItemIndex:= I; EXIT; end; end; // for end; >_< 用CODE會排不出來..只能用這種沒縮排的了>_< 發表人 - pigbaby 於 2004/11/18 11:52:55

引言: 豬寶寶的寫法 可能有點笨...請多包涵^^

procedure TForm1.Edit1Change(Sender: TObject);
var
  I: Integer;
  str: string;
  idx: integer;
begin
  str:= edit1.Text;
  for I := 0 to LISTBOX1.Items.Count - 1 do
  begin
    if STR=COPY(LISTBOX1.Items.Strings[I],1,LENGTH(STR)) then
    begin
      listbox1.ItemIndex:= I;
      EXIT;
    end;
  end;    // for
end;

>_< 用CODE會排不出來..只能用這種沒縮排的了>_< 發表人 - pigbaby 於 2004/11/18 11:52:55

感謝豬寶寶 上面的方法可以 不過我想再做到難一點 可否在比對時 if STR=COPY(LISTBOX1.Items.Strings[I],1,LENGTH(STR)) then 不只是從1開始呢 也就是在整個字串中只要符合就行 應該是指類似全文檢索那樣?

 
procedure TForm1.Edit1Change(Sender: TObject);
var
  i: Integer;
begin
  for i:=0 to ListBox1.Items.Count-1 do
    if AnsiPos(Edit1.Text, ListBox1.Items.Strings[i]) > 0 then
    begin
      ListBox1.ItemIndex:=i;
      Break;
    end;
end;

用POS

writeman您好： 试试这个吧

procedure TForm1.Edit1Change(Sender: TObject);
var 
  str:string;
begin
  str:=edit1.Text;
  With listbox1 Do 
    itemindex := Perform( LB_FINDSTRING, ItemIndex, 
                            Longint(PChar(str)));
end;

——行径窄处，留一步与人行—— 發表人 - deity 於 2004/11/18 13:50:49

感謝各位幫忙 分數就給豬寶寶 其他人一併感謝啦 

< >有简单的都不用< > ——行径窄处，留一步与人行——

引言: writeman您好： 试试这个吧

procedure TForm1.Edit1Change(Sender: TObject);
var 
  str:string;
begin
  str:=edit1.Text;
  With listbox1 Do 
    itemindex := Perform( LB_FINDSTRING, ItemIndex, 
                            Longint(PChar(str)));
end;

感謝deity 讓豬寶寶又學了一招^^ 謝謝^^

引言: < >有简单的都不用< > ——行径窄处，留一步与人行—— < face="Verdana, Arial, Helvetica"> hi deity兄 不是簡單的不用 而是覺的用起來怪怪的 好像選不到到我想要的東西 例如我的listbox裡的資料如果是這樣的話 112233 11223344 123 12311 12344 22331 22332 我在edit輸入123 listbox卻跑到12311去

稍做改变即可，怪自己没试 < class="code"> procedure TForm1.Edit1Change(Sender: TObject); var str:string; begin str:=edit1.Text; With listbox1 Do itemindex := Perform(LB_FINDSTRING, ItemIndex-1, Longint(PChar(str))); // itemIndex:=SendMessage(handle,LB_FINDSTRING,-1,Longint(PChar(str)));//改成这句也行 end; pigbaby前辈，客气了，您写的也让小弟学了一招，以后还得多请教您呢 ——行径窄处，留一步与人行—— 發表人 -