| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Combobox/Strings, спозиционироваться на строке [D7]
[ВладОшин] © (2013-10-16 17:32:00)Не помню, но походу велик делаю..
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;
[ВладОшин] (2013-10-17 08:36:00) [1]А не, придется все-таки перебирать..
мне ж именно Pos() <> 0 нужен, т.е. из середины, с конца.
необязательно начало только
и надо что бы повторный вызов дал следующее. т.е. PosEx()
т.е. придется LocateComboByTxt(CB: TComboBox; Txt: string; var idx: integer): boolean
..
n := 0;
if LocateComboByTxt(,n) then
LocateComboByTxt(,n) а тут начиная с позиции N перебор будет идти.
да,, вроде, так.
Спасибо :)
[ВладОшин] (2013-10-16 18:07:00) [2]Да, точно, спасибо
IndexOf
заработался.
Ega23 (2013-10-16 17:38:00) [3]
ComboBox.ItemIndex := ComboBox.Items.IndexOf(aTxt);
ы?
| |
