Delphie anfang

[Phoenix]

Delphi-Quellcode:

type
  TDreieck=class
    BezugspunktX,
    BezugspunktY,
    Punkt1X,
    Punkt1Y,
    Punkt2X,
    Punkt2Y,
    Punkt3X,
    Punkt3Y:longint;
    Farbe:TColor;
  public
    constructor Create(Bp1, Bp2, P1x, P1y, P2x, P2y, P3x, P3y: Longint; Farbe: TColor);
  end;

implementation

constructor TDreieck.Create(Bp1, Bp2, P1x, P1y, P2x, P2y, P3x, P3y: Longint; Farbe: TColor);
begin
  BezugspunktX := Bp1;
  BezugspunktY := Bp2;
  Punkt1X := P1x;
  //... so weitermachen und alles zuweisen
end;

procedure Beispielfunktion_um_Instanz_zu_erzeugen;
var MeinDreieck: TDreieck;
begin
  MeinDreieck := TDreieck.Create(1,2,3,4,5,6,7,8, clBlack);
end;