Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Добраться до компонента перебором Components


Автор: 095 3.11.2007, 22:05
Вот код события Edit1.OnChange

    for cmpn:=ComponentCount-1 downto 0 do
    if Length(TEdit(cmpn).Text)=TEdit(cmpn).MaxLength then TEdit(cmpn+1).SetFocus;

Требуется при наборе текста в Edit проверить - если Edit наполнен доверху (Length=MaxLength) то следует перейти к следующему Edit

Всевремя выбрасывает ошибку недоступности памяти .. зачемто ..!!!!!!???!??!??????? !!! HELP

Автор: stab 3.11.2007, 22:24
ошибка возникает из-за того, что вы делаете всё не правильно. счётчик цикла cmpn у вас видимо типа Integer, а вы его приводите к TEdit, что вообще исключает возможность нормальной работы. вот вам способ попроще:

Код

SelectNext(ActiveControl, True, True);


з.ы. купите книжку в магазине.

Автор: 095 3.11.2007, 22:31
Уоооооа ! точно точно, книжку нада smile Спасиб 
Просто кушать понадобилось срочно, а вышел на Delphi случайно .. 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)