Wenn ich in der folgenden Klassendefinition jetzt eine zusätzliche Variable/Feld einfügen will(verschiedene Namen, auch an anderen Stelle), dann kommt eine Fehlermeldung exception raised .. SigSev (diese Meldung hatte ich sonst, wenn ich ein Array falsch benutzt hatte). Der Fehler kommt selbst, wenn nur die Integervariable(auch wenn ich ein anderes array o.ä. einfügen will) definiert, aber auch wenn sie irgendwo benutzt wird. Ohne zusätzliche Variable läuft das Programm prima:
Code: Alles auswählen
TNuro = class(TObject)
x,y:integer;//Koordinaten
richtung:integer;
//xbgf : integer; //diese Zeile erzeugt den Fehler, auch bei anderen Namen
best:integer ; //bewertungsspeicher
wait:integer; //wie oft schon aktiviert
genes: genes1; //array für memorystrings
neurons: neurons1;//neuronennetz
nurocolor : TColor;//farbe of worm
movemax: Integer;//max zugzahl
storecontent:integer;//speichert vorigen arraywert
zeigex : Integer;
zeigey : Integer;
{zgiex : Integer;
zgiey: Integer;
zeigeblock:Integer;} //werte für darstellung of worm
constructor Create;
procedure move;
procedure getkoord;
//procedure setgenes;
//procedure getsensors;
procedure setneurons;
function getneurons(xx,yy:Integer):Integer;
procedure showneurons;
procedure activatenet;
procedure showworm;
end;
Weiß jemand Rat?
