1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TMainForm.FormCreate(Sender: TObject);
begin
path := ExtractFilePath(Application.ExeName);   //speichert den Pfad der Exe-datei in einer String-variable (ein "/" ist dabei schon hintendran)
.
.
.
end;


procedure TMainForm.BitBtn2Click(Sender: TObject);
begin
.
.
.
with BitBtn2 do
      begin
      Glyph.LoadFromFile(path + 'Pictures\Maximize.bmp');
      Caption := 'Vollbild';
      end;
.
.
.
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

procedure TMainForm.IdleHandler(Sender: TObject; var Done: Boolean);
var
  i: integer;
  tmp, ReflectionLine: TLine;
  P1, P2: TVector2D;
  Collision: Boolean;
begin
  Collision := False;
  timestep := CalcTimestep(CalcTime, Frequency);
  if moving then
    begin
    tmp := to_line(Gameball.m, V2d.scale(Gameball.v, timestep));

    for i := 1 to 4 do
      if not Collision and V2d.BallLineCollision(Gameball, tmp.r, lines[i]) then              // Collision mit den Außenwänden?    
        begin                                                                               
        Gameball.v := V2d.Reflect(Gameball.v, lines[i].r);
        Gameball.contacts := Gameball.contacts + 1;
        Collision := True;
        end;

    for i := high(Barricades) downto 1 do                                                      // Oder Collision mit einem der Hindernisse?
      if v2d.BallBarrCollision(Gameball, tmp.r, Barricades[i], ReflectionLine) then
          Gameball.v := v2d.reflect(Gameball.v, ReflectionLine.r);

    if not Collision and V2d.BallHoleTouch(Gameball, Goal) then Gameball.v := V2d.add(Gameball.v, V2d.sub(Goal.m, Gameball.m));          // Oder berührt der Mittelpunkt des Spielballs das Loch?

    Gameball.m := V2d.add(Gameball.m, V2d.scale(Gameball.v, timestep));                        // Berechnet die neue Position
    end;

  Paintbox1.Invalidate;


  if (V2d.length(Gameball.v) < 600) and V2d.BallInHole(Gameball, Goal) then
    begin
    Moving := True;
    Application.OnIdle := Nil;
    CLf := 80;
    Paintbox1.Invalidate;
    showawards;
    BitBtn3.Enabled := True;
    end;

  if not Moving then Paintbox1.Cursor := crCross
    else if Moving then                                      // Geschwindigkeitsabnahme:
      begin
      QueryPerformanceCounter(Gameball.tn);                                 // Zählt Schwingungen zu diesem Moment
      Gameball.t := (Gameball.tn - Gameball.t0) / Frequency;                // Berechnet Zeit von Beginn des Schusses bis jetzt
      Gameball.length := (-200) * Gameball.t + V2d.length(Gameball.v0);     // Länge = Wiederstand(variabel) * Zeit + Geschwindigkeit am Anfang des Schusses
      Gameball.v := V2d.scale(V2d.normalize(Gameball.v), Gameball.length);  // Ermittelt per neue Länge den neuen Vektor

      if Gameball.length < 0.2 then                                         // Damit er nicht ins unendlich Minimale geht, wird ab 0.2 auf 0 gerundet
        begin
        Gameball.v := V2d.scale(Gameball.v,0);
        Moving := False;
        end;
      end;

  if (V2d.length(Gameball.v) = 0) then Moving := False                      // Bewegt sich die Kugel?
    else Moving := True;					

1:
2:
3:
4:

class function V2d.Length(v: TVector2d): extended;
begin
  result := sqrt(v.x * v.x + v.y * v.y);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

uses Windows, ..., Vectors(Vektor-unit), Minigolf( geplante Minigolf-unit);
.
var 
  TMainForm: MinigolfForm;                     // Dieses MinigolfForm soll dann durch die "Minigolf-unit" erstellt
  Barricades: array[1..1] of TBarricade;         // Hindernisse
  Circles: array[1..1] of TCircle;                 // runde Hindernisse
  Pushareas: array[1..1] of TBarricade;           // "Schubgebiete"
  Lines: array[1..4] of TLine;                   // 4 Außenwände
.
.
.
procedure TMainform.OnCreate;
begin
...                                              // liest Daten aus Textdatei
SetLength(Barricades,...); 
SetLength(Circles,...);
SetLength(Pushareas,...);
if Barricades[0] = 0 then                        // falls das Level keine Hindernisse beinhaltet, dann wird der anfang auf 0 gesetzt und keine Hindernisse werden deklariert
  begin
  Barricades[1] := ...
  .
  .
  .