Minesweeper

[BadenPower]

Zitat:

Zitat von Popov (Beitrag 1294954)

Das Bild in Post #82 unterstützt deine Aussage nicht.

Schau Dir das Bild nochmals genau an.

Beim Klick auf das einzelne Feld auf das der roten Pfeil zeigt hat sich ALLES was rot umrandet ist geöffnet. Und dies ist nur 1 Abbild von zig Versuchen welche ich gemacht habe.

Dort wirst Du auch feststellen können, dass dort ZWEI diagonale "Grenzen" enthalten sind, welche eben NICHT als Begrenzung gelten.

[Popov]

Wo siehst du auf dem Bild #82 sich berührende Flächen über Eck?

Hier ein Beispiel wie ich es meine:

[saii]

Ich habs mal rekursiv versucht und hab mal den Vorschlag von Mavarik umgeschrieben.

Jetzt bekomme ich beim Anklicken von Panels, die keine benachbarte Mine haben, eine Exception der Klasse EStackOverflow

Delphi-Quellcode:

procedure TForm1.CannonFire(var A,B,m:integer; Sender: TObject);
var h,j:integer;
begin
        Panel:=TPanel(Sender);
        A:=StrToInt(Copy(Panel.Name, 3,2));
        B:=StrToInt(Copy(Panel.Name, 6,2));

        if IntA[A,B]<>9 then
        begin
                m:=IntA[A,B];
                if IntA[A,B]=0 then
                FindeLeer(v,w);
        end;
        
        if IntA[A,B]=9 then
        begin
                ShowMessage('Du hast Verloren!');
                close;
        end;
end;

Procedure TForm1.FindeLeer(v,w:integer);
begin
  if (v < 0) or (w < 0) or (v > 14) or (w > 14) then
    Exit;

  if (IntA[v,w] = 0) then
    begin
      PanelA[v,w].Caption:=IntToStr(IntA[v,w]);
      FindeLeer(v+1,w);
      FindeLeer(v-1,w);
      FindeLeer(v,w+1);
      FindeLeer(v,w-1);
    end;
end;

[Sir Rufo]

Zitat:

Zitat von Popov (Beitrag 1294961)

Wo siehst du auf dem Bild #82 sich berührende Flächen über Eck?

Kuckst du, mit deiner überlagerten Aussage (und passend gedreht, für alle, die das im Kopf nicht hinbekommen :mrgreen:)

[BadenPower]

Zitat:

Zitat von Popov (Beitrag 1294961)

Wo siehst du auf dem Bild #82 sich berührende Flächen über Eck?

Sogar gleich zweimal.

[Sir Rufo]

Wikipedia meint

Zitat:

Eine Sonderrolle spielen Felder, die keine Minen in ihrer Nachbarschaft aufweisen: Solche zeigen zum einen nicht etwa eine 0, sondern sie werden farblich anders dargestellt. Zum anderen werden alle noch verdeckten Felder in ihrer Nachbarschaft automatisch aufgedeckt. Ist ein so neu aufdecktes Feld ebenfalls ein Null-Feld, so wird dieser Prozess rekursiv weitergeführt.

[Popov]

Na gut, dann ist der Algorithmus für MineSweeper nicht wirklich eine Herausforderung.

Wer die Regel nicht will kann aus meinem Beispiel diese Zeilen löschen:

Delphi-Quellcode:

              if not ((a = 0) or (b = 0)) then
                Continue;

Sie verhindern die Öffnung benachbarter Flächen über Eck. So simpel die zwei Zeilen auch aussehen, ich hab da fast 3/4 Stunde dran gesessen. Das war das einzig komplizierte. Der Rest ist in fünf bis zehn Minuten gemacht.

[Bjoerk]

Zitat:

Zitat von saii (Beitrag 1294962)

Ich habs mal rekursiv versucht und hab mal den Vorschlag von umgeschrieben. Jetzt bekomme ich beim Anklicken von Panels, die keine benachbarte Mine haben, eine Exception der Klasse EStackOverflow

Weil der PanelA[X, Y] noch nicht erzeugt ist. Das kannst du z.B. in der CreatePanels machen. Schau ggf. mal wie ich das gemacht hab. Die IntA brauchen wir dann auch nicht mehr.

[saii]

Sicher? Eigentlich existiert PanelA[X,Y] da doch schon. Das wird doch in FormCreate erstellt.

Die Exception kommt immer in einer der

Delphi-Quellcode:

FindeLeer(v+1,w);

-Zeilen

[Bjoerk]

Oh Bud, ich hab langsam echt kein Bock mehr? Bist n netter Kerl, aber schau dir doch halt mal zum Beispiel #73 und #80 an. Der Panel ist zwar erzeugt aber PanelsA weiß davon ggf. nichts. Weiß nicht mehr. Vielleicht ist auch deine Rekursion falsch?