Discussion :

[bionicleman]

Bonjour à tous,
J'ai un soucis avec mon projet, je veux créer un fichier .INI, jusque là aucun problème : il se crée avec toutes les clés, les valeurs voulues etc...
Mais mon problème vien lors de la lecture :

Code :

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

1
2
 
Var   vartest:string;

Code :

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

1
2
3
 
vartest:=ini.ReadString('BOUTON_CHEMIN','bouton 5_6','Non renseigné');
edit_5_6.text:=ed;

Mon application se lance mais bloque lors de l'affichage de la premiere fiche et ce message apparait :

Project Projet1.exe raised exception class EAccessViolation with message 'Access violation at address 0046920F in module 'Pojet1.exe'. Read of address 00000000'.

J'ai aussi testé sans passer par une variable :

Code :

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

1
2
 
edit_5_6.text:=ini.ReadString('BOUTON_CHEMIN','bouton 5_6','Non renseigné');

Mais rien n'y fait, j'ai toujours le même problème.

[edam]

Code :

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

1
2
 
Var   vartest:string;

Code :

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

1
2
3
vartest:=ini.ReadString('BOUTON_CHEMIN','bouton 5_6','Non renseigné');
edit_5_6.text:=ed;//????????????

[sjrd]

Tu es sûr que tu as bien instancié (créé) ton objet ini ?

[bionicleman]

Eh bien ma foi oui puisque j'y inscrit des valeur puis je le vois (via windows =)).

Code :

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

1
2
3
4
5
6
7
 
procedure TForm2.sauverClick(Sender: TObject);
begin
//INSCRIPTION FICHIER INI
  ini.WriteString('ONGLET_Nom','onglet1', edit1.text);
  ini.WriteString('ONGLET_Nom','onglet2', edit2.text);
[...]

[ShaiLeTroll]

Ta variable Ini est peut-être initialisé après la Form (OnCreate, OnActivate ? et le Ini dans Initialisation ?), et sauverClick fonctionne car la variable Ini est correct à ce moment ...

[bionicleman]

Ma variable ini est initialisée lors de la fermeture de la premiere form

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm4.Button1Click(Sender: TObject);
begin
[...]
  ini:= Tinifile.Create(dossierinstall+'configuration.ini'); //le fichier est crée sans problème
  ini.WriteString('INST','installation',dossierinstall); //la ligne est bien écrite dans le fichier ini
[...]
end;

Puis, pour y acceder avec les autres fiches j'ai mis "Unit1" dans les uses.

PS : même si je met "ini.ReadString('INST','installation','');" j'ai cette erreur qui revient...