Форум: "Начинающим";
Текущий архив: 2014.09.14;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2014.09.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.002 c
