Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   ЧАВО - Частые Вопросы и Ответы    >>    morefile
   
 
 FIL. Как открыть больше 15 файлов одновременно   Sly Golovanov 27.12.1997

Что нужно делать, если требуется открывать более 15 файлов одновременно.


 
 

Pascal FAQ created by SLY Golovanov, 2:5020/278.13 (slightly corrected by Valery Votintsev 2:5021/22) ============================================================================== Q: А почему одновременно больше 14 файлов Borland Pascal не открывает? A: Используйте в вашей программе вот такой модуль. Можете до 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. --- * Origin: (2:5020/794.13)