Я узнал, вот как это сделать: для свойства UsePreprocessor компилятора PascalScript должно быть установлено значение true.Если это так, теперь вы можете использовать следующую команду препроцессора:
{$ I filename.txt}
Также вам нужно реализовать событие OnNeedFile компилятора с помощью чего-то вроде следующего примера, который я нашелв сети:
function TForm1.ceNeedFile(Sender: TObject; const OrginFileName: String;
var FileName, Output: String): Boolean;
var
path: string;
f: TFileStream;
begin
Path := ExtractFilePath(ParamStr(0)) + FileName;
try
F := TFileStream.Create(Path, fmOpenRead or fmShareDenyWrite);
except
Result := false;
exit;
end;
try
SetLength(Output, f.Size);
f.Read(Output[1], Length(Output));
finally
f.Free;
end;
Result := True;
end;