نحوه ی پیمایش آیتم های کمبوباکس

[matinebi]

چطور میتونم آیتم های یک کمبوباکس رو پیمایش کنم (مثلا در کمبوباکس دنبال آیتمی بگردم به نام "علی" و اون رو به "حسن" تغییر بدم
با تشکر

[Saeed_m_Farid]

چطور میتونم آیتم های یک کمبوباکس رو پیمایش کنم (مثلا در کمبوباکس دنبال آیتمی بگردم به نام "علی" و اون رو به "حسن" تغییر بدم
با تشکر

سلام
دوحالت داره :

1. اول اینکه کل آیتم رو بخواهید پیدا کنید که این راحته؛ با IndexOf می گردین و مقدار موردنظر رو جایگزین می کنید ...
2. بخواهید یک کلمه رو بین کل آیتم ها بگردین و جایگزین کنید، قسمت دوم کد پایین رو نگاه کنید :

procedure TForm1.Button1Click(Sender: TObject);

var

  idx: Integer;

  tmpStr: String;

begin



  //برای یافتن کل یک آیتم

  idx := cboTestReplace.Items.IndexOf('The Complete Line Of Ali');

  cboTestReplace.Items.Strings[idx] := 'The Complete Line Of Hassan';

  ShowMessage('Change Index ='+IntToStr(idx)

             +#13#10+cboTestReplace.Items.Text);



  //برای یافتن و جایگزینی یک کلمه در آیتم ها

  tmpStr := cboTestReplace.Items.Text;

  idx := Pos('Ali', tmpStr);

  Delete(tmpStr, idx, Length('Ali'));

  Insert('Hasan', tmpStr, idx);

  cboTestReplace.Items.Text := tmpStr;

  ShowMessage('Change Index ='+IntToStr(idx)

              +#13#10+cboTestReplace.Items.Text);



end;