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