ObjectList übergibt NIL ? [gelöst]

[Hartkern]

Hallo,

ich hab folgendes Problem:
Ich erzeuge immo 60 Instanzen vom Object TFeld und lade diese in eine Objectlist um sie später ordentlich verwalten zu können.
Die Objectlist gibt mir auch per Count die korrekte Anzahl der Instanzen von TFeld wieder.
Wenn ich aber per Index aus der Felderliste auf ein Object zugreifen will, übergibt die Liste ein NIL, was dann einen SigSev auslöst.

Hier der Code für TFeld

Code: Alles auswählen

type
 
   { TFeld }
 
   TFeld = class(TObject)
   type TFeldArr = Array[0..5] of TPoint;
   private
     FLand : boolean;
     FWasser : boolean;
     FFluss : boolean;
     FStrasse : boolean;
     FStadt : boolean;
     FWald : boolean;
     FSumpf : boolean;
 
   public
     P0, P1, P2, P3, P4, P5 : Tpoint;
     X0X, X0Y: Integer;
     constructor Create(MyArr:TFeldArr);
     Destructor Free;
     property Land: Boolean read FLand write FLand;
     property Wasser : Boolean read FWasser write FWasser;
     property Fluss : Boolean read FFluss write FFluss;
     property Strasse : Boolean read FStrasse write FStrasse;
     property Stadt : Boolean read FStadt write FStadt;
     property Wald : Boolean read FWald write FWald;
     property Sumpf : Boolean read FSumpf write FSumpf;
   end;
implementation
 
{ TFeld }
 
constructor TFeld.Create(MyArr:TFeldArr);
begin
 
   FLand := True;
   FWasser := False;
   FFluss := False;
   FStrasse := False;
   FStadt := False;
   FWald := False;
   FSumpf := False;
   //Werteübergabe
   P0 := MyArr[0];
   P1 := MyArr[1];
   P2 := MyArr[2];
   P3 := MyArr[3];
   P4 := MyArr[4];
   P5 := MyArr[5];
   X0X := P0.x;
end;
 
destructor TFeld.Free;
begin
 
end; 

Das Laden in die Objectliste

Code: Alles auswählen

Polygon(FHex);
              Feld.Create(FHex);
              TFelderListe.Add(Feld);

Code: Alles auswählen

 
var           
TempFeld : TFeld;
.
.
.
For I:= 0 To TFelderliste.count -1 do
                 begin
                   TempFeld := TFelderliste.Items[I] as TFeld;     //Mit Laufzeitprüfung;  <-----------------------hier gibts nur NIL!!!!!!!!!!
                      begin
                        TestMemo.Lines.Add(IntToStr(i));
                        If TempFeld.Land= True then TestMemo.Lines.Add('Land JA') ;
 
                       end;
                 end;   

ob ich vorher TempFeld create mit einem X beliebigen Array of Tpoint ist egal

[af0815]

Das Laden in die Objectliste

Code: Alles auswählen

Polygon(FHex);
              Feld.Create(FHex);
              TFelderListe.Add(Feld);

IMHO

Code: Alles auswählen

 
  MyFelderListe := TFelderListe.Create;
 
  Polygon(FHex);
  Feld := TFeld.Create(FHex);
  MyFelderliste.Add(Feld);
 

und TFelderListe ist dann immer MyFelderListe.

Andreas

[Hartkern]

Code: Alles auswählen

  //Felderliste erzeugen
       TFelderliste := TObjectlist.create(true); 

Das hatte ich natürlich unterschlagen hier mit zu posten. Also daran lags nicht. Die Liste wird ja erzeugt.

[Bitschubser]

Code: Alles auswählen

  //Felderliste erzeugen
       TFelderliste := TObjectlist.create(true); 

Das hatte ich natürlich unterschlagen hier mit zu posten. Also daran lags nicht. Die Liste wird ja erzeugt.

Lies die Anwort von Andreas noch mal genau.

Sowas:

Code: Alles auswählen

  Feld.Create(FHex);

ist eigentlich fast immer falsch.

Dass "TFelderliste" bei dir eine Instanz und kein Typ ist kann natürlich keiner wissen - IMHO ist das "T" da vorne ziemlich ungünstig für die Übersicht.