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

Набросок