Программирование / Лабораторные / климов_1 / объекты

uses crt,prog1;


type
       TObject=object {®б­®ў­®© Ў §®ўл© ўЁавг «м­л© Є« бб }
        constructor Init;
        destructor Done;virtual;
       end;

       TProgram=object(Tobject) { Є« бб Їа®Ја ¬¬  ¤«п а Ў®вл Їа®Ја ¬¬л}
       private
       public

       public
            constructor Init;
            procedure Run;virtual;
            procedure Menu;virtual;
            procedure Show;
            destructor Done;virtual;
          end;

       TApplication=object( TProgram) { Є« бб Їа®Ја ¬¬  ¤«п а Ў®вл Їа®Ја ¬¬л}
       private

       public
            constructor Init;
            procedure Run;virtual;
            procedure Menu;virtual;
            procedure HandleEvent(var key:char);virtual;
            destructor Done;virtual;
           end;
{------------------------------------------------------------------------}
       constructor  TObject.Init;{Ў §®ўл© Є« бб, Є®­бвагЄв®а ­Ґ ¬®¦Ґв Ўлвм ўЁавг «}
       begin
       end;

       destructor  TObject.Done;{virtual;{Ў §®ўл© Є« бб}
       begin
       end;
{------------------------------------------------------------------------}
       constructor TProgram.Init;
       var i:integer;
       begin
       inherited init;
       for i:=1 to 20 do
       begin
           Car.Init('',0,0);
           cont[i]:=car;
       end;
        count:=0;
       end;

       procedure TProgram.Run;
       begin
       end;

       procedure TProgram.Menu;
       var i:integer;
       begin
       clrscr;
       gotoxy(1,23);
         for i:=1 to 80 do  write('-');{}
       gotoxy(1,1);
       gotoxy(1,1);
         for i:=1 to 80 do  write('-');{}
       gotoxy(1,1);
       end;

       procedure TProgram.Show;
       begin

       end;

       destructor TProgram.Done;
       begin
         clrscr;
       end;
{------------------------------------------------------------------------}
       constructor TApplication.Init;
       var i:integer;
       begin
          inherited init;
       end;

       procedure TApplication.Run;
       var  key:char;
       begin
         menu;
         handleevent(key);
       end;

       procedure TApplication.HandleEvent(var key:char);
       begin
          repeat
          Menu;
          key:=readkey;
               case ord(key) of
                 061: car.show;
                 062: car.Add;
                 063: car.Delet;
                 064: car.sort;
               end;
          until key=#27;
       end;

       procedure TApplication.Menu;
       begin
          clrscr;
          inherited Menu;
          gotoxy(2,24);
          write(' ESC - ‚л室 ');{}
          write('  F3 - Џа®б¬®ва ');{}
          write('  F4 - „®Ў ўЁвм ');{}
          write('  F5 - “¤ «Ёвм ');{}
          write('  F6 - ‘®авЁа®ў вм ');{}

       end;

       destructor TApplication.Done;
       begin
       end;
{------------------------------------------------------------------------}



Var app:TApplication;

begin
app.Init;
app.Run;
app.Done;
end.