HPRIM_MDX : Version 17.02 (février)

procedure TForm1.SAVE_LISTESExecute(Sender: TObject);
    // Créer et retourne le dossier de sauvegarde
      function sub_CreerDossier_Sauvegarde: string;
        begin
          result := format('%sSAUVE\%d', [App_PATH, DayOfWeek(now)]);
          if not System.SysUtils.DirectoryExists(result) then
            if not System.SysUtils.ForceDirectories(result) then
              showmessage('Impossible de créer le dossier de sauvegarde des listes' + cr + result);
        end;

      procedure sub_SauveGarde(savepath: string);
        begin
          Files_COPY('*.txt', App_PATH, savepath);
          { Inscrit la date  dans l'ini Pour 1 sauvegarde par jour }
          savedate('SAUVE', IntToStr(DayOfWeek(now)), now);
        end;

    var
      savepath: string;
    begin // =================================================================
      { Sauvegarder les listes c'est enregistrer une copie de tous les fichiers TXT }
      { dans un dossier qui porte le Numéro du jour : soit 7 sauvageardes par semeaine }

      savepath := sub_CreerDossier_Sauvegarde;

      if MessageDlg('Voulez vous créer ou remplacer' + cr + 'Le jeu de sauvegarde des listes de mots ?' + cr + cr +
          format('Jeu numéro "%d"', [DayOfWeek(now)]), mtConfirmation, mbOKCancel, 0) = mrok then
        sub_SauveGarde(savepath);

    end;

  procedure TForm1.JvDragDrop1Drop(Sender: TObject; Pos: TPoint; Value: TStrings);
    var
      fn, NOM: string;
      MEMO:    TMemo;
      LISTE:   TValueListEditor;
      BufStr:  TStringList;
      i: Integer;
    begin
      BufStr := TStringList.Create;
      PageControl1.TabIndex := _page_config;

      for i := 0 to Value.Count - 1 do
        BEGIN
          try
            fn  := Value[i];
            NOM := changefileext(ExtractFileName(fn), '');
            if MessageDlg(NOM + cr + cr + 'Rajouter les entrées du fichier déposé,' + cr +
                'à la liste des Mots Existants ?' + cr + cr + 'Clic droit ensuite pour TRIER', mtConfirmation,
              mbOKCancel, 0) = mrcancel then
              exit;

            if System.Pos('MEMO', NOM) = 1 then
              BEGIN
                MEMO := (FindComponent(NOM)) as TMemo;
                if (MEMO <> nil) then
                  Begin
                    BufStr.LoadFromFile(fn);
                    MEMO.lines.AddStrings(BufStr);
                  End
              END else if System.Pos('LISTE', NOM) = 1 then
              BEGIN
                LISTE := (FindComponent(NOM)) as TValueListEditor;
                if (LISTE <> nil) then
                  Begin
                    BufStr.LoadFromFile(fn);
                    try
                      LISTE.Strings.AddStrings(BufStr);
                    finally
                    end;
                  End
              END;
          finally
            BufStr.Free;
          end;
        END;
    end;

  procedure TForm1.ListBox_ENTETEDblClick(Sender: TObject);
    begin
      { Traitement par défaut double clic }
      case ListBox_ENTETE.itemindex of
        0:
          mnu_Remplace0_0.Click;
        11:
          mnu_Remplace0_11.Click;
      end;
    end;