autodatenbank mit zeigern

mkinzler · Verfasst: So 29.10.06 13:12

.Nachbar des Vorgängers auf .Nachbar des zu Löschenden setzen, dann kannst du den Eintrag freigeben.

_________________
Markus Kinzler.

hansa · Beiträge: 3079 Erhaltene Danke: 9

Doppelpost. Selber gelöscht.

_________________
Gruß
Hansa

hansa · Beiträge: 3079 Erhaltene Danke: 9

Du meinst jetzt wohl aus der Liste ? Dann wäre er das nächste mal doch wieder drin. Soll er dauerhaft aus der Liste verbannt werden, dann am besten in der zugrunde liegenden Tabelle löschen. Nur temporär aus der Liste löschen ? Hm, dann wird er später doch wieder gebraucht. Und dann ? Für diesen Fall würde ich eher für die Knoten der Liste die Datenstrukturen erweitern. Noch ein boolsches Feld kommt dazu : anzeigen : boolean; Der Benutzer kann dann per Button oder sonstwas den Wert anzeigen oder es eben unterdrücken. Mehr ist zu dieser unpräzisen Frage nicht zu sagen. Dass das Programm geschrieben wird, damit irgendwer es mal benutzt ist schon klar.

_________________
Gruß
Hansa

LinzerASK · Beiträge: 135 WIN XP Delphi 4, Delphi 2005

hallo!

kann ich den eintrag auf diese art löschen?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button5Click(Sender: TObject);
var i:integer;
begin

New(q);


p:=erster;

for i:=i to spinedit1.value do //bis vor die einzufügende Stelle nach hinten gehen


    p:=p^.nachbar;
    q^.nachbar:=p^.nachbar;
    p^.nachbar:=q;





end;

LinzerASK · Beiträge: 135 WIN XP Delphi 4, Delphi 2005

und kann man so etwas rauslöschen?

mkinzler · Verfasst: So 29.10.06 16:53

auto zeigt auf zu Löschenden Eintrag
Dispose( auto);
gibt Eintrag frei.
Aber Achtung wie Hansa schon erwähnt hat, wird dann der entsprechende Eintrag in der DB (wenn vorhanden) nicht mitgelöscht.

_________________
Markus Kinzler.

LinzerASK · Beiträge: 135 WIN XP Delphi 4, Delphi 2005

also mit meiner variante geht das nicht oder wie?

jetzt einfach dispose(autoamrke), dispose(model), etc?

mkinzler · Verfasst: So 29.10.06 17:22

Dein Code löscht ja nichts, im Gegenteil, es wird ein neuer Eintrag erstellt:

markieren

Delphi-Quelltext

1:

New(q);

In der Schleife, diese aber zum Vorgängers, des zu löschenden Eintrags:

markieren

Delphi-Quelltext

1:	p:=p^.nachbar;

markieren

Delphi-Quelltext

1:
2:
3:

   q^ := p^.nachbar; //q ist Eintrag der gelöscht werden soll
    p^.nachbar:= q^.Nachbar; //Vorgänger zeigt nun auf Nachfolger
    Dispose( q); // Löscht q

Zitat:

jetzt einfach dispose(autoamrke), dispose(model), etc?

Nein Dispose löscht die ganze Auto-Struktur

_________________
Markus Kinzler.

LinzerASK · Beiträge: 135 WIN XP Delphi 4, Delphi 2005

also wie jetzt?

mkinzler · Verfasst: So 29.10.06 19:54

LinzerASK hat folgendes geschrieben:

also wie jetzt?

Was wie?

_________________
Markus Kinzler.

LinzerASK · Beiträge: 135 WIN XP Delphi 4, Delphi 2005

was muss ich jetzt programmieren um den aktuell ausgewählten datensatz, der angezeigt wird auf meinen panels, löschen zu können - nicht aus der DB sondern nur temporär!

mkinzler · Verfasst: So 29.10.06 20:10

Hab ich doch oben beschrieben.

_________________
Markus Kinzler.

hansa · Beiträge: 3079 Erhaltene Danke: 9

Mein Ansatz wäre immer noch : Eintrag nicht löschen, sondern lediglich kennzeichnen als gelöscht. So machen das alle DBs ! Geht das, egal warum nicht, dann hänge die Zeiger eben um. Das hat mkinzler schon skizziert. Ein Zeiger / Knoten der Liste ist lediglich eine Variable. Ich kann damit auch eine Wertzuweisung machen. Insofern ist es leicht möglich, vom Vorgänger direkt zum Nachfolger zu springen und dadurch einen Zeiger zu "überspringen". Es gibt auch Konstrukte wie : P^.Nachbar^.Nachbar^.Nachbar^. Das wird aber ohne Sicherheitsmaßnahmen wohl zu AVs führen. Deshalb geht man hin und führt Hilfsvariablen ein. Zeiger wird weitergereicht und Variable dann gelöscht.

_________________
Gruß
Hansa

LinzerASK · Beiträge: 135 WIN XP Delphi 4, Delphi 2005

ich lade jetzt einmal mein programm hoch damit ihr euch einmal einen besseren überblick habt:

wie folgt:

Einloggen, um Attachments anzusehen!

mkinzler · Verfasst: So 29.10.06 20:58

Dann mach ne Schleife von 1 bis 2 (3-1). dann sthet in p der Vorgänger. dann speichere den nacgfolger von p (der zu löschende) in q. Biege den Nachfolger auf den nachfolger von q um. dadurch hast den Eintrag q (3.Eintrag) aus der Liste entfernt, und kannst in mit Dispose löschen.

_________________
Markus Kinzler.

LinzerASK · Beiträge: 135 WIN XP Delphi 4, Delphi 2005

@mkinzler:

das programm ist nun online!

hansa · Beiträge: 3079 Erhaltene Danke: 9

Genau das ist doch mein Ansatz. Es ist völlig egal, was angezeigt wird. Die paar ausgeblendeten Knoten in der Liste sind völlig uninteressant. Die wichtigen sind trotzdem da. Du brauchst keine Zeiger umzuhängen usw. Alles kann auch leicht rückgängig gemacht werden durch setzen eines Bool-Feldes.

_________________
Gruß
Hansa

LinzerASK · Beiträge: 135 WIN XP Delphi 4, Delphi 2005

@hansa

könntest du mir das bei meinem programm reinschreiben!

ich wäre dir so dankbar!

mkinzler · Verfasst: So 29.10.06 21:22

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

type
   PAuto = ^Auto;
    Auto = Record
            Automarke,  Model: String;
            Baujahr,Verkaufspreis : Integer ;
            Anzeigen: Boolean;
            Nachbar : PAuto;
          End;

Nach dem Erzeugen:

Zitat:

p^.Anzeigen := True;

Beim Durchschreiten der Liste nur die mit .Anzeigen := True; berrücksichtigen.

Statt Löschen:

Zitat:

q^.Anzeigen := False;

_________________
Markus Kinzler.

LinzerASK · Beiträge: 135 WIN XP Delphi 4, Delphi 2005

also ich habe jetzt echt keinen plan mehr. danke für eure bemühungen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme