Destruktor für verkettete Liste

[Mavarik]

Zitat von Teesäufer:

Hallo Stahli,

Zitat von stahli:

Das Freigeben und auf NIL setzen, kann man auch mit einem Rutsch erledigen: FreeAndNil(Person1)

Ja, das hatte ich auch so mitbekommen. Aber beinhaltet das dann auch die anderen Objekte (in dem Fall den Rest der Kette)

OK... Nochmal vom Anfang an.

Delphi-Quellcode:

TListe = class
    private
    inhalt: string;
    next: Tliste;
    public
    constructor create(wert: string);
    destructor destroy; override;
    function gibmirinhalt: string;

  end;

Klar kann man Objekte (Class) für eine verkettete Liste nehmen. Wie setzt du next?

Delphi-Quellcode:

Type
  PStringItem = StringItem;
  StringItem  = Record
                  Inhalt : String;
                  Next   : PStringItem;
                end;
var
  Root : PStringItem;

Währe eher mein Ansatz für eine verkette Liste. Oder:

Delphi-Quellcode:

Type
  IStringItem = Interface
   ['{CCB4015D-A7A8-44D1-910B-ADC1847C0BC4}']
    Function  GetInhalt : String;
    Procedure SetInhalt(Const aValue : String);
    Property Inhalt : String read GetInhalt write SetInhalt;
  end;

  TStringItem = Class(TInterfacedObject,IStringItem)
    private
      Function  GetInhalt : String;
      Procedure SetInhalt(Const aValue : String);
    private
      fInhalt : String;
    public
      Constructor Create(Const aInhalt : String);
  end;

var
  StringList : array of IStringItem;

Ein Setlength(StringList,0) löscht alle Deine Elemente...

Mavarik

[Teesäufer]

Hallo Mavarik,

zuerst einmal möchte ich mich für die späte Antwort entschuldigen. Aber ich habe zu viel anderen Kram, sodass ich mich ums Programmieren meistens nur einmal die Woche kümmern kann.

Zitat von Mavarik:

Klar kann man Objekte (Class) für eine verkettete Liste nehmen. Wie setzt du next?

procedure TListObjekt.ergaenze(neu: string);
var element: TListelement;
begin
element:=TListelement.Create(neu);
if start=nil then
begin
start:=element;
aktuell:=element;
end
else
begin
endeListe;
aktuell.next:=element;
aktuell:=aktuell.next;
end;
end;

Das mit Lazarus schaue ich mir bei Gelegenheit mal an ...

[Mavarik]

Zitat von Teesäufer:

Hallo Mavarik,

Delphi-Quellcode:

procedure TListObjekt.ergaenze(neu: string);
var element: TListelement;
begin
  element:=TListelement.Create(neu);
  if start=nil then
  begin
    start:=element;
    aktuell:=element;
  end
  else
  begin
    endeListe;
    aktuell.next:=element;
    aktuell:=aktuell.next;
  end; 
end;

Next ist ein privates Feld, Diese Feld kannst Du nur in der gleichen Unit erreichen... Das macht man so nicht!

Mavarik

[Andreas13]

Zitat von Teesäufer:

procedure TListObjekt.ergaenze(neu: string);
var element: TListelement;
begin
element:=TListelement.Create(neu);
if start=nil then
begin
start:=element;
aktuell:=element;
end
else
begin
endeListe;
aktuell.next:=element;
aktuell:=aktuell.next;
end;
end;

Hallo Teesäufer,
Du kannst Deinen QuellCode hier mit Hilfe des Delphi-Symbols (= Helm mit rotem Kamm gleich über der ersten Zeile im Editor) richtig formatieren, damit er besser lesbar ist.
Gruß, Andreas
PS: Das geht auch nachträglich über den Button "Bearbeiten"

[EmWieMichael]

Zitat von Mavarik:

...

Delphi-Quellcode:

Type
  PStringItem = StringItem;
  StringItem  = Record
                  Inhalt : String;
                  Next   : PStringItem;
                end;
var
  Root : PStringItem;

Da fehlt aber eine entscheidende Kleinigkeit : PStringItem = ^StringItem;

[Mavarik]

Zitat von EmWieMichael:

Zitat von Mavarik:

...

Delphi-Quellcode:

Type
  PStringItem = ^StringItem;
  StringItem  = Record
                  Inhalt : String;
                  Next   : PStringItem;
                end;
var
  Root : PStringItem;

Da fehlt aber eine entscheidende Kleinigkeit : PStringItem = ^StringItem;

Das ist richtig.. Ich braucht immer 2 Versuche um das "^" in den Source zu bekommen.