Delphi 从字符串设置 ComboEdit 项目？

Question

我目前在 ListView 中显示 "merchandise"，listview 有文章、数量、iemsls 和名称。

双击项目我想读取变量并将它们放在 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 属性是具有 IndexOf() 方法的 TStrings 对象，而 TComboBox 具有 ItemIndex 属性用于通过索引设置当前选中的项目。

所以，试试这个：

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

Delphi 从字符串设置 ComboEdit 项目？

Delphi set ComboEdit Item from a String?

delphi

delphi-10.1-berlin