[Game] 2.6D - Sandb(L)ox

[turboPASCAL]

Könn't ich mal einen Screenshoot vom Progrämmchen bekommen, bitte-dankeschön?

[Custom]

Zitat von turboPASCAL:

Könn't ich mal einen Screenshoot vom Progrämmchen bekommen, bitte-dankeschön?

GOTCHA!! ^^


also ich hab im moment keine zeit~erstmal hausaufgaben zu machen und dann das mit der liste ausprobieren... vielleicht ist jemand anderes gerade mal so nett?

[Custom]

Zitat von xZise:

Zuerstmal hast du wohl eine "Feldklasse":

Delphi-Quellcode:

TBlock = class(TObject)
private
  FX, FY : Integer;
public
  property X : Integer read FX;
  property Y : Integer read FY;

  constructor Create(const AX, AY : Integer);
end;

Und entweder nimmst du einfach so eine Liste (Da das Object alles sein könnte, muss man sich sicher sein, was man da macht!):

Delphi-Quellcode:

FList : TObjectList;
[...]
FList := TObjectList.Create;
[...]
block := TBlock.Create([...]);
[...]
FList.Add(block);
[...]

Oder du erstellst dir selber eine Liste (aufwendiger ab im endeffekt Fehlersicherer):

Delphi-Quellcode:

TBlockList = class (TObject)
private
  FList : TObjectList;
  function GetBlock(AIndex : Integer) : TBlock;
  procedure SetBlock(AIndex : Integer; Value : TBlock);
public
  procedure Add(ABlock : TBlock);
  procedure Delete(ABlock : TBlock);

  property Bloecke[AIndex : Integer] : TBlock read GetBlock write SetBlock; default;

  constructor Create;
  destructor Destroy;
end;

Und fertig

Naja jedenfalls die Definition der Klassen.
Diese kannst du genauso wie eine TObjectList-Liste verwenden.

MfG
xZise

PS: Das "default;" hinter der Property bedeutet, dass man die nicht aufrufen muss. Wenn du das bei TStrings machst, machst du ja meißt "MyTStrings[<Zeile>]"

[Fehler] Unit1.pas(58): Undefinierter Bezeichner: 'TObjectList'
[Fehler] Unit1.pas(59): Undefinierter Bezeichner: 'TBlock'
[Warnung] Unit1.pas(68): Methode 'Destroy' verbirgt virtuelle Methode vom Basistyp 'TObject'
[Fataler Fehler] Unit1.pas(205): Verwendete Unit 'Physik.pas' kann nicht compiliert werden

[olee]

Du musst mindestens die Deklaration des TBlock VOR der Deklaration der Liste bringen, da diese das Objekt TBlock sonst nicht kennt!

Edit: Ach ja und du solltest kucken, ob für TObjectList nicht eine Unit eingebunden werden muss!

[Custom]

was ist mit object list? scheint es auch nicht zu geben...

[Namenloser]

TObjectlist ist in der Unit contnrs deklariert.
Sieht übrigens sehr interessant aus, was du da machst! (mehr kann ich dazu jetzt noch nicht sagen )

[olee]

Such mal in der Delphi Hilfe nach TList und Co.

[3_of_8]

Und bei Destroy noch ein override; dahinter.

[xZise]

Zitat von 3_of_8:

Und bei Destroy noch ein override; dahinter.

Also ehrlich ^^ Das da oben war nur als Beispiel zum Angucken gedacht und nicht zum 1 zu 1 kopieren.
Würde man verstehen, was ich da geschrieben habe, wüsste man, was man gegen die Fehler machen müsste ^^
Bezüglich der TObjectList: Einfach markieren (oder mit der Maus "reinklicken"), so dass der Cursor im Wort ist und dann drücke mal "F1" (also die Taste) und oh wunder: Die Delphi Hilfe wird dir sagen, dass du "Contrs" hinzufügen musst.

Übrigens hat TObjectList den Vorteil gegenüber der TList bei Objekten, dass es weiß "wovon" es redet.
Die TList könnte auch eine Integer-List sein
So kann die TObjectList automatisch die Objekte freigeben, sobald es selber freigegebn wird (Standard), oder Objekte freigeben die aus der Liste gelöscht werden.

MfG
xZise

[3_of_8]

Ich bezog mich auf die Fehlermeldungs-Liste von custom.