Pong programmieren

[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;

[Mesion]

Guten Tag,

Vielen Dank für eure Antworten, das Forum hier ist echt super

Ich habe jetzt einfach in derBall 2 Variablen eingefügt, also GeschwindigkeitX und GeschwindigkeitY und die neuen Methoden.
Erst hat sich der Ball nicht bewegt, aber dann habe ich gemerkt, dass in der BewegeDich-Methode noch gefehlt hat, dass sich der Stift auf die XKoordinate und YKoordinate bewegt.
Jetzt fliegt der Ball und prallt auch immer an den Schlägern ab, aber ein Problem gibt es trotzdem noch.
Der Ball prallt nicht nur an den Schlägern und der Bande ab, sondern auch auf bestimmten XKoordinaten auf dem Spielfeld, aber nur, wenn sich der Schläger auf der anderen Seite auf der gleichen YKoordinate befindet, wie der Ball.

Hoffentlich konnte ich das halbwegs verständlich erklären ^^

[Blup]

Zitat von Mesion:

Der Ball prallt nicht nur an den Schlägern und der Bande ab, sondern auch auf bestimmten XKoordinaten auf dem Spielfeld, aber nur, wenn sich der Schläger auf der anderen Seite auf der gleichen YKoordinate befindet, wie der Ball.

Dieser Vergleich hat noch nicht gestimmt:

Delphi-Quellcode:

      If (derBall.XKoordinate <= (Schlaeger1.XKoordinate + Schlaeger1.Breite))
      and (derBall.YKoordinate >= Schlaeger1.YKoordinate)
      and (derBall.YKoordinate <= (Schlaeger1.YKoordinate+Schlaeger1.Laenge)) then