Программирование / Лабораторные / климов_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.