Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mavarik,
26. Mär 2015
hmm oder man hätte einfach den Code aus Posting #8 übernommen...
Procedure TForm1.InitFeld;
var
X,Y : Integer;
begin
for X := 0 to XMAX do
for Y := 0 to YMAX do
begin
MeinCoolesPanelArray := TPanel.Create(Self);
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mavarik,
26. Mär 2015
Es sollte generell hier unser bestreben sein, helfen aber nicht "vorsagen".
Mavarik
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mavarik,
26. Mär 2015
Sicher? Hab das noch nicht gesehen...
Online zu testen wer Minesweeper nicht hat.
Oder meinst Du das? (Anhang)
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mavarik,
26. Mär 2015
Ahh ok wusste ich nicht... Konnte das Ding noch NIE leiden...
Aber Du hast es ja schon richtig ergänzt...
Mavarik
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mavarik,
25. Mär 2015
Ok Sagen wir es einfachen rekursives aufrufen einer Procedure
Simpler Maussucht Käse:
Procedure FindeLeer(X,Y);
begin
if (X = 0) or (Y=0) or (X > Max) or (Y > Max) then
Exit;
if (Feld <> Mine) and (Feld <> Zahl) then
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mavarik,
25. Mär 2015
Ein fettes Image wo ich kleine Bildchen draufposte...
Da habe ich alle Freiheiten...
Mavarik
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mavarik,
25. Mär 2015
Ist ja alles richtig... Ich hatte nur "Angst" das Du sagt... Wenn ich das mit XY-Pascal für XY CPU übersetze ist ein Byte 9 bit...:stupid:
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mavarik,
25. Mär 2015
Ich finde das mit den Panels gar nicht schlecht... Besser als Buttons... :stupid:
Mavarik
für GIF87a (0x474946383761) lass ich mir das ja noch gefallen...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mavarik,
25. Mär 2015
btw. Seit wann hab sich die Bits zu mehr oder weniger als acht in einem Byte zusammengerottet...?
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mavarik,
25. Mär 2015
Viele Wege führen nach Rom. Da ich die Koordinate schon in Left/Top habe... Kann ich das Tag Feld für andere Sachen benutzen.
Taktzykle technisch ist "Deine" Methode etwas schneller als Mit Div und Mod.
Aber es erspart leider den Hilfesuchenden auch das nachdenken... :stupid:
Mavarik
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mavarik,
25. Mär 2015
Leute Bitte... Pointer im Array suchen?
procedure TForm1.CreatePanelMatrix(x1, y1: Integer);
var
x,y:integer;
begin
for x := 0 to 14 do
for y := 0 to 14 do
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mavarik,
24. Mär 2015
Ich mach das immer so:
Nimm ein Panel und mach da Click auf Mousedown oder auf OnClick
geh in den Source... Kopieren die Procedure von oben in den Privat teil und drücke Speichern, damit das Form die Procedure "vergißt"...
Schon hast Du die Procedure mit den richtigen Parametern.
Mavarik
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mavarik,
23. Mär 2015
Ich glaube Du hast da etwas falsch verstanden...
MEIN Beispiel war doch so wie Dein Source...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mavarik,
22. Mär 2015
Hast Du eigentlich meine Antwort gelesen?
OMG... Was für ein Codemonster...
Warum auch immer Du unbedingt 10000 Zeilen tippen willst, wenn es auch in 25 geht...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mavarik,
21. Mär 2015
Und selbst wenn Du Panel's nehmen willst...
Aber dann bitte nicht Zusammengeklickt sondern dynamisch erzeugen...
Procedure TForm1.InitFeld;
var
X,Y : Integer;
begin
for X := 0 to XMAX do
for Y := 0 to YMAX do