Discussion :

[lejert]

Salut,


J'ai une petite question au sujet des fichiers INI. Dans la FAQ, j'ai vu les moyens de lire des sections... mais pas d'assigner directement des valeurs de variables.

J'ai un fichier INI de plusieurs centaines de lignes.

Il m'est donc impossible de faire un ReadString pour chaque valeur...

D'un autre cote il existe une fonction ReadSectionValues qui permet de charger toute une section dans un TString...


Bon, moi ce que je veux faire c'est lire une section et assigner directement chaque valeur lue à une variable de mon prog.

Un peu comme dans un language interpreté... je ferais :

$Var1 = 5;
$Var2 = 12;
$Varxxx = 'ABC'

Et donc ma variable $Var2 prend la valeur 12.

J'espere avoir ete clair ... merci pour votre d'aide...

[ero-sennin]

Salut,

L'histoire du ReadSectionValues ne te convient pas ?
C'est rapide et simple à mettre en oeuvre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
  Form1: TForm1;
  MonIni:TIniFile;
  MaListe:TStringList;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  // On se met sur le fichier qu'on veut lire
  MonIni:=TIniFile.Create('C:\test\PSPad.ini');
  MaListe:=TStringList.Create;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  // On lit la section qui nous intéresse (ici [Config])
  MonIni.ReadSectionValues('Config',MaListe);
  // Affichage du résultat
  for i:=0 to MaListe.Count-1 do
    ShowMessage(MaListe.Strings[i]);
end;

J'espère que ça te conviendra!
Sinon, pourquoi ça ne te convient pas ?

A+

[lejert]

Non ,

J'ai des valeurs de variables dans un fichier (quelques centaines) Je ne veux pas faire un Read sur chaque valeur séparément. Il y en a beaucoup trop.

ReadSectionValues stocke le texte dans des lignes d'un TStrings. Mais Après il faudra assigner aux variables de mon prog chaque valeur ...

Ce que je voudrait faire, c'est une espèce de 'script' qui assigne chaque variable a sa valeur dans le INI.

Par exemple :

dans le fichier INI :

VAR_01 = 12


Dans le prog, a l'execution le prog lit le fichier et assigne la valeur 12 à la variable nommée VAR_01 dans le proggrame.


Ajout :

Ce sont des variables globales...

[Rayek]

Tu ne peux pas faire une boucle sur des variables (Globales ou non).
Il vaudrait mieux faire un tableau.

Après c'est simple

En considérant que le fichier ini soit de la forme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
MaVar1=toto
MaVar2=Tata
MaVar3=4
//...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
for i := 0 to list.count -1 do
begin
  MonTableau[i] := list.Values['Mavar' + IntToStr(i)];
end;

[lejert]

OK merci

J'ai finalement résolu le problème en utilisant les ResourseString ...