Цитата:
|
Сообщение от PashaXP
Создаю собственную процедуру, в ней имеются строки:
Poisk_In_File:=TEdit('Edit'+IntToStr(Tek_Page)+Poi sk_True[2]).Text;
TEdit(FindComponent('Edit'+IntTostr(Tek)+IntToStr( z))).Text:=E_Stroka;
Прикомпиляции ошибок нет, но при запуске возникает ошибки ссылающиеся на эти строки.
Если внести эти строки, напрамер, в нутрь procedure TForm1.FormCreate(Sender: TObject); или procedure TForm1.Button1Click(Sender: TObject); то все нормально. Я так понял, что-то я не правильно определяю процедуру.... Подскажите плиз....
|
По поводу
Код:
Poisk_In_File:=TEdit('Edit'+IntToStr(Tek_Page)+Poi sk_True[2]).Text;
уменя даже не скомпилилась (Д7)
строкой нельзя манипулировать как Эдитом.
Код:
TEdit(FindComponent('Edit'+IntTostr(Tek)+IntToStr(z))).Text:=E_Stroka;
в наброске не видел но если FindComponent возвращает
TComponent или его наследников и действительно указывает на Эдит то должно быть нормально, если возвращает
nil или другой компонент (например Лабел) то при исполнении будет ошибка. Используй
is и
as.