FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
6
7
[Section] 
NomDeClé=Valeur 
  
[Section2] 
NomDeClé1=Valeur 
NomDeClé2=Valeur 
...

1
2
3
4
5
var 
  DelphiIni: TIniFile; 
begin 
  DelphiIni := TIniFile.Create('C:\Temp\Test.ini');  
end;

procedure WriteString(const Section, Ident, Value: String);

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Var FileIni : TIniFile; 
  
    Chaine   : String; 
    Etat     : Boolean; 
    Position : Integer; 
    Flottant : Double; 
    SysDateTime  : TDateTime; 
  
begin 
 FileIni:=TIniFile.Create('C:\Temp\Test.ini'); // Ouvre ou crée le fichier 
 Try 
  // Initialise les différentes valeurs pour les nouvelles clés 
  Chaine   :='Chaine de caractére'; 
  Etat     :=True; 
  Position :=2004; 
  Flottant := Sqr(3.14); 
  SysDateTime :=Now; 
  
   // Crée ou met à jour les valeurs 
  FileIni.WriteString('Section Chaine', 'NomClé String', Chaine); 
  FileIni.WriteBool('Section Boolean', 'NomClé Boolean', Etat); 
  FileIni.WriteInteger('Section Integer', 'NomClé Integer',Position); 
  FileIni.WriteFloat('Section Flottant', 'NomClé Flottante',Flottant); 
  FileIni.WriteDateTime('Section DateTime', 'NomClé DateTime',SysDateTime); 
  FileIni.WriteDate('Section Date', 'NomClé Date',SysDateTime); 
  FileIni.WriteTime('Section Time', 'NomClé Time',SysDateTime); 
 finally 
  FileIni.Free ; 
 end ; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
[Section Chaine] 
NomClé String=Chaine de caractére 
  
[Section Boolean] 
NomClé Boolean=1 
  
[Section Integer] 
NomClé Integer=2004 
  
[Section Flottant] 
NomClé Flottante=9,8596 
  
[Section DateTime] 
NomClé DateTime=05/06/2004 17:39:17 
  
[Section Date] 
NomClé Date=05/06/2004 
  
[Section Time] 
NomClé Time=17:39:17

function ReadString(const Section, Ident, Default: string): string;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Var FileIni  : TIniFile; 
  
    Chaine   : String; 
    Etat     : Boolean; 
    Position : Integer; 
    Flottant : Double; 
    SysDateTime : TDateTime; 
    SysDate : TDateTime; 
    SysTime : TDateTime; 
  
begin 
 FileIni:=TIniFile.Create('C:\Temp\Test.ini'); // Ouvre ou crée le fichier 
 try 
   // Lit les informations, si la clé n'existe pas on utilise la valeur par défaut 
  Chaine:=FileIni.ReadString('Section Chaine', 'NomClé Chaine', 'Valeur par Défaut' ); 
  Etat:=FileIni.ReadBool('Section Boolean', 'NomClé Boolean', True); 
  Position:=FileIni.ReadInteger('Section Integer', 'NomClé Integer',256); 
  Flottant:=FileIni.ReadFloat('Section Flottant', 'NomClé Flottante',3.14); 
  SysDateTime:=FileIni.ReadDateTime('Section DateTime', 'NomClé DateTime',Now); 
  SysDate:=FileIni.ReadDate('Section Date', 'NomClé Date',Now); 
  SysTime:=FileIni.ReadTime('Section Time', 'NomClé Time',Now); 
  
 finally 
  FileIni.Free ; 
 end ; 
end;

procedure DeleteKey(const Section, Ident: String);

procedure EraseSection(const Section: String);

function ValueExists (const Section, Ident: String): Boolean;

function SectionExists (const Section: String): Boolean;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var FileIni  : TIniFile; 
  
begin 
 FileIni:=TIniFile.Create('C:\Temp\Test.ini'); // Ouvre ou crée le fichier 
 try 
    // Lit tous les noms de clés à partir d'une section particulière 
    // d'un fichier INI dans une liste de chaînes. 
  FileIni.ReadSection('Section Chaine',Memo1.Lines); // RAZ de la TStrings 
  Memo1.Lines.Add('Lecture d''une section effectué'); 
  
 finally 
  FileIni.Free ; 
 end ; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var FileIni  : TIniFile; 
  
begin 
 FileIni:=TIniFile.Create('C:\Temp\Test.ini'); // Ouvre ou crée le fichier 
 try 
    // Lit les noms de toutes les sections d'un fichier INI et 
    // les stocke dans une liste de chaînes. 
  Memo1.Lines.Add('Lecture des sections dans la liste Section'); 
  FileIni.ReadSections(Memo1.Lines); 
  
 finally 
  FileIni.Free ; 
 end ; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var FileIni  : TIniFile; 
  
