Probleme pour la creation d'un fichier iniRésolu

Question

Bonjour, 
Je suis sur un projet ou je repertorie des donnees dans un fichiers ini. Voici mon code : 
procedure TForm1.Button1Click(Sender: TObject); 
Var 
FileIni : TIniFile; 
societe : string; 
nom : string ; 
prenom : string; 
adresse : string; 
email : string; 
sexe : string; 
Bureau : string; 
portable : string; 
fax : string; 
begin 
FileIni:=TIniFile.Create('C:\Program Files\Medeph Agenda\Medeph.Ini'); 

societe :=Edit12.Text; 
nom := Edit1.Text; 
prenom := Edit6.Text; 
adresse := Edit2.Text; 
email := Edit7.Text; 
sexe:= Edit11.Text; 
Bureau := Edit8.Text; 
portable := Edit9.Text; 
fax := Edit10.Text; 

FileIni.WriteString('Section societe', 'NomClé String'societe); 
[color=red]FileIni.WriteString('Section nom', 'NomClé String'nom); 
FileIni.WriteString('Section prenom', 'NomClé String'prenom); 
[color=red]FileIni.WriteString('Section adresse', 'NomClé String'adresse); 
[color=red]FileIni.WriteString('Section email', 'NomClé String'email); 
[color=red] FileIni.WriteString('Section sexe', 'NomClé String'sexe); 
[color=red]FileIni.WriteString('Section Bureau', 'NomClé String'Bureau); 
[color=red]FileIni.WriteString('Section portable', 'NomClé String'portable); 
[color=red]FileIni.WriteString('Section fax', 'NomClé String'fax); 

finally 
FileIni.Free; 
end; 

end. 

Mon probleme est au niveau des lignes rouges. Quand je veux compiler ils me disent que sur chaque ligne rouge je n'ai pas assez de parametres originaux. Pourriez Vous m'aider le plus vite possible.

ni69 · Accepted Answer

Essaye plut&#244;t comme &#231;a :




procedure TForm1.Button1Click(Sender: TObject); 

begin 

 with TIniFile.Create('C:\Program Files\Medeph Agenda\Medeph.Ini') do try

   WriteString('Section societe', 'NomCl&#233; String', Edit12.Text);

   WriteString('Section nom', 'NomCl&#233; String', Edit1.Text);

   WriteString('Section prenom', 'NomCl&#233; String', Edit6.Text);

   WriteString('Section adresse', 'NomCl&#233; String', Edit2.Text);

   WriteString('Section email', 'NomCl&#233; String', Edit7.Text);

   WriteString('Section sexe', 'NomCl&#233; String', Edit11.Text);

   WriteString('Section Bureau', 'NomCl&#233; String', Edit8.Text);

   WriteString('Section portable', 'NomCl&#233; String', Edit9.Text);

   WriteString('Section fax', 'NomCl&#233; String', Edit10.Text);

 finally

   Free;

 end;

end.



PS  : nomme tes composants !


@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size="2" width="100%">
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

Probleme pour la creation d'un fichier ini

1 réponse

Votre réponse

Discussions similaires