VERSION 20.04 (2020)

Ajout de l’option JOUR

Si l’option est cochée => crée un dossier au jour du dossier
Permet de savoir exactement quelles et combien d’ordonnances en PDF on été réalisées chaque jour du confinement dans le cadre de la téléconsultation.

Nouvelle entrée de le JC32_INI.DCU
Inifile_SORT

Cette procédure trie les entrées d’un Fichier INI (dit de Profil ou de configuration) par ordre alphabétique.

[B]
a=1
b=2
[C]
a=3
b=4
[A]
a=4
b=6

Algorithme :

– Chaque entrée est placée dans un tableau (TstringList)
[C] ; a=1 ; b=2
[B] ; a=3 ; b=4
[A] ; a=5 ; b=6

– Qui est trié (fonction SORT)
[A] ; a=5 ; b=6
[B] ; a=3 ; b=4
[C] ; a=1 ; b=2

– Puis restauré dans l’ordre dans l’ini original
[A]
a=5
b=6
[B]
a=3
b=4
[C]
a=1
b=2

procedure Inifile_SORT(Inifile: string = ”);
// trie les rubriques par ordre alpha
// Crée autant de lignes que de rubriques     [RUBRIQUE] ; TITRE1=VAL1  ; TITRE2 = VAL2
// Trie les Lignes
// Explose les rubriques

var
	INI, TEMP, TAB: tstringlist;
	i, j: integer;
	s: string;

const
	sep = ‘|’;

begin
	{ INIFILE }
	if Inifile = ” then
		Inifile := Get_IniFileName;

	INI := tstringlist.create;
	TEMP := tstringlist.create;
	TAB := tstringlist.create;

	try
		// place l’ini dans une Liste Temporaire
		INI.LoadFromFile(Inifile);
		// showmessage(INI.Text);

		if INI.Text = ” then
			exit;

		// crée une ligne par entrée nommée s

		for i := 0 to INI.Count – 2 do
		Begin
			// Si la ligne commence par 1 [
			if (INI[i] <> ”) AND (INI[i][1] = ‘[‘) then
			Begin
				if s <> ” then
				Begin
					// Enlève le ; final
					// if s[length(s)] = sep then
					// s := copy(s, 1, length(s) – 1);

					TEMP.Add(‘”‘ + s);
					// Enregistre la ligne précédent si non vide
				End;
				s := INI[i]; // Début de la ligne suivante
			End
			else // Ajoute les items
				s := s + ‘”‘ + sep + ‘”‘ + INI[i]; // suite de la ligne
		End;

		// showmessage(TEMP.Text);
		TEMP.Sort; // trie alpha
		// showmessage(TEMP.Text);

		INI.Clear;

		for i := 0 to TEMP.Count – 1 do
		Begin
			if TEMP[i] <> ” then
				s := TEMP[i];

			TAB.Delimiter := sep;
			TAB.DelimitedText := s;

			for j := 0 to TAB.Count – 1 do
				INI.Add(TAB[j]);
		End;

		// showmessage(INI.Text);
		INI.SaveToFile(Inifile);

	finally
		INI.Free;
		TEMP.Free;
		TAB.Free;
	end;

end;