Hi Ihr,

ich habe folgenden Code im OnSelectItem

markieren

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

markieren

Delphi-Quellcode:

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

Dann erhalte ich an der Stelle
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
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

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

mfg dnub

Hi und nabend!

in der Lösch-Abteilung steht ganz simpel:

markieren

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

markieren

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...

Zitat:

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.

markieren

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

markieren

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.

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 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

Zitat von himitsu:

markieren

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:
t1 := usr.name;


------
EDIT WICHTIG

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

markieren

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
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

Es gibt ja auch keinen Zugriffsfehler auf das ListItem, sondern auf das angehängte Objekt sub.Objects[ 3 ] Somit solltest du vor dem Zugriff auf dieses Objekt prüfen, ob dieses auch existiert.
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.