Zusätzlicher Punkt bei Paintbox

[luigied]

Moin, :hi:
also ich hab da so ein 4gewinnt programm geschrieben. Es funzt fast alles, nur beim erstmaligen Setzen eines Steins (egal welche Farbe) wird noch ein blauer gesetzt. Er ist immer an der selben Stelle und hängt in der Luft. (muss herunter fallen) :gruebel:

Dies ist noch eine alte Version, bei der noch nicht alles funktioniert. Die Prozedur zum Zeichnen ist aber die selbe.

[Der_Unwissende]

Hi,
ehrlich gesagt ist es etwas schwer dir nur mit einer .pas Datei zu helfen. Da ist zwar dein Form drin, aber ohne die restlichen Dateien, fehlt der Kontext. Insbesondere gibt es zu jedem Fenster (hier Form1) eine .dfm Datein, die die Information zu den properties deines Forms enthält.
Dann kommt noch erschwerend hinzu, dass zumindest auf mich der Code sehr unstrukturiert wirkt. Du solltest etwas hierachisch einrücken. Die Benennenung der Buttons und Variablen ist auch mal nichts sagend, so dass sich wohl auch weniger Leute erst die Mühe machen werden, es sich überhaupt näher anzuschauen (imho). Wäre also schön, wenn du das Projekt (am einfachsten alle Dateien ohne die .exe zippen) hochladen könntest und davor eine etwas eindeutigere Benennung durchführst. Dann solltest du möglichst auch noch ein paar Zeilen Kommentar einfügen, aber wenigstens an der Stelle wo das eigentliche Zeichnen stattfindet (wenn du dort einen Fehler hast).

Gruß Der Unwissende

[luigied]

HI,
war ne überstürzte Aktion das Programm hochzuladen. Hab den Fehler aber jetzt gefunden. Es lag an der Typdeklarierung von TField. Ich hatte die falschen Grenzen des Arrays gewählt :wall: :wall: :wall: :oops:

Danke für die Hinweise zu meinem QuelltextIch werde die Kritik beherzigen. Wenn alles fertig ist werde ich das ganze prog hier posten. Wer will kann es sich mal antun.