[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);

[cla80]

Volevo precisare che ho inserito la creazione della StringList all'inzio così.

ValIniziale:=TStringList.Create;

[AlbertoPicca]

Ma dove é il problema?

[alka]

Il codice è pieno di errori.

Innanzitutto, manca la creazione di un'istanza di TStringList.

Non hai specificato qual è il problema e l'errore che ottieni, anche se suppongo si tratti di un Access Violation.

La scrittura

ListView7.Items.Item[i].SubItems.Strings[1];

Può essere abbreviata con

  ListView7.Items[i].SubItems[1]

Comunque, i SubItems devono già essere stati definiti in precedenza.

Ricordati di specificare anche a cosa ti serve la TStringList che ti appresti ad utilizzare.