Array aus Labeln mit Events

[sx2008]

Zitat:

Zitat von wovo (Beitrag 1234361)

Es sollen 48 einzele Label erzeugt werden mit 48 einzelnen Events. Später kommen noch mal 48 weitere ähnliche Label hinzu.

Warum redest du keinen Klartext?
Brauchst du das für ein Spiel oder soll es eine Art Kreuzverteiler werden?
Ist das Layout immer rechtwinklig mit 4 * 12 Zellen?

[Sir Rufo]

@wovo

Warum hast du denn nicht auch die Methode

Delphi-Quellcode:

LabelsClick

aus meinem Quelltext übernommen?

Wenn du die im Interface deklarierst, dann muss du die auch implementieren

[wovo]

Hallo!
Bzgl. Klartext : Ja, es geht um ein Spiel (Mastermind).
Und das Layout ist immer rechtwinklig mit 4x12 Zeilen.

@Sir Rufo : Ich hatte schon versucht, die besagte Methode zu implementieren (Im Quelltext steht sie, als Kommentar wegen Fehlermeldung).
Einer meiner Fehler war sicher, deinen Vorschlag nicht direkt übernommen zu haben. Es war der Versuch, von meinem Quellcode auszugehen.
Man sieht, ich verstehe die Zusammenhänge (noch) nicht.

Ich werde weiter basteln.
Aber vielen Dank für die Unterstützung.

Nebenbei: Primitiv programmiert - also statt for-Schleifen alles einzeln formuliert - klappt es inzwischen prima. Nur eben nicht so elegant bzw. professionell :-(

Gruß wovo

[Blup]

Zitat:

@Sir Rufo : Ich hatte schon versucht, die besagte Methode zu implementieren (Im Quelltext steht sie, als Kommentar wegen Fehlermeldung).

Der auskommentierte Quelltext ist eine Deklaration. Was fehlt ist die Implementation, das bemängelt auch der Compiler.
Bitte informiere dich über die Bedeutung dieser Schlüsselwörter, diese gehören zu den Grundlagen für das Verständnis von Programmiersprachen.

Zitat:

Der Zyklus soll für jedes Label einzeln gelten, wenn es angelickt wird.

Wenn jedes Label einen eigenen unabhängigen Zyklus hat, braucht jedes Label doch auch seinen eigenen Zähler.
Da es eine feste Reihenfolge der Farben gibt und die Farben darin eindeutig sind, kann man aber beim Click von der aktuellen Farbe auf die nächste schliessen.

Delphi-Quellcode:

implementation
{hier drunter steht, was die Methoden tun sollen}

procedure TForm1.LabelClick(Sender: TObject);
const
  CLabelColors : array[0..5] of TColor = (clRed, clYellow, clLime, clAqua, clBlue, clFuchsia);
var
  i, n: Integer;
begin
  {Index der aktuellen Farbe des Labels bestimmen}
  n := -1;
  for i := 0 to High(CLabelColors) do
  begin
    if TLabel(Sender).Color = CLabelColors[i] then
    begin
      n := i;
      Break;
    end;
  end;
  {Index der nächsten Farbe die das Label bekommt}
  n := (n + 1) mod Count(CLabelColors);
  TLabel(Sender).Color := CLabelColors[n];
end;

Dem Event-Property der einzelnen Labels musst du natürlich "LabelClick" zuweisen, nicht "labels.Click".

[sx2008]

Zitat:

Zitat von wovo (Beitrag 1234389)

Bzgl. Klartext : Ja, es geht um ein Spiel (Mastermind).
Und das Layout ist immer rechtwinklig mit 4x12 Zeilen.

Das hättest du gleich sagen sollen.
Vergiss die ganzen Labels; wirf sie einfach in die Tonne.
Stattdessen nimmst du ein Drawgrid mit 5 * 12 Zellen.
Vier Zellen dienen zur Anzeige der farbigen Pins und in der 5. Zelle wird das Ergebnis des Rateversuchs mit 4 kleinen weissen oder schwarzen Kreisen angezeigt.

In einem Drawgrid kann man Text, geometrische Formen aber auch Bitmaps anzeigen.
Durch Verwendung von Bitmaps bekommt das Spielbrett eine viel hübschere Optik.
Für den Anfang reicht es wenn du nur farbige Kreise zeichnest.

Ein Demo zum Drawgrid kannst du hier anschauen.
Download Sourcecode (im Unterverzeichnis "Schachbrett"): http://github.com/sx2008/Delphi-Test...ive/master.zip

Hier ist noch ein tolles Tutorial für ein Memory Spiel.
Dort kannst du auch den Sourcecode runterladen. :thumb:
"Memory" ist eine optimale Vorbereitung für Mastermind.

[wovo]

Dank für die Antworten!

@Blup : Ich bin eben noch Anfänger, weshalb ich noch viel zu Lernen habe,
und weshalb ich noch Fehler mache :-(
Bitte um Entschuldigung.

@sx2008 : Ich habe das Ziel am Anfang nicht genannt, weil ich lediglich
eine grundlegende, allgemeine Frage stellen wollte.
Den Ansatz mit dem DrawGrid werde ich verfolgen.
Dank für den Hinweis.

Aber eure Hilfestellungen zu den Labels, die zur Laufzeit incl. Events erstellt werden sollen, haben mir weitergeholfen.
Danke.
Ich bin von Haus aus eher Algorithmiker und nicht GUI-Programmierer.

Gruß wovo

[Sir Rufo]

Warum hast du denn nicht erst den Algorithmus und dann die GUI gebaut? ;)

Zunächst würde ich eine Klasse erstellen, die das gesamte Handling der Daten für MasterMind abtütet.
Erst dann baue ich die GUI und lese die Informationen für die Darstellung aus dieser Klasse.

[Blup]

@wovo
Fehler sind hier die Regel, deshalb braucht man sich nicht zu entschuldigen.
Wir weisen auf die Fehler oder Schwächen der Programme hin, damit eine bessere Lösung gefunden und daraus gelernt werden kann.

[wovo]

Nochmals Dank für die Hilfestellungen.

Da ich mich mit Objektorientierter Programmierung fast nicht auskenne,
ist deren Einsatz für mich das Hauptproblem.
(Ich komme aus einer Zeit, in der Algol60 innovativ war :-D )
Deshalb habe ich diesmal auch nicht als erstes den eigentlichen Algorithmus entwickelt und (vor)programmiert (im Kopf existiert der schon).

Bei jedem kleinen Progrämmchen, das ich - wie hier - so nebenbei zum Spaß entwickle, lerne ich ein wenig dazu.
Dank eurer Hilfe z.B., wie man (für euch Banales) Objekte zur Laufzeit erzeugt.
Es freut mich zudem, dass ihr gnädig gegenüber den Fehlern seid.

Gruß wovo