PDA

Visualizza la versione completa : (Delphi XE) Salvare il contenuto della ListView in un file di testo


camaleonteplus
27-05-2013, 21:26
Con questo codice mi dovrebbe salvare il contenuto di una ListView in un file:

procedure TForm1.Button4Click(Sender: TObject);
var
i, h: integer;
list: TStringList;
begin
List:= TStringList.Create; //crea la lista di stringhe
try
for i:= 0 to ListView2.Items.Count - 1 do
begin
List.Add (ListView2.Items[i].Caption;
List.Add('@' + IntToStr(ListView2.Items[i].ImageIndex));
for h:= 0 (ListView2.Items[i].SubItems.Count - 1 do
List.Add(#9 + ListView2.Items[i].SubItems[h]);
end;
List.SaveToFile(ExtractFilePath(Application.ExeNam e) + 'Ospiti.txt')
finally
List.Free;
end;
end;
Ma non capisco perchè su questa riga:

for h:= 0 ListView2.Items[i].SubItems.Count - 1 do
mi da questo errore:
[DCC Error] Unit1.pas(204): E2029 'TO' expected but identifier 'ListView2' found
Chiedo aiuto agli esperti. :cry:

oregon
27-05-2013, 21:43
Sai come si scrive una for ?

Cosa vuol dire

'TO' expected

?

camaleonteplus
28-05-2013, 20:50
Non ho proprio idea come modificare il codice, questa porzione di codice l'ho trovata su un sito:
http://www.sicurpas.it/forum/Thread-Esercitare-il-controllo-completo-sul-componente-ListView
ed era pieno di errori di trascrizioni l'unico errore che non ho saputo corregere è quello che ti ho passato. Mi daresti una mano nel corregerlo?

camaleonteplus
28-05-2013, 21:14
Ho capito l'errore:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i, h: integer;
list: TStringList;
begin
List:= TStringList.Create; //crea la lista di stringhe
try
for i:= 0 to ListView2.Items.Count - 1 do
begin
List.Add (ListView2.Items[i].Caption);
List.Add('@' + IntToStr(ListView2.Items[i].ImageIndex));
for h:= 0 to ListView2.Items[i].SubItems.Count - 1 do
List.Add(#9 + ListView2.Items[i].SubItems[h]);
end;
List.SaveToFile(ExtractFilePath(Application.ExeNam e) + 'Ospiti.gsa')
finally
List.Free;
end;
end;
Grazie.
Mi spiegereste la differenza tra FormCreate e FormDestroy?

oregon
28-05-2013, 23:23
Originariamente inviato da camaleonteplus
Ho capito l'errore:


Beh ... meno male ...



Mi spiegereste la differenza tra FormCreate e FormDestroy?

Scusa, cosa c'entra con questa discussione?

Loading