Minesweeper

[Mavarik]

Zitat von DeddyH:

Es geht doch noch einfacher.

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...

Mavarik

[DeddyH]

Um "schneller" ging es mir gar nicht. Aber ich mag nicht einsehen, dass ich Werte neu berechnen soll, wenn ich sie vorher bereits verfügbar hatte.

[Mavarik]

Zitat von DeddyH:

Delphi-Quellcode:

const
  BITS_PER_BYTE = 8;

btw. Seit wann hab sich die Bits zu mehr oder weniger als acht in einem Byte zusammengerottet...?

[DeddyH]

Man kann auch Konstanten definieren, um Magic Values zu vermeiden, das erhöht die Lesbarkeit des Codes.

[edit] Nachtrag: http://de.wikipedia.org/wiki/Magisch...8Informatik%29

Zitat:

Ein im Sourcecode eines Programms auftauchender Zahlenwert (auch engl. „hard coded value“ genannt), dessen Bedeutung sich nicht unmittelbar erkennen lässt – seine Bedeutung ist somit „magisch“. Derartige Magische Zahlen sind zu vermeiden und durch gut benannte Konstantendefinitionen zu ersetzen, deren Name Bedeutung und Herkunft klar angeben.

[/edit]

[Popov]

Ohne das jetzt einiges zu kritisieren (es sind alles Top Ideen und Vorschläge), aber der TE ist meiner Meinung nach ein Anfänger. Das ist auch der Grund wieso er den für den Profi aufwendigen Weg mit Palels geht, statt es anders (besser) zu machen. Womit sich die Frage stellt ob er mit den ganzen Vorschlägen etwas anfangen kann (oder überhaupt zu der Zeit will).

[Mavarik]

Zitat von Popov:

Das ist auch der Grund wieso er den für den Profi aufwendigen Weg mit Panels geht, statt es anders (besser) zu machen.

Ich finde das mit den Panels gar nicht schlecht... Besser als Buttons...

Mavarik

[OT]

Zitat von DeddyH:

Man kann auch Konstanten definieren, um Magic Values zu vermeiden, das erhöht die Lesbarkeit des Codes.

für GIF87a (0x474946383761) lass ich mir das ja noch gefallen...

Aber für ein Shl 8 oder Shl 16 genauso wenig wir für Byte := Byte XOR $FF;

Man kann es auch übertreiben...

[/OT]

[DeddyH]

Wenn ich schon Konstanten einführe, dann konsequent. Aber jeder so, wie er meint.

[Mavarik]

Zitat von DeddyH:

Wenn ich schon Konstanten einführe, dann konsequent. Aber jeder so, wie er meint.

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...

[Popov]

Zitat von DeddyH:

Man kann auch Konstanten definieren, um Magic Values zu vermeiden, das erhöht die Lesbarkeit des Codes.

Ich weiß nicht ob ich dir widersprechen oder zustimmen soll. Der Widerspruch wäre: guck, auch in den Delphi Units gibt es Magic Values. Warum soll man es besser als Delphi machen? Die Zustimmung wäre: ich hab mich mal etwas genauer mit RTF und Fonts auseinandergesetzt weil ist es brauchte. Ich benötigte nicht alle Details, aber mehr als die Hilfe verriet. Dazu habe ich etwas im Delphi-Code gestöbert und bin stets auf Zahlen gestoßen mit denen ich nichts anzufangen wußte. Als ich nach Tagen alle Magic Values entschlüsselt habe, wußte ich für kurze Zeit fast alles über RTF und Fonts

Nur eine Auswahl auf die Schnelle:

Delphi-Quellcode:

procedure TCustomRichEdit.Print(const Caption: string);
...
begin
...
    if IsRectEmpty(PageRect) then
    begin
      rc.right := PageWidth * 1440 div LogX;
      rc.bottom := PageHeight * 1440 div LogY;
    end

function TTextAttributes.GetSize: Integer;
...
begin
...
  Result := Format.yHeight div 20;
end;

function TTextAttributes.GetHeight: Integer;
begin
  Result := MulDiv(Size, RichEdit.FScreenLogPixels, 72);
end;

[DeddyH]

Und das soll was genau aussagen? "Wenn andere etwas schlecht machen, darf ich das auch" oder "Mein Code war schwer zu schreiben, dann soll er auch schwer zu lesen sein"?