Also hier mal mein Problem, ich kriege folgenden fehler:
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt Project1.exe ist eine
Exception der Klasse EAccessViolation mit der Meldung 'Zugriffsverletzung bei Adresse 00453935 in Modul 'Project1.exe'. Lesen von Adresse 00000000' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------
das ganze in dieser zeile:
FObjects[i,i].Width:=j;
Hier noch mal der ganze code zum besseren verständnis...
Delphi-Quellcode:
unit KKSpielfeld;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, KKObjects, Math;
type
TKKSpielfeld =
class(TImage)
private
FObjects:
array of array of TBitmap;
public
constructor Create(size:integer; AOwner: TComponent);
end;
implementation
constructor TKKSpielfeld.Create(size:integer; AOwner: TComponent);
var
i,j,count:integer;
begin
count:=0;
size:=(size*2+1);
SetLength(FObjects,size,size);
for i:=0
to size
do
begin
j:=(trunc(power(-1,i))+2)*10;
FObjects[i,i].Width:=j;
FObjects[i,i].Height:=j;
count:=count+j;
end;
self.Parent:=TWinControl(AOwner);
self.width:=count;
self.height:=count;
end;
end.
Hoffe jemand weis was damit anzufangen ich verstehe es nämlchi grad nciht so sehr...