-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
29. Mär 2015
So ich melde mich nochmal.
Ich wollte mich nochmal bedanken für die Hilfe und Kritiken.
Ich hab das Programm am Freitag abgegeben und seit dem nichts mehr gemacht (kurz vorm Abi -> keine Zeit :/ )
Ich werde mich vielleicht nochmal ransetzen und meine Version perfektionieren (Graphisch, Timer, Highscores, benutzerdefinierte Minenzahl und Feldgröße, ..)
Aber soweit brauch ich das Thema...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
26. Mär 2015
Sicher? Eigentlich existiert PanelA da doch schon. Das wird doch in FormCreate erstellt.
Die Exception kommt immer in einer der FindeLeer(v+1,w);-Zeilen
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
26. Mär 2015
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
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));
...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
26. Mär 2015
Erstmal: Ich möchte nicht, das ihr das Programm für mich schreibt. Ich brauche nur leider viel Hilfe.
Ich werde auch Popov's Programm nicht einfach so abgeben. Ich werde meins fertigstellen (soweit wie ich komme).
Weiß jemand, warum keine Panels aufgedeckt werden, wenn ich auf ein Panel ohne benachbarte Minen drücke?
Warscheinlich was ganz banales, was ich übersehe :(
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
25. Mär 2015
Alles klar.
Und weiß jemand wie ich bei meinem Problem weiterkomme?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
25. Mär 2015
:? Stimmt allerdings. Ich wollte halt sichergehen. Aber du hast natürlich Recht :)
*Edit:
Aber wenn h=14 dann wird h+1>14
-> Dann brauch ich das, oder?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
25. Mär 2015
Wie Popov schon gesagt hat, bin ich Anfänger und folglich sagen mir die meisten Methoden und Befehle, die ihr hier auflistet garnichts.
Im Moment bin ich auch nicht bedacht, das Programm so perfekt wie möglich zu machen, sondern bis Freitag das ganze zum Laufen zu bringen.
Vielleicht perfektionier ich das danach.
Aber jetzt fehlt mir erstmal noch, dass das Anklicken eines Panels ohne...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
25. Mär 2015
Vielen Dank, Leute.
Ich werde mich heute nachmittag mal dran setzen :)
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
24. Mär 2015
Sorry Ich versteh nicht was du meinst :(
Und was das mir bringt erst recht nicht.
Falls das hilft ist hier mal mein kompletter Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Grids;
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
24. Mär 2015
Himitsu, ich erstelle die Panels automatisch und benenne sie (warum weiß ich auch nicht, wie ich gerade bemerke)
Von daher weiß ich auch nicht, wie ich die zweistellig benennen soll.
procedure TForm1.CreatePanelMatrix(x1, y1: Integer);
var
x,y:integer;
begin
for x := 0 to 14 do
for y := 0 to 14 do
begin
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
24. Mär 2015
Ich nutze jetzt zusätzlich zum PanelArray ein weiteres IntegerArray weil ich die einzelnen Panels einen Wert von 0 bis 9 zuweise und Ich nicht weiß wie ich das mit einem PanelArray anstellen soll.
Ich brauche A, um aus dem TPanel die Koordinaten zu entnehmen.
DAs geht bestimmt einfacher, oder?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
24. Mär 2015
Ich wollte mit
A:=StrToInt(Panel.Name);
(falls das funktioniert hätte) A aus dem Namen des Panels bestimmen,
aber das Problem ist, dass der Name des Panels an der Stelle (zB P_4_7) auch zweistellig sein kann. (P_10_13)
Wenn ihr wisst was ich meine.. wie löse ich das Problem? oder gibt es eh einen besseren Weg?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
24. Mär 2015
Danke BadenPower und Mavarik.
Mal sehen wie weit ich komme :)
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
24. Mär 2015
Vielen Dank für die Kritik und Berichtigungen.
Manche Sachen die hier genannt werden probier ich halt aus, aber als quasi-Anfänger komm ich dann auch schnell nicht weiter.
Ich hab mich jetzt jedenfalls entschieden ein PanelArray zu generieren.
Meine Frage: Wie erstelle ich die Prozedur für das OnMouseDown-Ereignis?
begin
Panel := TPanel.Create(Self);
Panel.Parent := Self;
...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
22. Mär 2015
Kleines Update:
Hab es erstmal so gemacht, dass wenn man ein Panel anklickt, dass keine angrenzenden Minen hat, alle Panels "aufgedeckt" werden, die ebenfalls keine angrenzenden Minen haben und wiederum deren bnachbarten Panels, sodass die zuvor erwähnten Ringe aus Zahlen entstehen.
Im Original werden nur die aufgedeckt, die benachbart sind, aber das reicht mir so erstmal.
Mein Problem...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
22. Mär 2015
Vielen Dank Popov. Soweit funktioniert's :)
Das macht die Aktivierung von 225 Panels VIEL einfacher :-D
Jetzt setz ich mich noch an daran, dass wenn das angeklickte Panel KEINE angrenzenden Minen hat, alle benachbarten Panels "aufgedeckt" werden, die eben falls keine angrenzenden Minen haben und eine Art Ring aus Panels entsteht, die anzeigen, wieviele Minen angrenzen.
Ich probier das...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
22. Mär 2015
Macht es Sinn über Self.Compenents auf die Panels zuzugreifen?
(A und B sind global als integer definiert)
var s:String;
Panel:TPanel;
begin
A:=0;
B:=0;
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
21. Mär 2015
Ich hab das DrawGrid noch nie genutzt.
Das läuft auch Koordinaten und hat das OnMouseDown-Ereignis?
Und dann statt Panels und dem Array einfach nur ein DrawGrid?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
21. Mär 2015
Kleine Zwischenfrage:
Kann ich irgendwie über Variablen ein Panel anwählen?
Ich möchte in einer Prozedur die Caption von mehreren Panels ändern.
In der Prozedur arbeite ich mit einem Array und ich möchte im Prinzip
Koordinaten des Arrays mit einem Panel verknüpfen.
Ansonsten komme ich vorwärts. Nur da brauch ich grad wirklich Hilfe.
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
21. Mär 2015
Alles klar, Ich probiers mal aus :)
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by saii,
21. Mär 2015
Hallo, liebe DPler,
Ich programmiere für die Schule Minesweeper in Delphi6 und bräuchte mal eure Hilfe.
Ich nutze ein zweidimensionales Array, in dem ich die Minen zufällig verteile
und in meiner Form1 sind 225 Panels quadratisch angeordnet.
Bisher kann man mit Rechtsklick Panels markieren ("F" als Flagge und "?") und
mit Linksklick wird die Zahl der umliegenden Minen kontrolliert und...
