求助关于Delphi

Question

小弟刚学Delphi语言，遇到两个程序题，那位高手帮忙解答一下，不胜感激！
题一 
 ＿＿＿＿＿date; ＿＿＿＿＿  type  TDate  =  ＿＿＿＿＿    
Public
  Function getYear():integer;
  Function getMonth():integer;
…
Private
  …
Protected
  …
＿＿＿＿＿  ImplementationFunction TDateTime.getYear():integer;
Begin;
＿＿＿＿＿ :=2008;
End;
题二
Unit unit1;Interface
  Uses ………..;
  TForm1 = Class(TForm)
Public
  …
Private
  …
Protected
  Procedure drawIt(canvas:TCanvas);
  Procedure paint;  ＿＿＿＿＿   ;
  Procedure print;
End;
 ＿＿＿＿＿ form1:TForm1;Implementationprocedure TForm1.drawIt(canvas:TCanvas);
begin
  …
end;procedure TForm1.paint;
begin
  …
end;procedure print;
begin
  printer. ＿＿＿＿＿  ;
  drawIt(  ＿＿＿＿＿  );
  printer.  ＿＿＿＿＿  ;
end;
 …
end.
 就是空白的地方需要补填起来，是作业题，帮帮忙！

Answer 1

  unit＿＿＿＿＿date;  interface＿＿＿＿＿type     TDate     =   class  ＿＿＿＿＿
Public
    Function   getYear():integer;
    Function   getMonth():integer;
…
Private
    …
Protected
    …
end;＿＿＿＿＿ImplementationFunction   TDateTime.getYear():integer;
Begin;
Result ＿＿＿＿＿   :=2008;
End;
题二
Unit   unit1;Interface
    Uses   ………..;
    TForm1   =   Class(TForm)
Public
    …
Private
    …
Protected
    Procedure   drawIt(canvas:TCanvas);
    Procedure   paint;     override＿＿＿＿＿       ;
    Procedure   print;
End;
  var ＿＿＿＿＿   form1:TForm1;Implementationprocedure   TForm1.drawIt(canvas:TCanvas);
begin
    …
end;procedure   TForm1.paint;
begin
    …
end;procedure   print;
begin
    printer.   ＿＿＿＿＿     ;
    drawIt(     ＿＿＿＿＿     );
    printer.     ＿＿＿＿＿     ;
end;
  …
end.

Answer 2

unit date; interfacetype           TDate           =       class
Public 
        Function       getYear():integer; 
        Function       getMonth():integer; 
… 
Private 
        … 
Protected 
        … 
end;Implementation Function       TDateTime.getYear():integer; 
Begin; 
Result        :=2008; 
End; 
题二 
Unit       unit1; Interface 
        Uses       ………..; 
        TForm1       =       Class(TForm) 
Public 
        … 
Private 
        … 
Protected 
        Procedure       drawIt(canvas:TCanvas); 
        Procedure       paint;           override; 
        Procedure       print; 
End; 
    var         form1:TForm1; Implementation procedure       TForm1.drawIt(canvas:TCanvas); 
begin 
        … 
end; procedure       TForm1.paint; 
begin 
        … 
end; procedure       print; 
begin 
        printer.      begindoc; 
        drawIt(       form1           ); 
        printer.      enddoc; 
end; 
    … 
end.

Answer 3

procedure               print;   
begin   
                printer.             begindoc;   
                drawIt(               printer                      );   
                printer.             enddoc;   
end;   
        …   
end.

Answer 4

呵呵，楼主，新建一个Delphi项目就可以看得出来了啊。