Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
9. Dez 2011
also so ?! :
Procedure TForm1.AddElement(Wert: integer);
Var
hlp: PEintrag;
Begin
// Anfang vorhanden ?
If (First = Nil) Then Begin
New(First);
First^.Vorgaenger := Nil; // Der Anfang der Kette hat keinen Vorgänger;
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
9. Dez 2011
Das habe ich jetzt mal versucht. Aber weiß nicht wie ich das machen soll. Das neu hinzugefügte ist ja quasi immer das letzte...
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
9. Dez 2011
Wie kann ich denn sagen er soll alles ausgeben bis er zum letzten kommt.
Ich habs so probiert, er gibt mir dann die 10 ersten aus, leider zeigt er vorher wieder eine Fehlermeldung...glaube ich hab das mit dem Pointer noch nicht ganz verstanden.
Procedure TForm1.OutList;
Var
x: integer;
Next: pEintrag;
Begin
new(Next);
LBOutNumber.Items.Strings := IntToStr(first.Wert);
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
9. Dez 2011
danke :))
kann man das ergebnis leicht in eine TListBox eintragen.
Sodass er einfach von vorne nach hinten durchgeht und die Werte einträgt?
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
9. Dez 2011
Ahh, habs...also hoffe das ist so richtig..habe new(hlp) hinzugefüht
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
9. Dez 2011
auch wenn ich freeKette auskommentiere kommt der fehler
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
9. Dez 2011
wie gehe ich denn einzeln da durch, habs mit f7 gemacht. und bekomme den fehler erst ganz am ende, wenn das programm schon beendet ist.
Später möchte ich die Kette sortieren. Glaube dann brauch ich das array, oder nicht?? ^^
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
9. Dez 2011
in keiner Zeile..Programm startet normal. Wenn ich dann Zahlen einfüge und mein TForm1 schließe, bekomme ich den Fehler angezeigt
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
9. Dez 2011
So, nun habe ich mich schlau gemacht, bekomme aber beim schließen meines Programme eine Fehlermeldung "Zugriffsverletzung"..wo liegt mein Fehler:
Type
PEintrag = ^TEintrag;
TEintrag = Record
Vorgaenger: PEintrag;
Wert: integer;
Nachfolger: PEintrag;
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
9. Dez 2011
dann werde ich da mal rein schauen und mich schlau machen :-P
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
9. Dez 2011
Nachdem ich mein Programm fertig habe, gab es eine neue Aufgabe:
Nun soll der Record Vorgänger, Wert und Nachfolger enthalten.
Ich füge mal ein jpg ein, dass ich bekommen habe zur Hilfe.
Nun wollte ich erstmal anfangen das eingeben zu Programmieren.
Also die erste Eingabe ist der start record und zeigt auf den 2, der auf den 3 usw.
Also ich hab mir das so gedacht, stimmt das? :
Type