ListView | MakeVisible | selected und Obejcts Probleme

[delphinia]

Hi Ihr,

ich habe folgenden Code im OnSelectItem

Delphi-Quellcode:

  if MyList.Selected <> nil then
  begin
t1 := (MyList.Items.Item[MyList.Selected.Index].SubItems.Objects[3] as TUserL).name;
end;

wenn ich normal mit der Mouse oder den Coursern in der Liste navigiere/markiere ist alles ok und bekommen den user-Namen aus dem Object!

ABER

wenn ich einen Eintrag lösche und wieder zum Eintrag 0 springe

Delphi-Quellcode:

        MyList.HideSelection := False;
        MyList.Items[0].MakeVisible(true);
        MyList.items.item[0].selected := true;

Dann erhalte ich an der Stelle

Delphi-Quellcode:

t1 := (MyList.Items.Item[MyList.Selected.Index].SubItems.Objects[3] as TUserL).name;

eine Zugriffsverletzung


Jemand eine Idee warum?


Edit:

Normaler Eintrag an der zeile in Form von

Delphi-Quellcode:

t2 := MyList.Items.Item[MyList.Selected.Index].SubItems.Strings[1];

Ist dagegen ohne Probleme löst aber mein Problem nicht da ich Zugriff auf das Object brauche

[delphinub23]

abend, zeigst du mir mal bitte die stelle an der du das element löschst?

mfg dnub

[delphinia]

Hi und nabend!

in der Lösch-Abteilung steht ganz simpel:

Delphi-Quellcode:

MyList.Selected.Delete;
    MyList.HideSelection := False;
        MyList.Items[0].MakeVisible(true);
        MyList.items.item[0].selected := true;

habe es schon MIT und OHNE
diesem zusätzlichen Eintrag versucht

Delphi-Quellcode:

MyList.Items.Item[MyList.Selected.Index].SubItems.Objects[3].Free;
MyList.Items.Item[MyList.Selected.Index].SubItems.Objects[3] := nil;

zusätzlich versucht...

[himitsu]

Zitat:

Delphi-Quellcode:

t1 := (MyList.Items.Item[MyList.Selected.Index].SubItems.Objects[3] as TUserL).name;

Splitte den Befehl doch mal auf und schau wo es genau knallt.
Dort sind soviele Zugriffe verschachtelt ... da ja doch jeder dran Schuld sein.
Und ohne den Schuldigen zu kennen, kann man nach keiner Lösung suchen.

Delphi-Quellcode:

sel := MyList.Selected;
idx := sel.Index;
itm := MyList.Items.Item[idx];
sub := itm.SubItems;
obj := sub.Objects[3];
usr := obj as TUserL;
t1 := usr.name;

Wo knallt es hier?

oder

Delphi-Quellcode:

try 
  t1 := (MyList.Items.Item[MyList.Selected.Index].SubItems.Objects[3] as TUserL).name;
except
  t1 := (MyList.Items.Item[MyList.Selected.Index].SubItems.Objects[3] as TUserL).name;
end;

Haltepunkt ins Except und dann debuggen.

[delphinub23]

Eins vorweg, ich bin Anfänger also schimpf nicht mit mir wenn ich komische Fragen stelle, ich versuche nur zu helfen ^^

Du löschst hier diesen Eintrag

Delphi-Quellcode:

MyList.Items.Item[MyList.Selected.Index].SubItems.Objects[3]

aus deinem TListview oder?

Und danach versuchst du wieder auf das gelöschte Element zuzugreifen?

Das muss ja dann auch eine AV geben. Korrigiere mich, wenn ich das falsch interpretiere.

mfg dnub

[delphinia]

Zitat:

Zitat von himitsu (Beitrag 1105158)

Delphi-Quellcode:

sel := MyList.Selected;
idx := sel.Index;
itm := MyList.Items.Item[idx];
sub := itm.SubItems;
obj := sub.Objects[3];
usr := obj as TUserL;
t1 := usr.name;

Wo knallt es hier?

Ich führe das Programm aus Delphi heraus ja aus udn wenn die Zugriffsverletzung kommt spring der Editor an diese Zeile:

Delphi-Quellcode:

t1 := usr.name;

------
EDIT WICHTIG

das komische ist ja das es normal funktioniert nur nicht wenn ich einen Eintrag lösche und dann

Delphi-Quellcode:

 MyList.HideSelection := False;
        MyList.Items[0].MakeVisible(true);
        MyList.items.item[0].selected := true;

an 0 Springe --- lasse ich das weg mit dem Springen, kann ich normal weiter tun und einträge markieren!




-------------
EDIT 2:

lösche ich

Delphi-Quellcode:

MyList.HideSelection := False;

ist alles gut und keine Zugriffsverletzung! Komisch hatte damit noch nie ärger hmmm







@delphinub23 nein nehme keine zugriff auf das gelöschte element ist ja weg :)
"MyList.Selected.Index" sagt ja welchen eintrag ich nehmen soll

[Sir Rufo]

Es gibt ja auch keinen Zugriffsfehler auf das ListItem, sondern auf das angehängte Objekt

Delphi-Quellcode:

sub.Objects[ 3 ]

Somit solltest du vor dem Zugriff auf dieses Objekt prüfen, ob dieses auch existiert.

Delphi-Quellcode:

If Assigned( obj ) then

Eine weitere Möglichkeit wäre auch wenn SubItems.OwnsObjects True ist und das gelöschte Item auch dieses Objekt in den SubItems beinhaltet.