Pong programmieren

[Mesion]

Vielen Dank für deine Antwort Blup

Aber ich habe eine Frage: TGeschwindigkeit ist bei dir ja eine eigene Klasse, aber wie kann die dann auf ,,derBall'' zugreifen, bzw. wie müsste ich das in mein Programm einbinden?

MfG Mesion

[DeddyH]

Ich habe den Code nicht im Einzelnen verfolgt, aber soweit ich das richtig sehe, ist es genau andersherum: der Ball verfügt über ein privates Feld oder eine Property vom Typ TGeschwindigkeit. Also greift der Ball auf die Geschwindigkeit zurück und nicht umgekehrt.

[Mesion]

Danke für deine Antwort DeddyH
Und was hat das mit dem record auf sich?
Könnte ich nicht auch einfach die 4 Variablen und Methoden direkt in derBall einfügen?

MfG Mesion

[DeddyH]

Kannst Du schon, aber mit dem Record hast Du die zugehörige X- und Y-Koordinate gleich zusammen.

[Mesion]

Das verstehe ich jetzt nicht so ganz, wo da der Unterschied.
Das wäre voll nett von dir, wenn du mir das erklären könntest.
Wofür steht das record überhaupt?

MfG Mesion

[Bummi]

Ein Record ist ein von Dir neu definierter Variablentyp der verschiedenste Variablen beinhalten kann. Er eignet sich hiedurch für einfache Zuweisungen und Arrays, mit Generics auf für Listen.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TAdresse=Record
     Name:String;
     Vorname:String;
     Gehalt:Currency;
     Geboren:TDateTime;
  End;
  TAdressArray=Array of TAdresse;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
  AdressArray:TAdressArray
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLength(AdressArray,5);
  AdressArray[0].Name := 'Maier';
  AdressArray[0].Vorname := 'Klaus';
  AdressArray[1].Name := 'Huber';
  AdressArray[1].Vorname := 'Peter';
  AdressArray[2] := AdressArray[0];
  AdressArray[3] := AdressArray[1];
  Showmessage(AdressArray[2].Name + '-' + AdressArray[3].Name);
  // sowas geht nicht
  //if  AdressArray[0]= AdressArray[2] then
  // hier muß es dann Heißen
  if (AdressArray[0].Name = AdressArray[1].Name) and
    (AdressArray[0].VorName = AdressArray[1].VorName) then
      begin

      end;
end;

end.

[Blup]

Du kannst natürlich auch dx und dy als einzelne Member/Property deklarieren.
Aber so ist es übersichtlicher, z.B. so:

Delphi-Quellcode:

type
  TGeschwindigeit: record
    dx, dy: Double;
  end;

  derBall = class({z.B. TObject})
  private
    FGeschwindigkeit: TGeschwindigkeit;
    {... weite Member ...} 
  public
    procedure Bandenkollision;
    procedure Schlägerkollision;
    function  bewegt_sich_nach_links : Boolean;
    function  bewegt_sich_nach_rechts : Boolean;
    function  bewegt_sich_nach_oben : Boolean;
    function  bewegt_sich_nach_unten : Boolean;
    procedure bewegeDich;
    {... weite Methoden ...} 
    property Geschwindigeit: TGeschwindigeit read FGeschwindigeit write FGeschwindigeit;
    {... weite Eigenschaften ...} 
  end;