Räuber-Beute-Simulation Hilfe, Klassen, Arrays

[FrauNagel]

Code:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type
TReh=class
  private



  public
  TRehanzahl: array[1..5000,1..12,1..2]of integer;
  procedure FortpflanzungReh(Rehanzahl: array of integer);

end;
TWolf=class
private

public

TWolfanzahl: array[1..5000,1..12,1..2]of integer;
procedure FortpflanzungWolf(Wolfanzahl: array of integer);
procedure Fressen(Rehanzahl: array of integer);
end;


  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    ListBox1: TListBox;
    ListBox2: TListBox;
    ScrollBar1: TScrollBar;
    ScrollBar2: TScrollBar;
    procedure FormCreate(Sender: TObject);
    procedure ScrollBar1Change(Sender: TObject);
    procedure ScrollBar2Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  n:integer;
  //TRehanzahl: array[1..5000,1..12,1..2]of integer;
  Rehliste: file of integer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
assignfile(Rehliste,'C:\Users\Thorsten\Desktop\Lazarus Projekte\Informatik Räuber Beute\Rehliste.dat')
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  label4.caption:=IntToStr(scrollbar1.position);
end;

procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
  label5.caption:=IntToStr(scrollbar2.position);
end;

procedure TReh.FortpflanzungReh(Rehanzahl:array of integer);
var
  Nachkommen: integer;
  Geschlecht: integer;
  i,k,l,m: integer;
  j: integer;
begin
  n:= filesize(Rehliste);
   for k:= 0 to n do begin
         for l:=3 to 12 do begin
                     TRehAnzahl[k,l,1]
end;
         end;

  //for := TRehanzahl[0..0,3..12,1] to TRehanzahl[n..n,3..12,1] do begin
         Nachkommen:= random(4);
               for j:= 1 to Nachkommen do begin
                Geschlecht := random(1)+1;
                  seek(Rehliste,filesize(Rehliste));
                  write(Rehliste,filepos(Rehliste),1,Geschlecht)
               end;
     //end;
end;

procedure TWolf.FortpflanzungWolf(Wolfanzahl:array of integer);
begin

  end;

procedure TWolf.Fressen(Rehanzahl:array of integer);
begin

end;

end.

Vor allem mit der Deklaration der Liste in Verbindung mit den Klassen habe ich Probleme. Die For Schleife bei Nachkommen funktionieren auch nicht.

Bitte Helft mir