Prozedur in Typendeklaration

[Christian Seehase]

Moin Niels,

ich auch, und das sieht dann so aus:

Delphi-Quellcode:

procedure New(var node: dNode);
begin
  // Was auch immer damit passieren soll
end;

procedure TForm1.Button1Click(Sender: TObject);

var
  pWork : pNode;
  dWork : dNode;

begin
  pWork.new := @new;
  dWork     := @dWork;
  pWork.new(dWork);
end;

Klappt auch, obwohl ich die Wahl von new als Prozedurenamen ansonsten als unglücklich erachte, da es eine Prozedur gleichen Namens ja schon gibt.
BTW:
Den Recordtypen mit p beginnen zu lassen, und den zugehörigen Pointer mit d hat mich offengestanden ein klein wenig irritiert. Eigentlich beginnen Pointer mit p (besser P).

[Niels]

Danke. Ich guck erstmal wie weit ich jetzt komm :)

Wegen der Typenbezeichnung:
ich hatte immer:

type
dpnode = ^dnode
dnode = record...

aber dpnode war zu lang und intern ist das ja sowieso egal.

[neolithos]

Delphi-Quellcode:

unit Unit2;
interface

type
  PVListNode = ^TVListNode;
  TVListNode = record
    pNext : PVListNode;
    fData : record end;
  end;

  TVList = class
  private
    pFirst : PVListNode;
    iDataSize : Integer;
  protected
    function GetLast : PVListNode;
  public
    constructor Create(aiDataSize : Integer);
    destructor Destroy; override; // fehlt noch

    procedure AddItem(const fData);
    procedure DeleteAll;
  end;

implementation


{ TVList }

procedure TVList.AddItem(const fData);
var pNew : PVListNode;
begin
  GetMem(pNew, SizeOf(TVListNode) * iDataSize);
  pNew^.pNext := nil;
  Move(fData, pNew^.fData, iDataSize); // Daten in Buffer

  if pFirst = nil then
     pFirst := pNew
  else
     GetLast^.pNext := pNew;
end;

constructor TVList.Create(aiDataSize : Integer);
begin
  inherited Create;
  pFirst := nil;
  iDataSize := aiDataSize;
end;

destructor TVList.Destroy;
begin
  DeleteAll;
  inherited;
end;

function TVList.GetLast: PVListNode;
begin
  if pFirst = nil then
     Result := nil
  else
     begin
       Result := pFirst;
       while Result^.pNext <> nil do
         Result := Result^.pNext;
     end;
end;

end.

So, sieht das ding komplett aus.

Anmerk: wie haben via ICQ getextet.

[Niels]

Danke für deine Hilfe (auch wenn ichs über ICQ schon gesagt hab) :wink: