AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

template verkettete liste

Ein Thema von JnZn558 · begonnen am 6. Mär 2010 · letzter Beitrag vom 7. Mär 2010
 
JnZn558

Registriert seit: 22. Aug 2004
98 Beiträge
 
#16

Re: template verkettete liste

  Alt 7. Mär 2010, 13:49
ein tippfehler war mir unterlaufen, ich hab es nun geaendert.

Delphi-Quellcode:
PList = ^vList;
  vList = record
    nCount : Cardinal; // number of datas
    pItem : Pointer; // data pointer
    pNextItem : PList; // next item
    pLastItem : PList; // previous item
  end;

  vArray = class
    m_list : vList;

  public
    constructor Create(pValue: Pointer);
    destructor Destroy; override;
  end;

  constructor ZArray.Create(pValue: Pointer);
  var
    p : Pointer;
  begin
    if Assigned(pValue) then
    begin
      with Self do
      begin
        m_list.nCount := 1;
        New(m_list.pItem);
        m_list.pItem^ := pValue^; // hier soll der fehler sein
        m_list.pNextItem := nil;
        m_list.pLastItem := nil;
      end
    end;
  end;
Zitat von Khabarakh:
Zitat von DeddyH:
Ich steig da nicht mehr durch: PList, ZList, vList, m_list, was ist was?
dito, aber es muss auf jeden Fall
m_list.pItem := pValue; heißen.
Und ein with self bewirkt nicht wirklich viel .
ich moechte den wert kopieren, nicht der adresse von pValue, denn wenn die pValue im fall auf NIL gesetzt wird, dann schmiert pItem auch ab, is doch so nicht?
Peace on the world
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:56 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz