Prozedur in Typendeklaration

[Niels]

Ich möchte für nen selbstdefinierten Typ gewisse Funktionen festlegen. Ich weiß aber nicht wie ich die Prozedur oder Funtion definieren soll.

Ich hab mal folgendes gemacht:

Delphi-Quellcode:

type
  dNode = ^pNode;
  pNode = record
    dat: integer;
    next: dNode;
    new: procedure (var node: dNode);
  end;

Dazu hab ich noch die Prozedur new, in der dann einfach steht new(node);
Ich hab den Befehl new jetzt nur genommen um ein einfaches Beispiel zu bringen, da kommen dann natürlich andere hin.

Das Problem hierbei wäre nur, dass ich ja schreiben muss x.new(x);
...was eigentlich relativ sinnlos ist. Ich will nur schreiben x.new;
Ist das irgendwie möglich?

MfG Niels

[neolithos]

Nein,

aber man könnte ja auch ne Klasse verwenden! Oder?

[Christian Seehase]

Moin Niels,

ja, ist möglich.
Nur kannst Du dann keinen Record nehmen, sondern musst Dir eine neue Klasse (class) erstellen.
Hier kannst Du Daten und Methoden mischen.

[Niels]

Wenn ich ne Klasse nehm, dann hab ich aber auch diese ganzen Standard-Funktionen und Eigenschaften drin. Kann ich das irgendwie rausschmeisen?

MfG Niels

[SirThornberry]

es geht maximal

Delphi-Quellcode:

type
  dNode = ^pNode;
  pNode = record
    dat: integer;
    next: dNode;
    new: TNotifyEvent;
  end;

wobei du für TNotifyEvent dann auch andere Proceduretypen oder wie sich das nennt einsetzen kannst
bsp.:

Delphi-Quellcode:

type
  TMyEvent = procedure(var node: dNode) of Object;
  dNode = ^pNode;
  pNode = record
    dat: integer;
    next: dNode;
    new: TMyEvent;
  end;

und schon hast du das was du wolltest....

[Christian Seehase]

Moin Niels,

Du könntest es dann noch so machen:

Delphi-Quellcode:

type
  dNode = ^pNode;
  TMyProc = procedure(var node: dNode);
  pNode = record
    dat: integer;
    next: dNode;
    new: TMyProc;
  end;

Dann müsstest Du nur bei jedem Satz den Du verwendest noch die Adresse einer entsprechenden Prozedure zuweisen.

[Niels]

Ich versteh nicht wirklich wo jetzt der Unterschied zwischen dem was ich und dem was ihr geschrieben habt.

Außerdem passiert folgendes:
wenn ich dann die Prozedur neu schreib sagt er mir Identifier redeclared.
Wo soll ich die Prozedur dann hinschreiben, dass es funzt?

[Christian Seehase]

Moin Niels,

Zitat von Niels:

Wo soll ich die Prozedur dann hinschreiben, dass es funzt?

wie hast Du es denn gemacht.
Geht bei mir problemlos.

[Niels]

ich hab deins ins interface geschrieben und den Inhalt der Prozedur in den implementation-Teil

[SirThornberry]

Delphi-Quellcode:

type
  TMyEvent = procedure(var node: dNode) of Object;
  dNode = ^pNode;
  pNode = record
    dat: integer;
    next: dNode;
    new: TMyEvent;
  end;

  TForm1 = class(TForm)
  [...]
  private
    procedure test11(var node: dNode);
  end;
  [...]


procedure TForm1.irgendwas...
var test: pNode;
begin
 test.new := test11;
 test.new(wasweißich);
 [...]