Вызывающие устройства внутри устройства

Question

Я пытаюсь вызвать блок внутри устройства в паскале. Это возможно?

У меня есть блок RailFence и другой блок fileHandlingRailfence

Внутри fileHandlingRailfence, я хочу, чтобы процедуры и функции, доступные RailFence без необходимости копировать и вставлять всю функцию снова. Тем не менее, я получаю сообщение об ошибке при добавлении его в мой список использования.

uses 
    SysUtils; 
    railFence in 'RailFence.pas'; 

Ошибка я получаю

[DCC Error] FileHandlingRailfence.pas(15): E2029 Declaration expected but identifier 'RailFence' found 
[DCC Fatal Error] Proj_RailFence.dpr(7): F2063 Could not compile used unit 'FileHandlingRailfence.pas' 

Любые идеи о том, является ли это вообще возможно?

Answer 1

Синтаксис для использования нескольких устройств: uses Unit1, Unit2, Unit3;. Вы используете точку с запятой.

Delphi разрешает только in (uses Unit1 in 'Unit1.pas';) в файлах проектов, IIRC. Предполагая, что оба блока добавлены в ваш проект, внутри fileHandlingRailfence.pas вы можете просто использовать uses SysUtils, railFence; без указания имени файла устройства.

Answer 2

вам нужна запятая, а не точка с запятой:

uses sysutils, railfense;