Pong programmieren

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