Hallo Daniel,
wie folgt sollte es klappen:
Code:
[b]procedure[/b] LVFuellen(s : [b]String[/b]);
[b]var[/b] t : [b]String[/b];
i : Integer;
[b]begin[/b]
t:= 'ListView' + s; [color=#000080]// in t steht jetzt der vollstaendige Name des Listview[/color]
[b]With[/b] TListView( FindComponent(t) ) [b]Do[/b]
[b]For[/b] i := 0 [b]to[/b] Items.Count-1 [b]do[/b]
[b]Begin[/b]
... [color=#000080]//[/color]
[b]End;[/b]
[b]End;[/b]
Greeeeeeeeetz,
DrDangerous