unit4.pas

来自「The mathematic method K-Means with delph」· PAS 代码 · 共 63 行

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ToolWin, ComCtrls,Traitement, CheckLst, Spin;

type
  TForm4 = class(TForm)
    Image1: TImage;
    ToolBar1: TToolBar;
    Button1: TButton;
    SpinEdit1: TSpinEdit;
    StatusBar1: TStatusBar;
    procedure Button1Click(Sender: TObject);
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
  end;

var
  Form4: TForm4;

implementation

{$R *.DFM}

procedure TForm4.Button1Click(Sender: TObject);
var i,j:integer;
C:integer;
Ech,X,Y:real;
begin
TD:=Form2.Data.RecordCount;
k:=Form2.Centre.RecordCount;
Ech:= SpinEdit1.Value;
image1.Canvas.Font.Color:=clblack;
image1.Canvas.Font.Height:=16;
Form2.Data.First;
Form2.Centre.First;
For i:=1 to TD   do
begin
Form2.Centre.First;
For j:=1 to k do
begin
if Form2.data.Fields[0].Asinteger= Form2.Centre.Fields[0].Asinteger then
 begin
 Image1.canvas.brush.color:=clblue+Form2.Centre.Fields[3].Asinteger;
 X:=  Form2.Data.Fields[1].value ;
 Y:=  Form2.Data.Fields[2].value;
 Image1.canvas.Ellipse(Form2.Data.Fields[1].value,Form2.Data.Fields[2].value,15+Form2.Data.Fields[1].value,15+Form2.Data.Fields[2].value);
 Image1.canvas.brush.color:=clred;
 Image1.canvas.rectangle(Form2.Centre.Fields[1].value,Form2.Centre.Fields[2].value,Form2.Centre.Fields[1].value,Form2.Centre.Fields[2].value);
 Image1.Canvas.TextOut(10+Form2.Centre.Fields[1].value,10+Form2.Centre.Fields[2].value,inttostr(j));
 end;
 Form2.Centre.Next;
 end;
 Form2.Data.next;
end;
end;
end.