[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); то все нормально. Я так понял, что-то я не правильно определяю процедуру.... Подскажите плиз....

[The Shadow]

Если можешь, покажи всю процедуру.

[PashaXP]

Код:

ROCEDURE FILLING_COMBOBOX_FILE(Tek_Page: integer);
Var
 Poisk_True, Poisk_In_File, S, Iskom_Str: string;
 F: TextFile;
BEGIN
  for i:=1 to PG[Tek_Page].ComboBox_Count do
     Begin
        Poisk_True:=PG[Tek_Page].Info_ComboBox[i].Poisk;
        If Poisk_True[1]='E' then
          Begin//If
            AssignFile(F, PG[Tek_Page].Info_ComboBox[i].TextFile);
            Reset(F);
            Readln(F, S);
            Poisk_In_File:='W510';
//            Poisk_In_File:=TEdit('Edit'+IntToStr(Tek_Page)+Poisk_True[2]).Text;
              Form1.Edit1.Text:=TEdit('Edit'+IntToStr(Tek_Page)+Poisk_True[2]).Text;
               if Pos(Poisk_In_File,S)<>0 then
                   Begin
                     for j:=Length('W510') to Length(S) do
                        begin
                          If s[j]<>' ' then Iskom_Str:=Iskom_Str+s[j]
                          Else
                            begin
                              If Length(Iskom_Str)>0 then Form1.Edit1.Text:=Form1.Edit1.Text+IntToStr(8)
                              Else Iskom_Str:='';
                            end;
                        end;
                   End;
             CloseFile(F);
           End;//If
      End;
  //TComboBox('ComboBox'+IntToStr(Tek)+).Text:='';
END;

Набросок

[The Shadow]

А куда ты ее написал?

[PashaXP]

После
implementation

Если я правильно вопрос понял
Вызывается после нажатия кнопки

[The Shadow]

Не совсем понял

[s0Creator]

Сообщение от 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.