Minesweeper

[himitsu]

Wenn jemand nicht auf uns und auch nicht auf den Compiler hört, dann hat er halt Pech.

Zitat:

Delphi-Quellcode:

h:=A;
j:=B;
for h:= 0 to 14 do
  begin
    for j:=0 to 14 do

Hier sollte der Compiler doch eigentlich auch eine Warnung ausgeben, aber wer liest das schon.

Zitat:

Delphi-Quellcode:

for i := 0 to Self.ComponentCount - 1 do
  begin
    if Self.Components[i].Name = g then
      Panel:=TPanel(Self.Components[i]);
  end;
Panel.Caption...

Auch hier sollte der Compiler meckern, denn für ihn ist es klar, daß Panel eventuell nicht zugewiesen sein könnte, falls Name = g nichts treffen würde.

9 Mal der selbe Code, nur durch ein +/-1 unterscheidend ... ja, das sieht nach einer zwei Schleifen aus.
Aber wenn ich das genau seh, dann frag ich mich, wieso man jedem einzelnem Panel bis zu 9 Mal den selben Text zuweisen sollte, denn genau das macht der Code, durch die h+j-Schleife und die inneren IFs/Schleifen.

FindCompoment wurde ja auch erwähnt, aber wenn man die Komponenten einmal einem zweidimensionalem Array zuweist, beim Programmstart, oder das Zeug garnicht erst umständlich in die Form geklickt hätte, sondern es dynamisch erzeugen und dabei gleich in dem Array speichern würde, was ja auch schon genannt wurde, dann wäre alles so viel einfacher.

Und warum werden A und B als Var-Parameter eingegeben, wo sie doch nur ausgelesen, aber niemals gesetzt werden?

[Mavarik]

Zitat von himitsu:

Delphi-Quellcode:

for i := 0 to Self.ComponentCount - 1 do
  begin
    if Self.Components[i].Name = g then
      Panel:=TPanel(Self.Components[i]);
  end;
Panel.Caption...

Das ist doch an sich schon gruselig mit dem OI die ganzen Panels aufs Form zu klicken...

[Popov]

@Mavarik

Für dich ist es gruselig. Ein Anfänger sieht da nur die Vorteile, der da einer wäre: da ist ein Feld, da klickt man drauf, da erhält man ein Ereignis. Man muss zwar 255 Panele plazieren und auswerten, aber der Hauptvorteil ist, man spart sich vier Zeilen Code über den man drei Minuten komplex nachdenken muss.

Ich persönlich hätte noch nicht mal Panels genommen.

[Mavarik]

Zitat von Popov:

aber der Hauptvorteil ist, man spart sich vier Zeilen Code

Nein ganz im Gegenteil...

Stundenlanges Panel's auf dem Form platzieren was man in 10 Sekunden und 2 for schleifen machen kann...

Abgesehen davon wird das Form auch in "endlicher" Zeit in die IDE geladen...

Außerdem habe ich die Pannels direct in meinem Array und muss die nicht erst wieder mühsam über die Componentenliste suchen...

Abgesehen von 200 onclick Handlern

[himitsu]

100 (10*10) Panels hab ich in nichtmal 20-30 Sekunden auf der Form platziert (Copy&Paste) ... aber dann muß/sollte man den Dingern auch noch einen Namen verpassen.

[Popov]

@Mavarik

Ich hab nicht gesagt, dass man sich Code und Zeit spart, sondern, dass man sich paar Zeilen komplexen Code spart.

[Mavarik]

Ich glaube Du hast da etwas falsch verstanden...

MEIN Beispiel war doch so wie Dein Source...

[saii]

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?

Delphi-Quellcode:

begin
      Panel := TPanel.Create(Self);
      Panel.Parent := Self;
      Panel.Name := 'P_' + IntToStr(x) + '_' + IntToStr(y);
      Panel.Width := WH;
      Panel.Height := WH;
      Panel.Caption := '';
      Panel.Left := x1 + (x * WH);
      Panel.Top := y1 + (y * WH);
      Panel.OnMouseDown := PanelMatrixMouseDown( {?} );
    end;