مشکل در combobox

[ahmad_v_66]

با سلام و احترام
خاصیت ابتدایی combobox اینه که اول کلمات رو سرچ می کنه
اما اگه بخواهیم از وسط چیزی رو جستجو کنیم باید چه کاری انجام بدیم ؟
مثلا در combobox چند تا ایتم داریم مثل مرتضی بهادری اصل - احمد خلیلی مراد -مهندس رضا جلیلی و ....
اگه بخواهیم دنبال کلمات وسط جستجو کنیم باید چه کاری انجام بدهیم ؟؟؟
با تشکر

[ahmad_v_66]

دوستان یکی نیست جواب منو بده
ممنون میشم کمکم کنید
واقعا گیرم

[persia_hrn]

سلام ، شما اگر فقط بخواید جستجو کنید که یه متنی توی لیست ComboBox هست یا نه میتونید با دستور POS این کار رو انجام بدین .

یه توضیحی بدید که وقتی یک کلمه ای رو جستجو میکنید ( از هر قسمت از متن توی لیست ComboBox ) بعد میخواین چه اتفاقی بیافته تا بشه بیشتر راهنمایی کرد !

[ahmad_v_66]

دستور pos ؟؟؟؟
این چه زوری کار میکنه ؟؟؟؟؟
و منظورم اینه که مثلا اگه چند تا item جند کلمه ای باشه و دنبال کلمه وسطی و یا آخری باشیم بتونه
پیدا کنه .
حالت یش فرض combocox اینه که از کلمه اولب شروع ب جیتجو می کنه ؟؟؟؟
مثلا اگه در item ها اینطوری باشه
محمد امین وحیدی
کمال الدین کریمی
محمد رضا خالدی و ...
و ما دنبال کلمه کریمی و یا وحیدی و یا رضا باشیم در combobox جستجو نمیشه و همیشه کلمه اول رو جستجو میکنه
ممنون

[persia_hrn]

سلام ، کد زیر رو ببین :

procedure TForm1.ComboBox1Change(Sender: TObject);

var

    Loop: Cardinal;

begin

ListBox1.Clear;

For Loop:=0 to ComboBox1.Items.Count-1 do

 if Pos(ComboBox1.Text,ComboBox1.Items.Strings[Loop])<>0 then

  ListBox1.Items.Append(ComboBox1.Items.Strings[Loop]);

end;

یه ComboBox و یه ListBox توی فرم بذار و توی رویداد OnChange کومبوباکست کد بالا رو بنویس

[ahmad_v_66]

ممنون دوست عزیز و گرامی
کد شما کار رو راه میندازه اما من جایی برای listbox ندارم
من می خوام تو خود combobox این اتفاق بیفته . من به جای listbox از edit هم استفاده کردم و کد شما جواب داد اما برای خود combobx جواب نمیده
با این حال بازم از شما ممنون و سپاس گذارم

[persia_hrn]

سلام دوست عزیز , ببخشید دیر جواب دادم

var

  Form1: TForm1;

  FCheck: Boolean;

  TempList: TStringList;



implementation



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

begin

FCheck:=True;

end;



procedure TForm1.ComboBox1Change(Sender: TObject);

var

    Loop: Cardinal;

    TempText: String;

begin

if FCheck=True then

 begin

  TempList := TStringList.Create;

  For Loop:=0 to ComboBox1.Items.Count-1 do

   TempList.Append(ComboBox1.Items.Strings[Loop]);

 end;

ComboBox1.Items.Clear;

ComboBox1.DroppedDown:=False;

For Loop:=0 to TempList.Count-1 do

 if Pos(ComboBox1.Text,TempList.Strings[Loop])<>0 then

  ComboBox1.Items.Append(TempList.Strings[Loop]);

FCheck:=False;

TempText:=ComboBox1.Text;

if TempText<>'' then

 begin

  ComboBox1.DroppedDown:=True;

  ComboBox1.Text:=TempText;

  ComboBox1.SelStart:=Length(ComboBox1.Text);

 end;

end;

خدمت شما

فقط یه ComboBox بذار روی فرم