Also, der Fehler war in einer Procedure, in beim OnChange-Ereignis einer PageControl aufgerufen wird (das OnChange wird anscheinend auch beim Form.Create ausgeführt):
Code:
for x := 0 to sl.count -1 do <== Hier habe ich vergessen, ein "begin" hinzuzufügen... :)
_debugstr := 'Lese: ' + sl[x];
with form1.FindComponent(sl[x]) as TAdvListView do begin <== Darum hier der Fehler
BeginUpdate;
items.clear;
EndUpdate;
end;
Also Danke nochmals!
