Salvando ListView

[christianhess 0]

Como faço para salvar o que está em um determinado listview em um arquivo para mais tarde carrega-lo em outro listview. vlws

[apocalipse 0]

Salve christianhess

 

Achoq eu isso te ajuda.

 

 

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, DB, DBTables, StdCtrls, ComCtrls;type  TForm1 = class(TForm)    ListView1: TListView;    Button1: TButton;    Button2: TButton;    Button3: TButton;    Table1: TTable;    Table1FIRST_NAME: TStringField;    DataSource1: TDataSource;    procedure Button3Click(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }    fArq:TextFile;    I:Integer;  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button3Click(Sender: TObject);begin  Table1.Open;  While Not Table1.Eof do  Begin    ListView1.AddItem(Table1FIRST_NAME.AsString, Table1);    Table1.Next;  End;end;procedure TForm1.Button1Click(Sender: TObject);Var  a:String;  i:Integer;begin  AssignFile(fArq, 'c:\temp\testelistview.txt');  Rewrite(fArq);  For i:=0 to ListView1.Items.Count-1 do  Begin    a:=ListView1.Items.Item[i].Caption;    Writeln(farq, a);  End;  CloseFile(fArq);end;procedure TForm1.Button2Click(Sender: TObject);Var  a:String;  i:Integer;begin  ListView1.Clear;  AssignFile(fArq, 'c:\temp\testelistview.txt');  reset(fArq);  //Readln(farq, a);  While Not Eof(fArq) do  Begin    Readln(farq, a);    ListView1.AddItem(a, ListView1);  End;  CloseFile(fArq);end;end.

Apocalipse :unsure: