[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.

[PashaXP]

В общем как сделать так, чтобы при нажатии кнопки не вылазила ошибка, т.е. что-то я не правильно определяю....
На форме Edit1, остальные Edit'ы создаются динамически.

Код:

 
implementation
uses Unit2;
......
функции
......
PROCEDURE FILLING_COMBOBOX_FILE;
Begin
  Form1.Edit1.Text:='1'; //Работает
  TEdit('Edit'+IntToStr(1)+IntToStr(1)).Text:='1';//Компилируется, но при выполнении выдается ошибка
End;
.....
procedure TForm1.Button2Click(Sender: TObject);
begin
PROCEDURE FILLING_COMBOBOX_FILE;
end;
....

[The Shadow]

Код:

implementation
uses Unit2;
......
функции
.....
procedure TForm1.Button2Click(Sender: TObject);
PROCEDURE FILLING_COMBOBOX_FILE;
Begin
  Form1.Edit1.Text:='1'; //Работает
  TEdit(FindComponent('Edit'+IntToStr(1)+IntToStr(1))).Text:='1';//Компилируется, но при выполнении выдается ошибка
End;
begin
PROCEDURE FILLING_COMBOBOX_FILE;
end;
....

Может так?

[s0Creator]

Код:

TEdit('Edit'+IntToStr(1)+IntToStr(1)).Text:='1'; 

компилится потому что не проверяются типы

Код:

TEdit('Edit11').Text:='1'; 

сразу даст ошибку
TEdit(var) - не ищет компонент по имени а пытается с памятью переменной работать как с TEdit

[PashaXP]

Если сделать так, то все нормально

Код:

implementation
uses Unit2;
......
функции
......
procedure TForm1.Button2Click(Sender: TObject);
begin
TEdit('Edit'+IntToStr(1)+IntToStr(1)).Text:='1';//
end;

[The Shadow]

Не может быть. Как ты String в TEdit переводишь?

[PashaXP]

Ошибся, т.е. IntToStr(1);

[The Shadow]

Я не про то. Надо

Код:

TEdit(FindComponent('Edit'+IntToStr(1)+IntToStr(1))).Text:='1';

[PashaXP]

Если пишу TEdit(FindComponent('Edit'+IntToStr(1)+IntToStr(1) )).Text:='1';
Т.е. использую FindComponent, при компиляции ошибка -
[Error] Unit1.pas(116): Udeclared identifier: 'Find Component'
Это происходит когда этот код находится в моей процедуре, а если в "стандартных", типа procedure TForm1.FormCreate(Sender: TObject);
или procedure TForm1.Button2Click(Sender: TObject); то все нормально работает...