Objektorientierung Unendlich viele Objekte mit Atributen

[Aloxen]

Ich brauche mal wieder eure Hilfe.

Ich bin mitten in OpenGL, und möchte mehrere Würfel einfügen. Damit das auch später übersichtlich wird, möchte ich eine Block = class erstellen. Um die Koordinaten eines Würfels zu erhalten, braucht der Shader eine matrix ( T_obj ). Jedes Objekt von TBlock soll eine eigene Matrix speicher können.

Code: Alles auswählen

unit Block;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils,
  dglOpenGL,
  oglContext, oglShader, oglMatrix,oglVector;

type
  TBlock = class
    private
      FT_obj: TMatrix;
    public

      property T_obj:TMatrix write FT_Obj;
  end;

implementation

end.  

In Unit 1 habe ich jetzt einen dynamischen Array vom Typ TBlock erstellt:

Code: Alles auswählen

type
  ArrayforBLock = array of TBlock;
var
 ListBlock: ArrayforBlock;

Am Anfang vor einem Aufruf setzt ich die Länge:

Code: Alles auswählen

setlength(ListBlock,2);

Jetzt das Problem. Ich muss die Matrix von jedem Objekt verändern können. Dazu hat die Unit von OGL schon alles bereitgestellt. Normalerweise würde ich zum Bewegen T_obj.Translate(2.0,0.0,0.0) schreiben.

Da kommt ein Fehler: sigsegv.

Das heißt ja, dass kein Wert in Obj gespeichert ist. Aber auch wenn ich versuche Obj als einheitsmatrix zu schreiben kommt dieser Fehler. Ich glaube es ist etwas grundlegend Falsch an der Klasse.
Ich hoffe mir kann jemand erklären wie ich die Klasse strukturieren muss und warum. Ich fange gerade an mit Klassen und Objektorientierung. Bitte für dumme erklären ^^

[Jorg3000]

Hi!
Durch SetLength(ListBlock,2) wird dem Array nur eine Länge zugewiesen, aber darin noch keine Objekte erzeugt.

Code: Alles auswählen

SetLength(ListBlock,2);
for i:=0 to Length(ListBlock)-1 do  ListBlock[i]:=TBlock.Create;

Und wenn TMatrix eine Class ist, müsste mittels TBlock constructor Create auch ein TMatrix-Objekt erzeugt werden.
Des Weiteren fehlt für T_obj vielleicht property read in TBlock.
Grüße, Jörg

[Niesi]

Wie Joerg schon schrieb: Du musst jedes Objekt mit einem Constructor (normalerweise Create) erzeugen und ihm auch Werte mitgeben.
Du solltest überlegen, für Deine Objekte anstelle eines Arrays eine tObjectList zu verwenden, das ist n. m. M. einfacher, weil die genau dafür da ist ...

[theo]

Du solltest überlegen, für Deine Objekte anstelle eines Arrays eine tObjectList zu verwenden, das ist n. m. M. einfacher, weil die genau dafür da ist ...

Ich würde auch in diese Richtung gehen, aber gleich mit Generics, dann kann man sich später das Typecasting sparen.

Code: Alles auswählen

uses fgl;
..
type
   TBlock = class
    private
      FT_obj: TMatrix;
    public
      property T_obj:TMatrix read FT_Obj write FT_Obj;
  end;

  TBlockList = class(specialize TFPGObjectList<TBlock>)
  public
  end; 

....

procedure TForm1.Button1Click(Sender: TObject);
var ABlockList:TBlockList;
begin
  ABlockList:=TBlockList.Create(true);
  ABlockList.Add(TBlock.Create);
  ABlockList.Add(TBlock.Create);
  TuWasMit ABlocklist[0].FT_obj; //Kann im Ggs. zu TObjectList direkt ohne Typecasting zugegriffen werden.
  ABlockList.Free; //Hier werden die TBlock mit freigegeben, da im Konstruktor true für "FreeObjects" steht.
end; 

[Aloxen]

Du solltest überlegen, für Deine Objekte anstelle eines Arrays eine tObjectList zu verwenden, das ist n. m. M. einfacher, weil die genau dafür da ist ...

Danach habe ich gesucht. Ich möchte das verwenden, aber wenn ich:

Code: Alles auswählen

 var
  BlockList: TObjectList; 

schreibe kommt ERror: Identifier not found "TObjectList". Das sind meine "Uses":

Code: Alles auswählen

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics,ComCtrls,
  Dialogs, ExtCtrls, StdCtrls, Menus,
  dglOpenGL,
  oglContext, oglShader, oglMatrix,oglVector,Block; 

Warum erkennt es die Klasse TObjectlist nicht?

[theo]

Warum erkennt es die Klasse TObjectlist nicht?

Weil sie in Unit Contnrs ist.

Mache auf der Fehlermeldung im Nachrichtenfenster einen Rechtsklick und im Popup-Menu "Suche Bezeichner".
So kannst du die Unit selber finden.

Schau dir aber auch mein fast komplettes Beispiel mit Generics an.
Ist am Ende einfacher und nicht so beängstigend wie es klingt.