Forum: Object-Pascal / Delphi-Language
Delphi
by hanselmansel,
27. Nov 2005
Die Prozedur, an die übergeben wird, sieht so aus:
Procedure TManagedSnake.newElement(Quelle :TObject);
Var
Element :PListenElement;
Begin
New(Element);
Element^.Content := Quelle;
If EmptyList then
Begin
Forum: Object-Pascal / Delphi-Language
Delphi
by hanselmansel,
27. Nov 2005
HiHo,
im Info GK 12 wird uns gerade der Gebrauch von Pointern in Verbindung mit grundlegenden Datentypen beigebracht, aber ich fürchte, ich habe irgendwas vermurkst. Ich habe eine Klasse erstellt, die beliebige Objekte nach dem First in, First out-Prinzip verwalten soll.
TManagedSnake = class(TObject)
private
fAnfang, fLaeufer, fEnde :PListenElement;
public
Constructor...