eintrag auswählen?! verkettete liste..

[arest]

Moin,

kurze frage: habe eine doppelt verkettete Liste und einen listview in dem meine einträge angezeigt werden. die verkettete liste ist richtig gefüllt und es wird auch richtig im listview angezeigt. nun will ich einen lauf auswählen, um diesen zu bearbeiten/löschen. ich mach das über eine while schleife (siehe code). doch es kommt jedes mal zu dem fall, wo er die showmessage sendet... habt ihr irgendwelche tipps?!

Delphi-Quellcode:

lauf:=TKnoten.Init;
if (ListView1.ItemIndex <> -1)
then begin
        lauf:=anfang;
        while (lauf.Daten.filmname <> Listview1.Items.Item[Listview1.ItemIndex].Caption) do
        begin
           lauf:=lauf.nach;
           if (lauf=ende)
           then begin
                   showmessage('Kein ordnungsgemäßer Eintrag ausgewählt!');   //hier ist der "fehler"
                   exit
                end;
        end;
        lauf.vor.nach:=lauf.nach;
        lauf.nach.vor:=lauf.vor;
        lauf.Free;
        lauf:=anfang.nach;
        sortieren; //externe funktion die nur die liste neu sortiert...
     end;

ich hoffe ihr könnt was mit dem wirrwarr anfangen ;) danke schon mal

[Klaus01]

Delphi-Quellcode:

lauf:=anfang; 
while (lauf.Daten.filmname <> Listview1.Items.Item[Listview1.ItemIndex].Caption) do 
  begin 
    lauf:=lauf.nach; 
    if (lauf=ende) then 
      begin 
        showmessage('Kein ordnungsgemäßer Eintrag ausgewählt!');   //hier ist der "fehler" 
        exit 
     end; 
  end;

Wenn Dein FilmName im zweitletzen Element (lauf) nicht gefunden wurde
wird innerhalb der While Schleife auf das nächste Element gezeigt,
dies ist das letzte Element. Ende wurde also erreicht und die Message
wird ausgegeben.

Ich weiß nicht, wie Du Deine Liste erstellt hast.
Wenn Dein Listenelement mit der Adresse "ende" Daten enthält wird
es in Deiner Schleifenkonstruktion nie geprüft werden.
Ich würde eine verkettet Liste so anlegen:

nil <-- anfang <--> 2. Element <--> ... <--> 2.letzte Element <--> ende --> nil

Dann würd die Abfrage so aussehen:

Delphi-Quellcode:

lauf:=anfang;
match:= false;

while (lauf <> nil) and not match do
  begin 
    match := (lauf.Daten.filmname <> Listview1.Items.Item[Listview1.ItemIndex].Caption);
    lauf:=lauf.nach
  end;

if not match then
  showmessage('Kein ordnungsgemäßer Eintrag ausgewählt!');

Grüße
Klaus

[ManuMF]

Ich würde mal prüfen, ob beim Einlesen ins ListView wirklich der Filmname als Caption genommen wird (ohne Veränderungen wie Zusammensetzen aus mehreren Teil-Daten [Ich denke da an das Schema "Name = Vorname + Nachname"])

[arest]

danke an ManuMF... das war das problem... hatte noch was hintendran geklemmt :( jetzt gehts ;)