AGB  ·  Datenschutz  ·  Impressum  







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

Problem mit Zeigern

Ein Thema von praesident · begonnen am 29. Feb 2008 · letzter Beitrag vom 1. Mär 2008
Antwort Antwort
Seite 1 von 7  1 23     Letzte »    
praesident

Registriert seit: 29. Feb 2008
25 Beiträge
 
#1

Problem mit Zeigern

  Alt 29. Feb 2008, 20:40
Hallo,

ich habe in der Schule beim Umstieg von Pascal auf Delphi ein Problem. Und zwar bekomme ich beim Arbeiten mit Zeigern ständig einen Exeption Fehler angezeugt.

Hier der problematische Programmteil:


Delphi-Quellcode:
PROCEDURE push(VAR zkopf:tzeiger;inhalt:char;i:byte);
VAR zhilf,zneu:tzeiger;

BEGIN
 zhilf:=zkopf;
 zhilf^.next:=NIL;
IF NOT(i=1) THEN
 BEGIN
 REPEAT
  zhilf:=zhilf^.next;
 UNTIL zhilf^.next=NIL;
 END;
  new(zneu);
  zneu^.inhalt:=inhalt;
  zhilf^.next:=zneu;
  zneu^.next:=NIL;
END;
wenn ich einen Wert eingebe, bleibt er jedesmal bei zhilf^.next:=NIL; stehen. nehm ich die zeile raus, weiter unten.
bei Pascal hatte ich das Problem nicht. Woran liegt das?

Ich komm wirklich nicht mehr weiter
Danke für eure Hilfe.

mfg
de präsi
  Mit Zitat antworten Zitat
29. Feb 2008, 20:43
Dieses Thema wurde von "Dax" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Object-Pascal / Delphi-Language" verschoben.
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Problem mit Zeigern

  Alt 29. Feb 2008, 20:46
wie rufst du die funktion auf und warum übergibst du zkopf als var parameter wenn du in der Funktion den Wert gar nicht neu setzt?
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#4

Re: Problem mit Zeigern

  Alt 29. Feb 2008, 20:46
Zitat:
Delphi-Quellcode:
zhilf^.next:=NIL;
IF NOT(i=1) THEN
BEGIN
REPEAT
  zhilf:=zhilf^.next;
UNTIL zhilf^.next=NIL;
Diese Logik versteh ich nicht. Du setzt den Nachfolger initial auf nil, weist diesen in der Schleife dem Zeiger selbst zu (also sind anschließend beide nil) und fragst ihn dann wieder ab
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
praesident

Registriert seit: 29. Feb 2008
25 Beiträge
 
#5

Re: Problem mit Zeigern

  Alt 29. Feb 2008, 20:51
Zitat von SirThornberry:
wie rufst du die funktion auf und warum übergibst du zkopf als var parameter wenn du in der Funktion den Wert gar nicht neu setzt?
Hier wird die Prozedur aufgerufen:

Delphi-Quellcode:
  init(zkopf);
  laeng:=length(edit1.Text);
  FOR i:=1 TO laeng DO
   BEGIN
    push(zkopf,edit1.text[i],i);
   END;
"i" übernehme ich, weil die Funktion, die prüfen sollte, ob zkopf auf NIL zeigt auch diesen exeption fehler erzeugt hatte

ja, das mit dem VAR parameter wurde uns glaub ich von meinem info lehrer so gesagt...scheint aber wirklich überflüssig zu sein

danke

PS: ich hab den Fehler nochmal als anhang hochgeladen
Miniaturansicht angehängter Grafiken
fehler_499.jpg  
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#6

Re: Problem mit Zeigern

  Alt 29. Feb 2008, 20:53
Was soll den die Funktion genau machen?
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#7

Re: Problem mit Zeigern

  Alt 29. Feb 2008, 20:55
anhand des Fehlers sag ich mal das "zkopf" nil ist. Und damit krachts natürlich beim zugriff auf next.
Anhand dessen was du bisher gepostet hast empfehle ich dir das Video Pointerfun ( http://www.delphipraxis.net/internal...=357830#357830 ). Da werden Pointer wunderbar erklärt mit Beispiel.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
praesident

Registriert seit: 29. Feb 2008
25 Beiträge
 
#8

Re: Problem mit Zeigern

  Alt 29. Feb 2008, 20:57
Zitat von mkinzler:
Was soll den die Funktion genau machen?
naja, das ist teil eines rechners, wo ich die aufgabe in soner postfix-form eingebe...

dazu soll das eingabefeld ausgelesen werden und jedes zeichen einzeln in einen stack (die liste) geschrieben werden...

danach wird gerechnet...
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#9

Re: Problem mit Zeigern

  Alt 29. Feb 2008, 20:58
Nochmal:
Delphi-Quellcode:
zhilf^.next:=NIL; //Nachfolger ist nil
IF NOT(i=1) THEN
BEGIN
REPEAT
  zhilf:=zhilf^.next; //jetzt ist auch zhilf nil
UNTIL zhilf^.next=NIL; //next von nil^?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Macci

Registriert seit: 31. Mai 2007
129 Beiträge
 
#10

Re: Problem mit Zeigern

  Alt 29. Feb 2008, 21:02
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;
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 7  1 23     Letzte »    


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 21:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz