[delphi] TStringList

[cla80]

Devo realizzare una stringlist.

[code]
var

ValIniziale: TStringList;

begin
For i := 0 to (Listview7.items.count - 1) do
begin
valore:= ListView7.Items.Item[i].SubItems.Strings[1]; ValIniziale.add(valore);