Memory-Spiel: Ideen

[XardasLP]

Delphi-Quellcode:

var
  FormSpiel: TFormSpiel;
  ObjektListe: TObjectList;

Wo schreibt man denn die ObjectList hin, wenn sie angeblich bekannt ist?


Also nicht mit einem Panel Feld machen?
https://gyazo.com/7ec9edf38b5e4696cd6bb1c12b748472


Klassen in eine extra Unit?

[Luckie]

Die KartenListe kann eine Eigenschaft von der Klasse TSpielfeld sein.

Wo und wie du die Karten anzeigst ist dir überlassen. Das können Images auf der Form sein. Das können einzelne Panels für jede Karte sein.

Ob du für jede Klasse eine Unit nimmst, bleibt dir überlassen. Ich würde es aber empfehlen.

[XardasLP]

Wegen dem Memory was es von diesem Michael Puff gibt:

Delphi-Quellcode:

type
  TCardStatus = (csBlind, csRevealed, csFound); //Wieso benötigt das keine Klasse?

type
  TCard = class;

  TOnFlip = procedure(Card: TCard) of object; //Wieso benötigt das keine Klasse? Was macht OnFlip?
  TCard = class(TPanel)
  private
    FValue: Integer; //Bezeichnung der Karte erhalten, warum als Zahl?
    FStatus: TCardStatus; //verdeckt, aufgedeckt, gefunden
    FOnFlip: TOnFlip; //Was macht OnFlip?
    function GetValue: Integer; //Bezeichnung der Karte erhalten, warum als Zahl?
    procedure SetValue(Value: Integer); //Wieso muss der Kartenname geändert werden, warum als Zahl?
    function GetStatus: TCardStatus;
    procedure SetStatus(Value: TCardStatus);
    procedure Click(Sender: TObject); reintroduce; //Wird eine als virtual deklarierte Methode verdeckt (d.h. in einer abgeleiteten Klasse wird eine gleichnamige Methode deklariert, die nicht mit der override-Direktive versehen ist), gibt der Delphi-Compiler Warnungen aus. Um die Warnung zu verhindern, wird die neue Methode, die die virtuelle Methode verdecken soll, mit reintroduce gekennzeichnet.
    property OnFlip: TOnFlip read FOnFlip write FOnFlip; //Was macht "property" auch noch nie verwendet bisher.
  public
    constructor Create(Owner: TComponent); override;
    property Value: Integer read GetValue write SetValue; //Was macht "property" auch noch nie verwendet bisher.
    property Status: TCardStatus read GetStatus write SetStatus; //Was macht "property" auch noch nie verwendet bisher.
  end;

[DeddyH]

Vielleicht hilft das hier weiter: http://downloads.delphi-treff.de/DelphiStarter.pdf

[XardasLP]

STRG+F

Suchen nach "Flip" oder "OnFlip" beides keine Treffer. also nein ist nicht hilfreich

Aber ansonsten kann man dort ja immer mal reinschauen.

Es gibt welche die machen einen Trainer für Fahrschulfragen.
Den kann ich mir auch ohne eine einzige Klasse zusammenklicken. Ist einfach unfair. Der eine nimmt Snake, programmiert das von YT nach und fertig. Der andere nimmt Tetris, programmiert das von YT nach und fertig.

Also so ist Schulzeit. Das was die Lehrer nicht wissen sollen wir uns selbst aneignen. Machen ja schließlich Abitur, da gehört das ja dazu. Das die Lehrer ihr Wissen über die Jahre verlegt haben und jedes Jahr die gleichen Qelltexte abschreiben ist ja egal.

[Luckie]

Zitat von XardasLP:

STRG+F

Suchen nach "Flip" oder "OnFlip" beides keine Treffer. also nein ist nicht hilfreich

Das ist jetzt nicht dein Ernst? Das ist ein selbst definiertes Ereignis. Das nennt man dann "programmieren".

[DeddyH]

Mit STRG+F sucht man übrigens in der aktuellen Unit, die Hilfe wird Windows-üblich mit F1 geöffnet.

[Luckie]

Boah. Das Programm habe ich vor sieben oder mehr Jahren geschrieben.

Als erstes: Wenn dir Schlüsselwörter nichts sagen, guck bitte in der Hilfe oder nutze das Internet. Und hättest du dir mein Klassen Tutorial mal angeguckt, würden sich schon viele Fragen von selbst beantworten.

TCardStatus = (csBlind, csRevealed, csFound); //Wieso benötigt das keine Klasse? Weil es eine Typ-/Mengendeklaration ist.

TOnFlip = procedure(Card: TCard) of object; //Wieso benötigt das keine Klasse? Was macht OnFlip? Weil es eine Ereignisdeklaration ist. Das Ereignis wird ausgelöst, wenn eine Karte aufgedeckt wird. Da muss ja was passieren: ist es die erste Karte oder die zweite? Sind sie gleich oder ungleich....

FValue: Integer; //Bezeichnung der Karte erhalten, warum als Zahl? Weil ich keine Lust hatte mich mit Grafiken runzuschlagen.

function GetValue: Integer; //Bezeichnung der Karte erhalten, warum als Zahl? Siehe oben. Der Einfachheithalber habe ich Zahlen benutzt anstatt Grafiken.

procedure SetValue(Value: Integer); //Wieso muss der Kartenname geändert werden, warum als Zahl? Die Karte muss ja einen Wert erhalten bzw. eine Grafik.

procedure Click(Sender: TObject); reintroduce; //Wird eine als virtual deklarierte Methode verdeckt (d.h. in einer abgeleiteten Klasse wird eine gleichnamige Methode deklariert, die nicht mit der override-Direktive versehen ist), gibt der Delphi-Compiler Warnungen aus. Um die Warnung zu verhindern, wird die neue Methode, die die virtuelle Methode verdecken soll, mit reintroduce gekennzeichnet. Ist der Kommentar von dir oder von mir? Aber Hilfe lesen hilft.

property Siehe Hilfe oder jedes beliebige Tutorial über Klassen.

[XardasLP]

Zitat:

Ist der Kommentar von dir oder von mir? Aber Hilfe lesen hilft.

der ist von der Delphi Treff Seite kopiert