Zwei Fragen zum ersten Programm

[DeddyH]

Mit einer case-Abfrage ließe sich das schon enorm kürzen:

Delphi-Quellcode:

case aktFeld1 of
  1..5: begin
          //Code
        end;
  6..9: begin
          //Code
        end;
...
end;

[Bausch]

Zitat:

Zitat von DeddyH

Mit einer case-Abfrage ließe sich das schon enorm kürzen:

Delphi-Quellcode:

case aktFeld1 of
  1..5: begin
          //Code
        end;
  6..9: begin
          //Code
        end;
...
end;

Danke, das hat es tatsächlich gebracht :D Das Problem mit der Miete bleibt trotzdem :/

[Sherlock]

Was ist noch gleich das Problem mit der Miete?

:gruebel:

Sherlock

[Bausch]

Zitat:

Ich hab jetzt auch einen zweiten Spieler eingeführt (sieht man auch an den verschiedenen Bezeichnungen), aber jetzt stehe ich vor dem Problem, dass ja nur einer Miete zahlen soll, wenn er auf das bereits gekaufte Feld kommt; nämlich der, der es nicht gekauft hat - der Mieter eben :D
Der, der es gekauft hat, muss momentan bei mir auch Miete zahlen, was ja dem Spielprinzip nicht entgegenkommt ;) Wie kann ich das nun einem bestimmten Spieler zuweisen?

Hab ich oben geschrieben^^. Es ist halt so, dass einem Spieler ab dem Kauf das Feld gehört - aber wie soll ich das kennzeichnen?

[Sherlock]

Ah, alles klar. Spätestens jetzt wirst Du um eine Datenstruktur nicht herumkommen.
Also ausgehend von Matzes Vorschlag:

Zitat:

Zitat von Matze

Delphi-Quellcode:

type
  TFeld: record
    Img: TImage;
    Gekauft: Boolean;
  end;

var
  Felder: array[1..16] of TFeld;

Dann kannst du so darauf zugreifen:

Delphi-Quellcode:

if Felder[aktFeld].Gekauft then

Setzt Du noch ein Feld Eigentümer in den Record, daß Du dann entsprechend füllen und abfragen musst.

Delphi-Quellcode:

type
  TFeld: record
    Img: TImage;
    Gekauft: Boolean;
    Eigentuemer: Integer;  // 0 = kein Eigentümer, 1 = Spieler1, 2 = Spieler2 etc.
  end;

Sherlock

[implementation]

Oder mit Klassen (wie oben beschrieben). Dann kann auch eine Linklist benutzt werden.

[Bausch]

Ah ok, ich seh worauf das hinausläuft. Mir stellen sich jetzt nur so grundsätzliche Fragen, wie z.B. "Wo wird das ganze genau deklariert?". Unser Lehrer hatte record mal ganz kurz erwähnt, aber richtig angewendet natürlich nicht -.-

[implementation]

Delphi-Quellcode:

unit xyz;

interface

uses ...;

type
  TExampleRecord = record
    Feld1: Typ;
  end;
  TExampleObject = object (Vorfahr)
    Feld1: Typ;
  end;
  TExampleClass = class (Vorfahr)
    Feld1: Typ;
  end;

var
  ExampleREcord: TExampleRecord;
  AnotherRecord: record
    Feld1: Typ;
  end;
  ExampleObject: TExampleObject;
  ExampleClass: TExampleClass;

implementation

...

ExampleRecord.Feld1 := AnotherRecord.Feld1;

...

end.