                              9.

                             .

        -    ꥪ  Turbo  Vision,      㤥
࠭ ꥪ,    ⥬  뤠   .   ணࠬ
  ⥬  ꥪ        ⮣,  ⮡
樠஢ .    ࠧ    ணࠬ   ⮣,
⮡ 樠஢ ᯮ㥬 ꥪ,   ᯮ짮 
 ,  ᮧ ⤥쭮 ணࠬ.
      堭 筮 :  䠩  ᮢ  ࠡ⠥  
⮪       㯮,      ꥪ⠬    砬  -
㭨 ப, 騬 .
      ⫨稥    㣨  ⥩ Turbo Vision ,  ⭮,  
ॡ  堭  ᮢ.  , ।⠢塞
Turbo Vision,   .  室   .


                   祣 ᯮ ?

     ᯮ짮 䠩    २.
     ᯮ짮 ᮢ          ࠨ   
ணࠬ   .  ਬ,  ⥪  ,  ⪨
⮢ ,  梥    ⮢     祭 
.
        㬥 ,  ⨢ Init   ꥪ⮢ 
⤥ ணࠬ.  樠  뢠 筮 ᫮
 ᮤন ᫥  㣨 樨,     뭥
 襣 .   ⠥ ⮫쪮 ᯮ짮 Load   
ꥪ   襩  ணࠬ,   㧪 ᥣ ⥫쭮 ,
祬 Init.    㬥        8    10  業⮢,
ᯮ .
     ᯮ짮  ⠪  頥 প  ᨩ  襩
ணࠬ, ࠨ      ࠧ   모.    ணࠬ
㦠 ꥪ  ,   ,    ஬    ⮡ࠦ,
祭  .
     ᫨    ।⠢  ᨨ  ணࠬ    ࠧ묨
ﬨ,  , ਬ, ࠧࠡ 2  , 
  ।⠢     ᥬ  ,    㣮
।⠢   ⮫쪮    ࠭祭  㭪権.  
⮣   ॡ ९뢠      㦭 
砩 㤠 㦭  .   ࠨ ணࠬ
  㭪樮쭮 ।⠢  ⮫쪮    
  ᥩ ணࠬ.
     ,       ।⠢   ꥪ⮢    襩
ணࠬ  頥  .


                            ?

      ⮣,   ᬠਢ ⠫ ᮢ,    
᢮ ⮪    樨,  ᪮  堭    ப
ᯮ .    ᯮ짮          
ࠡ,   ᫨    ᮡࠥ  ,   ॡ 
.
     TResoureFile ᮤন   ஢     ப  
⮪. ப    樨  -        ꥪ⠬    ⮪.
TResourceFile   ⮤  Init,    ⮪  ⮤ Get,
  ப  頥 ꥪ.


                          .

      䠩   믮  4 ⠯.   室
 ⮪,  樠஢  䠩      ⨬   ⮪,
࠭    ꥪ⮢   砬   .
     騩  ᮧ ⮩ 䠩   MY.REZ, ᮤঠ騩
 : ப   祬 'Waldo':

     program BuildResourse;

     uses Drivers, Objects, Views, App, Menus;

     type
       PHaltStream = ^THaltStream;
       THaltStream = object(TBufStream)
         procedure Error(Code, Info: Integer);virtual;
       end;

     var
       MyRez: TResourceFile;
       MyStrm: PHaltStream;

     procedure THaltStream.Error(Code, Info: Integer);
     begin
       Writeln('Stream error: ', Code, ' (', Info, ')');
       Halt(1);
     end;

     procedure CreateStatusLine;
     var
       StatusLine: PStatusLine;
     begin
       StatusLine := New(PStatusLine, Init( 0,$FFFF,
         NewStatusItem('~Alt-X~ Exit', AltX, cmQuit,
         NewStatusItem('~F3~ Open', F3Key, cmNewDlg,
         NewStatusItem('~F5~ Zoom', F5Key, cmZoom,
         NewStatusItem('~Alt-F3~ Close', AltF3, cmClose,
         nil))))
       ));
       MyRez.Put(StatusLine, 'Waldo');
       Dispose(StatusLine, Done);
     end;

     begin
       MyStrm := New(PHaltStream, Init('MY.REZ', stCreate, 1024));
       MyRez.Init(MyStrm);
       CreateStatusLine;
       MyRez.Done;
     end.


                          ⥭ .

        䠩  ⠪  ,    
ꥪ   ⮪:    뢠 㭪 Get 䠩  
祬 ॡ㥬 . Get 頥 㪠⥫  PObject.
      ப ,  ᮧ  ।饬 ਬ,  
 祭:

     program MyApp;

     uses Objects, Drivers, Views, Menus, Dialogs, App;

     var
       MyRez: TResourceFile;

     type
       PMyApp = ^TMyApp;
       TMyApp = object(TApplication)
         constructor Init;
         procedure InitStatusLine; virtual;
       end;

     constructor TMyApp.Init;
     var
       S: PStream;
       FileName: PathStr;
       Event: TEvent;
     const
       MyRezFileName: PathStr = 'MY.REZ';
     begin
       MyRez.Init(New(PBufStream, Init(MyRezFileName, stOpen,
                      1024)));
       if MyRez.Stream^.Status <> 0 then Halt(1);
       TApplication.Init;
     end;

     procedure TMyApp.InitStatusLine;
     begin
       StatusLine := PStatusLine(MyRez.Get('Waldo'));
     end;

       ⠥  ꥪ,     
祭 nil 㪠⥫.  ᫨   ७ (..  ᫨ 
  ⠪ 祬) Get 頥 nil.   ᫥ ⮣, 
  㤥 ⫠,  쭥襬    ஡.
        뢠  ꥪ    ୮.     
    ப      襬  ਬ,  
ਬ     ⠭ 짮⥫  ࠧ
 ६  믮  ணࠬ.      ﭭ  뤠
ꥪ  .
      ⥭樠쭮    ਢ    ஡    
᪮ /      ᫨  䠩    ਧ.    
㢥 ਧ  ᪮஢ ⮪  EMS ⮪,  ᫨  EMS
⠫஢.


                           ᮪ ப.

        ⠭⭮ 堭  ,  Turbo  Vision
।⠢    ᯥ樠஢   ꥪ⮢    ࠢ
ᯨ᪠ ப.  ᮪ ப -    ᯥ樠  ,  
 襩   ணࠬ      ப  ᠬ  
ࠬ (筮   ।⠢묨   楫묨   ⠭⠬)    
ப 祩.    ணࠬ ࠭ ப  䠩
  饭 ன.
     ਬ, IDE  Turbo Pascal ᯮ ꥪ ᯨ᪠ ப 
 ᮮ饭  訡.  砥,  ணࠬ  
맢 ᮮ饭     訡        ࠧ  ᨨ  
ࠧ ࠭  롨 ࠧ ப   ᮢ.
     ꥪ ᯨ᪠  ப  ஥஢   祭 ,   祭
  㤮  ࠢ쭮 ᯮ짮.
     ꥪ TStringList  ᯮ  㯠  ப.  ⮡
ᮧ ᯨ᮪ ப, 室 ᯮ짮 ꥪ TStrListMaker.
 ॣ樨      ꥪ⮢    ⨯
ꥪ.
     ꥪ ᯨ᪠   ப       ⮤  Init.  ᯮ
⢥ ࠪ  -  ⮤  Load,  ᪮  ᯨ᪨  ப
 ⮫쪮   䠩 .  筮,  ᪮ ᯨ᮪
ப -   ⮫쪮  ⥭,    㭪 Get,   
 楤 Put.


                       ᯨ᪮ ப.

      ꥪ TStrListMaker  ᯮ    ᮧ  ᯨ᪠
ப  䠩   ᫥饣 ᯮ짮  TStringList.
 ⨢  ⮬  ᯨ  ப,       ⮫쪮
, ᮧ  ᯨ᮪ ப  ⮫쪮 뢠.  ,
            ᮧ   ᯨ᪠   ப   -   
樠஢  ᯨ᮪  ப,  ᫥⥫쭮 뢠  
ப  ࠭ १騩 ᯨ᮪  ⮪.
