Для того, чтобы открывать более 15 файлов одновременно, используйте в программе модуль (приведенный ниже), позволяющий открывать одновременно до 255 файлов:
{$IFDEF DPMI} STOP COMPILE ! Only for real mode ! {$ENDIF} Unit Extend; {(C) 1996 by Pavel Nikiforov} interface implementation procedure Setup; type PJFT=^TJFT; TJFT=record Num:word; Tbl:PChar; end; var MyJFT:PChar; P:PJFT; begin getmem(MyJFT,255); FillChar(MyJFT[0],255,$FF); P:=Ptr(PrefixSeg,$32); move(P^.TBL^,MyJFT^,P^.Num); P^.TBL:=MyJFT; P^.Num:=255; end; begin Setup; end.
