请教：过程该如何写，最好有详细说明的，谢谢

Question

同上

Answer 1

unit n;interfaceuses
  Windows,Forms,Graphics,Classes,ExtCtrls;type
  TF=class(TForm)
    m:TTimer;
    procedure mTimer(Sender:TObject);
  end;var
  F:TF;
  a:Byte;implementation{$R *.DFM}procedure c(X,Y:Integer;t:TCanvas);stdcall;
begin
  a:=a shl 1;
  if a =0 then a:=1;
  if (a and 224)>0 then
    t.Pixels[X,Y]:=clWhite
  else
    t.Pixels[X,Y]:=clBlack;
end;procedure TF.mTimer(Sender:TObject);
begin
  LineDDA(0,0,333,333,@c,LongInt(Canvas));
end;end.

Answer 2

unit n;
interface
uses
  Windows,Forms,Graphics,Classes,ExtCtrls;
type
  ...
  end;var
  procedure abc(s : String) ;
implementation{$R *.DFM}procedure abc(s : String) ;
begin
  ShowMessage(s) ;
end;
end.找本书看看