德尔福设置ComboEdit项目从一个字符串？

Question

我目前在ListView显示“商品”，列表视图有文章，数量，iemsls和名称。

在项目的DoubleClick我想读的变量，并把它们放在TEDIT领域，“iemsls”，其中有项目预先写好一个ComboEdit，我怎么能检查哪些项目从ComboEdit等于相同字符串，并设置它是什么？

      igiDoubleTap:
     begin
     global_norakstisanadoc_editing := true;
     SelectedItemIndex := F_SS_MAIN.ListView2.Selected.index;

     ListView2.Enabled := false;
     SpeedButton6.Enabled := false;
     SpeedButton7.Enabled := false;

     quant_bef := (TListItemText(F_SS_MAIN.ListView1.Items.AppearanceItem[index].Objects.FindDrawable('Text2')).Text);
     quant_aft := StringReplace(quant_bef, 'gb', '', [rfReplaceAll, rfIgnoreCase]);

     Edit_artikuls_norakstisana.Text := ListView2.Items.Item[SelectedItemIndex].View.FindObject('artikuls').Data.ToString;
     edit_daudzums_norakstisana.Text := quant_aft;
     label_prece_from_ean.Text := ListView2.Items.Item[SelectedItemIndex].View.FindObject('prece').Data.ToString;

     ComboEdit := ListView2.Items.Item[SelectedItemIndex].View.FindObject('iemsls').Data.ToString;

     end;

这是目前DoubleTap方法我使用

Answer 1

在这两个VCL和FMX，该TComboBox.Items属性是具有TStrings方法的IndexOf()对象，并且TComboBox具有用于通过索引设定当前选择的项目的属性ItemIndex。

所以，试试这个：

ComboEdit1.ItemIndex := ComboEdit1.Items.IndexOf(
  ListView2.Items.Item[SelectedItemIndex].View.FindObject('iemsls').Data.ToString
);