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

Seite 1 von 3

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)

- - Räuber-Beute-Simulation Hilfe, Klassen, Arrays (https://www.delphipraxis.net/191054-raeuber-beute-simulation-hilfe-klassen-arrays.html)

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

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 :thumb::thumb::thumb::thumb::thumb::thumb::thumb: