TFindComponent

[himitsu]

Delphi-Quellcode:

for I := 0 to TimeList.Count-1 do TListView(SellProductForm.FindComponent(TimeList.Strings[I]+'View')).Items.Clear;
for I := 0 to TimeList.Count-1 do TListView(SellProductForm.FindComponent(TimeList[I]+'View')).Items.Clear;  // Strings ist das Default-Proeprty
for S in TimeList do TListView(SellProductForm.FindComponent(S)).Items.Clear;  // TStrings/TStringList besitzt einen Enumerator
for var S in TimeList do TListView(SellProductForm.FindComponent(S)).Items.Clear;  // Schleifenvariablen deklariere ich neuerdings direkt in der Schleife

for S in TimeList do (SellProductForm.FindComponent(S) as TListView).Items.Clear;  // falls es nicht sicher ist, ob es wirklich immer eine TListView ist

for S in TimeList do begin
  Assert(Assigned(SellProductForm.FindComponent(S)));  // denn was wäre, wenn du den Namen falsch geschrieben hast, bzw. es diese Komponente nicht mehr gibt
  (SellProductForm.FindComponent(S) as TListView).Items.Clear;
end;