[Fokys100]

Вот код и он не работает помогите пожалуйста:

Код:

var
  INFiles, OutFiles: array of file;
Begin
   SetLength(INFiles,Length(Pathes_Data));
   SetLength(OutFiles,Length(Pathes_Data));
   AssignFile(INFiles[0],Pathes_Data[0]);
   Reset(INFiles[0]);
   AssignFile(OutFiles[0],Edit1.Text+ExtractFileName(Pathes_Data[0])+'en');
   Rewrite(OutFiles[0]);
   while not eof(INFiles[0]) do
   begin
     BlockRead(INFiles[0],x1,1);
     BlockWrite(OutFiles[0],y1,1);
    end;
    CloseFile(INFiles[0]);
    CloseFile(OutFiles[0]);

    AssignFile(INFiles[1],Pathes_Data[1]);(здесь ошибка)
    Reset(INFiles[1]);
end;

[angvelem]

Ну раз здесь ошибка, значит Pathes_Data равен 1.

[Fokys100]

я имел виду та происходить краш!!!

[angvelem]

А что ты хочешь, при таком бредовом коде?

[Fokys100]

соглашусь код бредовый. но почему там краш?????

[M.A.D.M.A.N.]

Pathes_Data чему равен? Подозреваю, что Length(Pathes_Data) = 1;