GESTION DES VERSIONS D'UNE APPLICATION

program VarIni;{$APPTYPE CONSOLE}
{______________________________________________________________________________

         Programme sans prétention pour gérer les numéros de version
         Auteur = Eric SALLOU
 ______________________________________________________________________________
}
uses
  SysUtils,
  IniFiles;

const
  kSection = 'Application';

var
  Ini: TIniFile;
  NomFichier, Ligne: string;

{______________________________________________________________________________

                               Help générique
 ______________________________________________________________________________
}
  procedure Erreur;
  begin
    writeln('Ligne de commande:');
    writeln('  VarIni <NomFichierIni> [-g<VariabledansApplication>} | [-s<VariabledansApplication>=<valeur>]');
    writeln('-g : get, -s : set');
    writeln('Exemples:');
    writeln('  VarIni c:\toto.ini -gNumVersion');
    writeln('  VarIni toto.ini -sNumVersion=1.2.3');
  end;

{______________________________________________________________________________

                             Programme principal
 ______________________________________________________________________________
}
begin
  if Paramcount <> 2
  then Erreur
  else
  begin
    NomFichier := ParamStr(1);
    // S'il n'y a pas de chemin on met celui du pgm
    if Pos('\', NomFichier) = 0 then
      NomFichier := ExtractFilePath(ParamStr(0)) + NomFichier;
    // On vérifie que le fichier existe
    if FileExists(NomFichier) then
    begin
      Ini := TIniFile.Create(NomFichier);
      try
        // Vérification qu'il y a au moins 2 paramètres
        if length(ParamStr(2)) > 2 then
        begin
          // regarde si c'est un get ou un set
          if copy(ParamStr(2), 1, 2) = '-g' then
            writeln(Ini.ReadString(kSection, copy(ParamStr(2), 3,
              length(ParamStr(2)) - 2), '???'))
          else if copy(ParamStr(2), 1, 2) = '-s' then
          begin
            // gestion du get
            Ligne := copy(ParamStr(2), 3, length(ParamStr(2)) - 2);
            if Pos('=', Ligne) = 0 then
            begin
              writeln('Pb avec 2ème paramètre (manque "="): ' + ParamStr(2));
              writeln;
              Erreur;
            end
            else
            begin
              // gestion du set
              Ini.WriteString(kSection, copy(Ligne, 1, pos('=', Ligne) - 1),
                copy(Ligne, pos('=', Ligne) + 1, length(Ligne) - pos('=', Ligne)));
              writeln('Mise a jour de la variable OK');
            end;
          end
          else
          begin
            writeln('2ème paramètre inconnu: ' + ParamStr(2));
            writeln;
            Erreur;
          end;
        end
        else
        begin
          writeln('2ème paramètre inconnu: ' + ParamStr(2));
          writeln;
          Erreur;
        end;
      finally
        Ini.Free;
      end;
    end
    else
    begin
      writeln('Fichier ' + NomFichier + ' non trouvé');
      writeln;
      Erreur;
    end;
  end;
end.