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

[matinebi]

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

[Saeed_m_Farid]

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


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


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;