procedure TForm1.btnSaveClick(Sender: TObject); begin WriteComponentResFile(LvFileName, ListView1); end;
procedure TForm1.btnLoadClick(Sender: TObject); begin //Utilisation de BeginUpdate/EndUpdate pour //éviter un scintillement ListView1.Items.BeginUpdate; ReadComponentResFile(LvFileName, ListView1); ListView1.Items.EndUpdate; end;