Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: 4gewinnt

   
    by Michael II, 21. Mai 2017
  Leider zeigt dein Codeausschnitt nicht, welche Werte i und j durchlaufen.
  
  Deshalb: Hast du geprüft, ob "i*7+j+1" für alle i,j einen gültigen Index liefert?
  
  Hast du dir überlegt auf list zu verzichten? Soweit ich sehe, gewinnst du durch list nix. Du könntest direkt auf deine Shapes zugreifen.
  
  Damit du auf Umrechnungen wie i*7+j+1 verzichten kannst:
  Du könntest deinen Shapes eventuell...
• Forum: Object-Pascal / Delphi-Language

  AW: 4gewinnt

   
    by Michael II, 21. Mai 2017
  Hallo Wega
  
  du kannst auch bei Lazarus Shapes erst zur Laufzeit generieren. Die Eigenschaft Tag gibt es auch. Und auch sonst funktioniert es praktisch gleich wie bei Delphi.
  
  Bei Lazarus sieht Shape1MouseDown etwas anders aus:
  
  procedure Tform1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
• Forum: Object-Pascal / Delphi-Language

  AW: 4gewinnt

   
    by Michael II, 20. Mai 2017
  Danke DH - hab's korrigiert.
• Forum: Object-Pascal / Delphi-Language

  AW: 4gewinnt

   
    by Michael II, 20. Mai 2017
  Hallo Wega
  
  du solltest dir überlegen, die Shapes dynamisch zu erzeugen (eventuell auch, ob du effektiv Shapes verwenden willst oder nicht besser selbst etwas zeichnen willst).
  
  Mit Shapes könntest du es so tun:
  
  unit Unit95;
  
  interface