Save/Load Listview inhold ?

http://www.swissdelphicenter.ch/torry/showcode.php?id=729

Jeg har en lidt nemmere:

procedure TfrmMain.ButtonClick(Sender: TObject);
var
  fs : TFileStream;
  Writer : TWriter;
  ListItem : TListItem;
begin
  ListItem := ListView.Items.Add;
  fs := TFileStream.Create('c:\listview.dat',fmCreate);
  Writer := TWriter.Create(fs,1024);
  try
    ListItem.Caption := 'Hello world';
    ListItem.SubItems.Add('Hello');

    Writer.WriteComponent(ListView);
    Writer.FlushBuffer;
  finally
    Writer.Free;
    fs.Free;
    ListItem.Delete;
  end;
end;

Den gemmer dog også listview'ets indstillinger, men    Writer.WriteComponent(ListView); fylder da lidt mindre, ikke?

Tilsvarende findes der naturligvis også en TReader der har en ReadComponent metode.

Mange tak :D

Men hvordan "Loader" man så inholdet.. ? :D

Det var ikke så ligetil når man gik ned og brugte TReader og TWriter - men nøjes man med filestreamens metode så virker det.

procedure TfrmMain.btnLoadClick(Sender: TObject);
var
  fs : TFileStream;
begin
  fs := TFileStream.Create('c:\listview.dat',fmOpenRead);
  try
    fs.ReadComponent(lvTest);
  finally
    fs.Free;
  end;
end;

procedure TfrmMain.btnSaveClick(Sender: TObject);
var
  fs : TFileStream;
begin
  fs := TFileStream.Create('c:\listview.dat',fmCreate);
  try
    fs.WriteComponent(lvTest);
  finally
    fs.Free;
  end;
end;

>hrc
Kan man ikke risikere at Microsoft sender en opdatering ud som indeholder en ændring til ListView og når man så næste gang vil loade sin ListView indhold så virker det ikke. Eller hænger det ikke sådan sammen?

Tror ik.. ?

Mange tak :D

Tror desværre ikke MS afslutter listview-komponenten; der var ellers et par kanter.

Skal du være sikker bruger du kronings eksempel. Her gemmes listview'ets position og dimensioner heller ikke; det kan måske være upraktisk at have dem med. Jeg gik efter at afprøve de funktioner som Delphi selv bruger når der indlæses en dfm-fil.