Скачать: CL | DM;

Combobox/Strings, спозиционироваться на строке   Найти похожие ветки 

← →
[ВладОшин] ©   (2013-10-16 17:32) [0]

Не помню, но походу велик делаю..

function TfrmAuto.LocateComboByTxt(CB: TComboBox; Txt: string): Integer;
var
 i: Integer;
begin
 for i := 0 to CB.Items.Count - 1 do
  if Pos(Txt, CB.Items[i]) <> 0 then
  begin
    Result := i;
    Exit;
  end;
 Result := -1;
end;

---

← →
Ega23 ©   (2013-10-16 17:38) [1]

ComboBox.ItemIndex := ComboBox.Items.IndexOf(aTxt);

ы?

---

← →
[ВладОшин] ©   (2013-10-16 18:07) [2]

Да, точно, спасибо
IndexOf
заработался.

---

← →
[ВладОшин] ©   (2013-10-17 08:36) [3]

А не, придется все-таки перебирать..
мне ж именно Pos() <> 0  нужен, т.е. из середины, с конца.
необязательно начало только

и надо что бы повторный вызов дал следующее. т.е. PosEx()
т.е. придется LocateComboByTxt(CB: TComboBox; Txt: string; var idx: integer): boolean
..
n := 0;
if LocateComboByTxt(,n) then
  LocateComboByTxt(,n) а тут начиная с позиции N перебор будет идти.

да,, вроде, так.
Спасибо :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.002 c