TFindComponent

[Andreas L.]

Zitat von creehawk:

Delphi-Quellcode:

  TimeList := TStringlist.Create;
  TimeList.add('EarlyGame');
  TimeList.add('EarlyMidGame'); // <--- Hier steht was anderes als unten!
  TimeList.add('MidGame');
  // ...

...

Delphi-Quellcode:

  TListView(SellProductForm.FindComponent('EarlyGameView')).Items.Clear;   
  TListView(SellProductForm.FindComponent('EarlyMidGameView')).Items.Clear; // <--- oben steht EarlyMidGame statt EarlyMidGameView!
  TListView(SellProductForm.FindComponent('MidGameView')).Items.Clear;

Lag es vielleicht daran?

[himitsu]

drum machte er ja auch

Zitat von creehawk:

FindComponent(TimeList.Strings[I]+'View')

[TiGü]

Wie viele Komponenten/Listviews sind es denn in Wirklichkeit?
Bevor hier wieder so Frickel-Lösungen rumgereicht werden, tut es vielleicht auch ein Dreizeiler?

Delphi-Quellcode:

SellProductForm.EarlyGameView.Items.Clear;
SellProductForm.EarlyMidGameView.Items.Clear;
SellProductForm.MidGameView.Items.Clear;

[himitsu]

Wie viele ... gute Frage ... Vorspann, Anfang, Mitte und das EndGame?

Bezeichner, anstatt doofer Strings, sind eh besser, denn da meckert schon der Compiler, wenn es diese Komponente Variable nicht gibt.

Delphi-Quellcode:

//for var LV: TListView in [EarlyGame, EarlyMidGame, MidGame] do  // falls das mit der Typinferenz nicht funktioniert
for var LV in [EarlyGame, EarlyMidGame, MidGame] do
  LV.Items.Clear;

aber es gibt bestimmt noch Millionen andere Lösungen.

Delphi-Quellcode:

for var C in SellProductForm do
  if C is TListView then
    TListView(C).Items.Clear;

@Andreas: Bitte sag nicht, dass dieser Code innerhalb einer Methode von TSellProductForm liegt.