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
заработался.

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

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

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

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