Problem mit Zeigern

[praesident]

Zitat:

Zitat von DeddyH

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

bitte entschuldigt, aber ich habe das auch nur von meinem lehrer vorgesetzt bekommen...und nun macht mal

hab das erst seit einer woche und wir hatten vorher nur mit pascal gearbeitet...

könntet ihr also für einen totalen delphi anfänger den fehler noch einmal zusammenfassen? und wenn es nicht allzu viel umstände macht noch einen kleinen programmcode als verbesserung?

wäre echt meine rettung, da mir das mit den zeigern in delphi nicht genauer erläutert wurde


danke

[SirThornberry]

beim aufruf deiner Funktion "push" hat zkopf den Wert nil
das heißt er zeigt auf keinen Speicher. Dementsprechend kracht es immer sobald du auf Untereigenschaften davon zugreifen willst. Wie bereits erwähnt empfehle ich dir das Video Pointerfun damit du ein Gespür für Pointer bekommst.

[DeddyH]

Ungetestet:

Delphi-Quellcode:

PROCEDURE push(VAR zkopf:tzeiger;inhalt:char);
VAR zhilf, zneu:tzeiger;
BEGIN
  //erstes Element soll angelegt werden
  if zkopf = nil then
    begin
      new(zhilf);
      zhilf^.inhalt := inhalt;
      zhilf^.next := nil; 
    end
  //eine weiteres Element soll angehängt werden 
  else
    begin
      zhilf:=zkopf;
      while (zhilf <> nil) and (zhilf^.next <> nil) do
          zhilf:=zhilf^.next;
      new(zneu);
      zneu^.inhalt:=inhalt;
      zneu^.next:=NIL;
      zhilf^.next:=zneu;
    end;
  zkopf := zhilf;
END;

[praesident]

Zitat:

Zitat von DeddyH

Ungetestet:

Delphi-Quellcode:

PROCEDURE push(VAR zkopf:tzeiger;inhalt:char);
VAR zhilf, zneu:tzeiger;
BEGIN
  //erstes Element soll angelegt werden
  if zkopf = nil then
    begin
      new(zhilf);
      zhilf^.inhalt := inhalt;
      zhilf^.next := nil; 
    end
  //eine weiteres Element soll angehängt werden 
  else
    begin
      zhilf:=zkopf;
      while (zhilf <> nil) and (zhilf^.next <> nil) do
          zhilf:=zhilf^.next;
      new(zneu);
      zneu^.inhalt:=inhalt;
      zneu^.next:=NIL;
      zhilf^.next:=zneu;
    end;
  zkopf := zhilf;
END;

super danke...schon mal kein fehler

werd mir das mal genauer anschauen, damit ich verstehe, warum bei mir immer der Fehler erzeugt wurde...

danke nochmal für eue hilfe

[Macci]

Stimmt, daran dass zkopf schon mit nil übergeben wird, habe ich gar nicht gedacht ;-)

@DeddyH:

Hier

Delphi-Quellcode:

 while (zhilf <> nil) and (zhilf^.next <> nil) do 
          zhilf:=zhilf^.next;

ist die erste Abfrage (zhilf<>nil) unnötig ;-)
zhilf kann ja nie nil werden.

[DeddyH]

Stimmt, war noch vom C&P übrig geblieben (schadet aber auch nicht) :zwinker:

[praesident]

aber müsste nicht das:

Delphi-Quellcode:

  zkopf := zhilf;

ganz vor, als letzte zeile der ersten fallunterscheidung?

sonst könnte ich ja nie mehr auf das erste element zugreifen!?

[DeddyH]

Durch diese Zuweisung hast Du immer das letzte Element der Liste in zkopf stehen. Soll das nicht so sein?

[praesident]

Zitat:

Zitat von DeddyH

Durch diese Zuweisung hast Du immer das letzte Element der Liste in zkopf stehen. Soll das nicht so sein?

nein, eigentlich sollte es immer das erste sein...aber das ist ja eigentlich kein aufwand, oder?

[DeddyH]

Nö, ist kein Aufwand, dann mach es so, wie Du selbst schon gesagt hast:

Delphi-Quellcode:

PROCEDURE push(VAR zkopf:tzeiger;inhalt:char);
VAR zhilf, zneu:tzeiger;
BEGIN
  //erstes Element soll angelegt werden
  if zkopf = nil then
    begin
      new(zhilf);
      zhilf^.inhalt := inhalt;
      zhilf^.next := nil;
      zkopf := zhilf; 
    end
  //eine weiteres Element soll angehängt werden
  else
    begin
      zhilf:=zkopf;
      while (zhilf <> nil) and (zhilf^.next <> nil) do
          zhilf:=zhilf^.next;
      new(zneu);
      zneu^.inhalt:=inhalt;
      zneu^.next:=NIL;
      zhilf^.next:=zneu;
    end;  
END;