Ограничение вводимых значений для combobox

[mihali4]

потому как список у меня примерно следущий
А00 - УБРАТЬ
А00.1
А00.2
...

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if (ComboBox1.Text[1]+ComboBox1.Text[2]+ComboBox1.Text[3]+ComboBox1.Text[4]<>'A00.') or
(SendMessage(ComboBox1.Handle,CB_FINDSTRING,0,integer(pchar(ComboBox1.Text)))=-1) then
begin
ComboBox1.Text:='A00.';
ComboBox1.SelStart:=4;
end else
ComboBox1.ItemIndex:=SendMessage(ComboBox1.Handle,CB_FINDSTRING,0,integer(pchar(ComboBox1.Text)));
end;

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=8 then
begin
ComboBox1.Text:='A00.';
ComboBox1.SelStart:=4;
end;
end;

Можно условие

(ComboBox1.Text[1]+ComboBox1.Text[2]+ComboBox1.Text[3]+ComboBox1.Text[4]<>'A00.')

вычислять по-другому, через Copy, например... Но тогда появится куча проверок - на длину и т.д.

[Katunya]

mihali4, это конечно все хорошо) спасибо за код, но он не подойдет
помимо А00 у меня таких строк порядка 18500..всевозможные наборы и А00 и А00.1 до самого Z99.9...и ничего из набора убрать нельзя, эти шифровки используются в программе..
я так понимаю олучается чт реализовать мою задачу почти невозможно...
а так хотелось... может будут еще мысли у кого...буду благодарна

[mihali4]

у меня таких строк порядка 18500

В комбобоксе ??? 18500 итемсов ???
Тогда у вас что-то с логическим мышлением не в порядке.
И как следствие - с алгоритмом...

[Katunya]

значения грузятся из файла..
я бы с радостью отказалась от идеи все это делать, но начальник требует...
а на счет мышления у меня с ним все хорошо ) но объяснить начу, что все учесть нереально - бесполезно..

поэтому во думала что может кто-то сталкивался с такой задачей.
и тем не менее большое спасибо за ответы - много нового для себя узнала!

[Stilet]

Тогда у вас что-то с логическим мышлением не в порядке.
И как следствие - с алгоритмом

Не, дружище, ты не прав. Такой контент тоже бывает.
Заказы, служебная документация... У нас тоже иногда набирается порядочное количество элементов подобных контролов, и наши используют сторонний компонент по-моему из библиотеки EhLib, который якобы задачу с автопоиском при вводе решает.
Кстати, Катя, попробуй поставить себе эту библиотеку, или сделай как я сказал.

[Katunya]

Stilet, спасибо большое за помощь! взяла то, что ты предложил в #7.а чтоб и с А работала - просто тупо сделала первый элемент пустым)
осталось вбить проверку на ввод первого символа, чтоб это была не цифра и не знак...наверно это уже проще, да? ))
думаю этим справлюсь..если же нет - то где-то здесь видела подобные темы даже вроде.

[Stilet]

осталось вбить проверку на ввод первого символа, чтоб это была не цифра и не знак

Ну в принципе не сложно

IF (length(ComboBox.Text)=1)and(ComboBox.Text='a') then делать что -то else делать другое

где a - первый символ

Единственные грабли - верно подбери в каком событии это делать в OnKeyPress или в OnChange. Ну думаю это прямо в OnKeyPress зарядить можно

[Katunya]

закинула в OnChange! все прекрасно работает!!
большое спасибо за помощь!!!!!!!!