一个console application,a piece of cake

Question

我想把这个过程写在unit1.pas中
然后在first.dpr中调用这个过程，该怎样用啊？
你们能不能把这两个文件都贴出来啊？procedure printhead;
var
   i:integer;
begin
   for i:=1 to 21 do
      write('*');
   writeln;
   writeln('* this is the table *');
   for i:=1 to 21 do
      write('*');
   writeln;
end;

Answer 1

或者，uses unit1;直接用函数

Answer 2

program Project2;{$APPTYPE CONSOLE}uses
  SysUtils,
  Unit1 in 'Unit1.pas';begin
  unit1.printhead();
end.unit Unit1;interface
  procedure printhead;
implementationprocedure printhead;
var
   i:integer;
begin
   for i:=1 to 21 do
      write('*');
   writeln;
   writeln('* this is the table *');
   for i:=1 to 21 do
      write('*');
   writeln;
end;
end.