begin 
 FileIni:=TIniFile.Create('C:\Temp\Test.ini'); // Ouvre ou crée le fichier 
 try 
    // Lit les valeurs de toutes les clés d'une section d'un fichier INI et 
    // les stocke dans une liste de chaînes. 
  Memo1.Lines.Add('Lecture des valeurs des Section dans la liste valeur'); 
  FileIni.ReadSectionValues('Section Chaine',Memo1.Lines); 
  
 finally 
  FileIni.Free ; 
 end ; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Var FileIni  : TIniFile; 
    Compteur : Integer; 
    Section,Valeurs  : TStringList; 
  
begin 
 FileIni:=TIniFile.Create('C:\Temp\Test.ini'); // Ouvre ou crée le fichier 
 try 
  Section:=TStringList.Create; 
  Valeurs:=TStringList.Create;  
  FileIni.ReadSections(Section); 
  
  For Compteur:=0 to Section.Count-1 do 
   begin 
       // Lecture des valeurs de la section Section[Compteur] 
      Memo1.Lines.Add(#13#10+'['+Section[Compteur]+']'); 
      FileIni.ReadSectionValues(Section[Compteur],Valeurs); 
      Memo1.Lines.AddStrings(Valeurs); 
   end; 
  
 finally 
  Valeurs.Free; 
  Section.Free; 
  FileIni.Free ; 
 end ; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
uses 
  SjrdLists, ...; 
  
var 
  Options : record 
    Option1 : TStringList; 
    Option2 : integer; 
    Option3 : TStringList; 
  end; 
  
... 
  
procedure LitINI; 
var Fichier : TSjrdStrings; 
    Section : TSjrdStrings; 
    I, J : integer; 
begin 
  Fichier := TSjrdStrings.CreateFromFile('Options.ini'); 
  try 
    Section := TSjrdStrings.Create; 
    try 
      Fichier.Append('[FinFichier]'); 
  
       // première section 
      Options.Option1.Clear; 
      I := Fichier.IndexOf('[Options1Et2]'); 
       // La section existe 
      if I <> -1 then 
      begin 
        inc(I); 
        J := Fichier.FindAtPos('[', 1, I); 
        Section.CopyFrom(Fichier, I, J-I); 
  
         // Pour les clés uniques : 
        I := Section.IndexOfName('Option1'); 
        if I <> -1 then 
          Options.Option2 := StrToIntDef(Temp, Section.ValueFromIndex[I]) 
        else 
          Options.Option2 := 0; 
  
         // Pour les clés multiples : 
        for I := 0 to Section.Count-1 do if Section.Names[I] = 'Option1' then 
          Options.Option1.Append(Section.ValueFromIndex[I]); 
      end else 
       // la section n'existe pas 
      begin 
        Options.Option2 := 0; 
      end; 
  
       // Section qui contient une stringlist 
      I := Fichier.IndexOf('[Option3]'); 
       // la section existe 
      if I <> -1 then 
      begin 
        inc(I); 
        J := Fichier.FindAtPos('[', 1, I); 
        Section.CopyFrom(Fichier, I, J-I); 
         // Suppression des lignes vides 
        I := 0; 
        while I < Section.Count do 
          if Section[I] = '' then Section.Delete(I) else inc(I); 
        Options.Option3.Assign(Section); 
      end else 
       // la section n'existe pas 
      begin 
        Options.Option3.Clear; 
      end; 
    finally 
      Section.Free; 
    end; 
  finally 
    Fichier.Free; 
  end; 
end;

1
2
3
4
5
6
7
8
9
10
11
[Option3] 
Ligne1 
Ligne2 
La ligne suivante est ignorée 
  
Quatrième ligne 
  
[Options1Et2] 
Option1=Ligne 1 
Option2=123 
Option1=Ligne 2

1
2
Ligne 1 
Ligne 2

123

1
2
3
4
Ligne1 
Ligne2 
La ligne suivante est ignorée 
Quatrième ligne

1
2
3
4
5
function SetToText(var ASet; Size: Integer): string;  
begin  
  SetLength(Result,Size * 2);  
  BinToHex(@ASet, @Result[1], Size);  
end;

1
2
3
4
5
6
7
Var 
  Ens : Set Of (Zero,Un,Deux,Trois,Quatre); 
... 
begin 
  Ens := [Trois]; 
  ShowMessage(SetToText(Ens,SizeOf(Ens))); 
end;

1
2
3
4
procedure TextToSet(TextValue: string; var ASet);  
begin  
  HexToBin(PChar(TextValue), @ASet, Length(TextValue) div 2);  
end;