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

[Fokys100]

все тема закрыта. Я работаю через вин апи и все норм!!!!

[angvelem]

Нет, люди вопросы задают, а ответы читать не желают. Ведь сразу ответил о возможной причине.

[Fokys100]

причина била не в этом я проверял!!!!!

[angvelem]

Offtop:
И кого причина била?

[Fokys100]

незн!!! мне просто надоело искать ошибку и я подумал луче использовать вин апи!!! и это оказалось проще!!!

[lmikle]

Сообщение от Fokys100

незн!!! мне просто надоело искать ошибку и я подумал луче использовать вин апи!!! и это оказалось проще!!!

Ошибка в хромосомах автора кода.
Если идет копирование списка файлов, то надо сделать процедуру, которая обрабатывает ОДИН файл, а потом просто в цикле вызвать ее для списка файлов.
Не считая того, что для копирования файла есть процедура CopyFile.