TFindComponent

[mytbo]

Zitat von creehawk:

for I in TimeList do TListView(SellProductForm.FindComponent(I)).Items.Clear; Das funktioniert. Warum jetzt auch immer .....

Nicht sicher! FindComponent kann Nil oder etwas anderes als ein TListView liefern:

Delphi-Quellcode:

var
  clv: TComponent;
begin
  for s in TimeList do
  begin
    clv := SellProductForm.FindComponent(s);
    if clv is TListView then
      TListView(clv).Items.Clear;
  end;

PS: himitsu hat das in Post 4 schon geschrieben.

Bis bald...
Thomas