Einzelnen Beitrag anzeigen

Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#10

Re: Zugriffsverletzung bei Inc()

  Alt 26. Sep 2004, 17:33
Hi!

ich vermute mal, dein Array ist zu klein definiert.
Probier es mal so:

Delphi-Quellcode:
var
  Form1: TForm1;
  Spielfeld : Array[0..832] of TSpielfeld;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i,j,feld : Integer;
begin
feld:=0;
for i := 0 to 25 do
 begin
   for j := 0 to 31 do
    begin
      Spielfeld[Feld] := TSpielfeld.Create(Self);
      with Spielfeld[Feld] do
        begin
         Parent := Form1;
         Left := i*38 + 20;
         Top := j*18 + 10;
         Autosize := true;
         Cursor := crHandPoint;
         Hint := ' ';
         OnClick := Imageladen;
         OnMouseMove := ShowHint2;
         Nr := Feld;
        end;
      inc(Feld);
    end;
 end;
end;
Ciao Frederic
Frederic Kerber
  Mit Zitat antworten Zitat