Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Magisches Quadrat - Delphi/Pascal

   
    by Bummi, 2. Mai 2012
  ich habe ein paar Anmerkungen hinzugepackt, allerdings wird es für > 3 nicht magisch die Diagonalen passen nicht
  
  
  procedure TForm5.Button1Click(Sender: TObject);
  Procedure Ueberlauf;
  begin
  if X>Gr then X := 0;
  if Y>Gr then Y := 0;
  end;
  begin
• Forum: Object-Pascal / Delphi-Language

  AW: Magisches Quadrat - Delphi/Pascal

   
    by Bummi, 1. Mai 2012
  Zur 3*3 Ausgabe
  Wenn Du Deine "Debugausgaben" im Memo anschaust siehst Du dass der der Fehler an 7
  auftritt, die Prüfung nach 6
  
  if StringGrid1.Cells='' then
  
  verwendet hier X und Y jeweils 2 und greift hiermit auf zu welche gar nicht definiert ist.
  
  Der ganze Aufbau ist fehleranfällig und unnötig kompliziert.
  Schreibe doch den Algorithmus ohne Stringgrid nur mit dem Array...