unit1.pas

Delphi7应用编程150例 附书源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Sect:Integer;
  x:Array[0..30] of Integer;
  y:Array[0..30] of Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
    i:Integer;
    r:Real;
begin
    self.ClientHeight:=200;
    self.ClientWidth:=200;

    r:=self.ClientWidth/2;
    Sect:=20;

    for i:=0 to Sect-1 do
    begin
        x[i]:=Trunc(r*Cos(i*2*PI/Sect)+self.ClientWidth/2);
        y[i]:=Trunc(r*Sin(i*2*PI/Sect)+self.ClientHeight /2);
    end;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
    i,j:Integer;
begin
    for i:=0 to Sect-2 do
    begin
        for j:=0 to Sect-1 do
        begin
            self.Canvas.MoveTo(x[i],y[i]);
            self.Canvas.LineTo(x[j],y[j]);
        end;
    end;
end;

end.