Schachbrett

[nahpets]

aber bitte dabei bedenken:

Ein Schachbrett hat 64 Felder. Deine Definition Felder : array[0..64] of TFeld; enthält aber 65 Felder. Also entweder Felder : array[0..63] of TFeld; oder Felder : array[1..64] of TFeld; Ansonsten bleibt ein Fehler vorhanden, egal wie Du die Zeichenlogik änderst.

[wendelin]

Hallo,
hier ist ein Fehler

Delphi-Quellcode:

procedure Tform8.position;
var
i,b,c : integer;
begin
for I := 0 to length(Felder) do       // muß lauten to (length(Felder) -1) sonst 'Range Check Error !
  begin
    felder[i] := Tfeld.create;
    felder[i].position.y := I div 8;
    felder[i].position.x := I MOD 8;
  end;
end;


procedure TForm8.Zeichnen;
Const
 ColorArray:Array [boolean] of TColor=(clBlack,clWhite);
var
i : integer;
white:Boolean;
begin
white := true;
for I := 0 to length(Felder) do    // muß lauten to (length(Felder) -1) sonst 'Range Check Error !
  begin
     image1.Canvas.Brush.Color := ColorArray[white];
     if (i+1) mod 8 <> 0 then white := not White;
     image1.Canvas.Rectangle(felder[i].position.X*50,felder[i].position.Y*50,felder[i].position.X*50+50, felder[i].position.Y*50+50);
    end;
end;

grüße Wendelin

[himitsu]

Oder bis High(Felder) und das "Range Check Error" kommt leider nur, wenn man die Index-Prüfung aktiviert (Standard: aus)

[baumina]

Fraglich ob 65 Felder wirklich Sinn machen.

[mkinzler]

Zitat von himitsu:

Oder bis High(Felder) und das "Range Check Error" kommt leider nur, wenn man die Index-Prüfung aktiviert (Standard: aus)

Dann aber besser auch von Low(Felder)

for I := Low( Felder) to High(Felder) do

[Der schöne Günther]

Ist nicht grade ein Schachbrett einer der vielleicht drei Fälle im Universum wo ein mehrdimensionales Array mal Sinn macht?

[Mikkey]

Zitat von Der schöne Günther:

Ist nicht grade ein Schachbrett einer der vielleicht drei Fälle im Universum wo ein mehrdimensionales Array mal Sinn macht?

Für das Ausgangsproblem wäre ein Array[1..8] of integer/TDame wahrscheinlich sinnvoller. es gibt wohl im Universum doch nur zwei Fälle

[himitsu]

@Markus: Dann aber auch das Array von 1 bis 8, da ja A-H:1-8.


Felder : array['A'..'H'] of array[1..8] of TFeld;