Problem mit Zeigern

[mkinzler]

Und zKopf ist dann die Wurzel?

Delphi-Quellcode:

PROCEDURE push(zkopf:tzeiger;inhalt:char;i:byte);
VAR zneu:tzeiger;
BEGIN
    //Ermittle letztes Element
    while zhilf^.next<>NIL do
        zkopf := zkopf^.Next;
    new(zneu);
    zneu^.inhalt:=inhalt;
    zneu^.next:=NIL;
    zkopf^.next:=zneu;
END;

[praesident]

Zitat:

Zitat von Macci

Warum nicht einfach so?

Delphi-Quellcode:

PROCEDURE push(VAR zkopf:tzeiger;inhalt:char); 
VAR zhilf,zneu:tzeiger; 
BEGIN 
zhilf:=zkopf; 
WHILE NOT (zhilf^.next=NIL) DO zhilf:=zhilf^.next; 

  new(zneu); 
  zneu^.inhalt:=inhalt; 
  zhilf^.next:=zneu; 
  zneu^.next:=NIL; 
END;

da kommt bei mir hier:

Delphi-Quellcode:

WHILE NOT (zhilf^.next=NIL) DO zhilf:=zhilf^.next;

auch ein fehler

[SirThornberry]

garantiert der gleiche weil zu dem Zeitpunkt schon wieder versucht wird einen Zeiger zu derefernzieren der nil ist (hab ich oben bereits geschrieben).

[Macci]

Komisch... gib doch bitte mal die Definiton von TZeiger

[DeddyH]

Delphi-Quellcode:

WHILE (zhilf <> nil) and (zhilf^.next <> NIL) DO zhilf:=zhilf^.next;

[SirThornberry]

er übergibt der Funktion Push bereits nil

[DeddyH]

Dann kann das nix werden, außer dass der Fehler dann später kommt.

[3_of_8]

Dein Code ist wirklich nicht sonderlich gut. In Pascal kann man sowas schreiben, aber Delphi hat ganz andere Konventionen.

Aber abgesehen von den Konventionen: Warum gehst du immer bis zum Ende hindurch? Wenn das ein Stack ist, könntest du auch einfach dein neues Element ganz vorne hinsetzen. Dann könntest du in konstanter Zeit pushen und poppen.

Außerdem, warum machst du das nicht gleich in einer Klasse?

[praesident]

Zitat:

Zitat von DeddyH

Delphi-Quellcode:

WHILE (zhilf <> nil) and (zhilf^.next <> NIL) DO zhilf:=zhilf^.next;

wenn ich die Zeile eingebe, hängts hier

Delphi-Quellcode:

  zhilf^.next:=zneu;

hier die deklaration:

Delphi-Quellcode:

TYPE tzahl=char;
     tinhalt=tzahl;
     tzeiger=^tknoten;
     tknoten= RECORD
               inhalt: tinhalt;
               next:tzeiger;
               END;

VAR zliste,zkopf :tzeiger;

[DeddyH]

Wenn Du nil an die Funktion übergibst, kommt der Fehler eben an der besagten Stelle.