Initialisieren eines "Object" [gelöst]

[corpsman]

Servus zusammen
ich brauche da grad einen Record mit ein Paar funktionen und dachte ich nehme mal Kein TObject und all den OOP Gedöns, sondern mach mir das als Object (weil es so schön statisch ist und kein .free braucht , und der Stack ist ja groß genug )

Code: Alles auswählen

  TBoolStack = Object
    Stack: Array[0..2047] Of boolean;
    StackPtr: Integer; // Wie initialisiert man den ?
    Procedure Push(Value: Boolean);
    Function Pop(): Boolean;
  End;  

So die Deklaration meines Object und genutzt wird es natürlich ganz einfach:

Code: Alles auswählen

Procedure OnButtonClick(Sender:TObject);
var Stack:TBoolStack;
begin
  stack.StackPtr := -1; // Init des Stacks als Leer
  ..
  stack.push(true);
  ..
  stack.pop;
end;

Habe ich Hier überlesen wie das mit dem Init geht, oder geht das tatsächlich nicht ?

[fliegermichl]

Normalerweise definiert man einen Constructor Init.
Dabei werden alle Felder initialisiert und eigene von 0 abweichende Initialisierungen macht man dann eben selbst

Code: Alles auswählen

type
 TBoolStack = object
    Stack: Array[0..2047] Of boolean;
    StackPtr: Integer; // Wie initialisiert man den ?
    constructor Init;
    Procedure Push(Value: Boolean);
    Function Pop(): Boolean; 
  end;
  
 constructor TBoolStack.Init;
 begin
  StackPtr := -1;
 end;
 
 var bs : TBoolStack;
 begin
  bs.Init;
  ...
 end.

[corpsman]

@fliegermichl
Thx, damit bestätigst du meine Meinung und im Forum ist nun dokumentiert wie man es machen sollte