Fichier iniRésolu

Question

Bonjour, 

J'ai une form1 : 

Code:,
----

uses unit2;
procedure TForm1.FormCreate(Sender: TObject);
begin
{Police r&#233;cup&#233;r&#233;e dans le fichier "Options.opt"}
  LoadFont(FileName: String; Section: string);
Dans un unit 2 : 

Code:,
----

uses IniFiles;
procedure LoadFont(FileName: String; Section: string);
begin
Try
    filename:=(ExtractFilepath(application.ExeName)+ 'Options.opt','Sections Options') ;

J'ai un message d'erreur. Pourquoi ?

ni69 · Accepted Answer

Salut yannba,

I. "J'ai un message d'erreur. Pourquoi ?"
Il faut absolument que tu pr&#233;cises quel message d'erreur tu obtiens, s'il survient &#224; la compilation ou &#224; l'ex&#233;cution, et sur quelle ligne s'arr&#234;te le compilateur.

II. Explique ce que tu cherches &#224; faire au final, 
histoire que l'on ait une id&#233;e de ce que tu veux r&#233;aliser avec le code que tu donnes...
Que cherches-tu &#224; faire par l'interm&#233;diaire de ce code ? Lire une section d'un fichier ini ?

III. le code : 
filename:=  (ExtractFilepath(application.ExeName)+ 'Options.opt','Sections Options') ; 
n'est pas correct... Cela revient au m&#234;me que d'utiliser cette syntaxe : FileName := 'xxxx'  ,  'xxxx';
Pourquoi mettre une virgule ????  

IV. Proposition
La m&#234;me que Cirec... A condition que l'on ait bien compris ce que tu comptais faire. On peut cependant encore faire une l&#233;g&#232;re modif, comme &#231;a on supprime la d&#233;claration de la variable Ini et on &#233;vite de r&#233;&#233;crire Ini. &#224; chaque fois que l'on veut proc&#233;der &#224; une lecture/&#233;criture :
uses
    IniFiles;
var
    FileName, FontName : string;

FileName : = ExtractFilepath(application.ExeName)+'Options.opt';
with TIniFile.Create(FileName) do try
  FontName :=  ReadString('SectionOptions', 'Font', 'Arial');  // R&#233;cup&#232;re le nom de la police stock&#233; dans la valeur  Font  de la section SectionOptions du fichier ini, ou attribue la police Arial comme donn&#233;e par d&#233;faut si la valeur n'existe pas dans le fichier ini 
  [...]
finally
  Free;
end;

 @+
 Nico  { http://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 !

Cirec · Answer

Salut,

Essaye comme &#231;a :
procedure LoadFont(FileName: String; Section: string); 
Var Ini : TIniFile;
begin 
  filename:= ExtractFilepath(application.ExeName)+ 'Options.opt';
   Ini := TIniFile.Create(FileName);
  Try 
    ..... // ici le code qui va lise l'info
  Finally
    Ini.Free
  End;
End;

@+
Cirec

yannba · Answer

Avant que tu me repondes, j'ai modifi&#233; comme ceci :

uses unit2; 
Var ColorForm, ... :integer; 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
        {Police r&#233;cup&#233;r&#233;e dans le fichier "Options.opt"} 
         LoadFont(ExtractFilepath(application.ExeName)+ Options.opt','Sections Options'); 
         Form1.Color:=ColorForm; 
         ... 
end; 

Dans l'unit 2 : 
uses inifiles; 
Var ColorForm, ... :integer; 

procedure LoadFont(FileName: String; Section: string); 
var ListeOptions: TIniFile; 
begin 
    Try 
    ListeOptions:=TIniFile.Create(FileName); 
    ColorForm:=ListeOptions.ReadInteger(Section, 'ColorForm', ColorForm); 
    ... 
    finally 
    ListeOptions.Free ; 
    end;

Lorsque je fais F7, le prog lit bien les infos dans mon unit2, mais ne les applique pas dans ma form1 ...

Cirec · Answer

Salut,
C'est Normal, tu as deux fois ColorForm une fois dans Unit1 et une fois dans Unit2 pour le compilateur c'est deux variables totalement diff&#233;rentes.
Exxayse comme ceci :

uses unit2; 
//Var ColorForm, ... :integer; 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
        {Police r&#233;cup&#233;r&#233;e dans le fichier "Options.opt"} 
         Form1.Color:= LoadFont(ExtractFilepath(application.ExeName)+ Options.opt','Sections Options'); 
         ... 
 end ; 

Dans l'unit 2 : 
uses inifiles; 
//Var ColorForm, ... :integer; 

Function LoadFont(FileName: String; Section: string): Integer; 
var ListeOptions: TIniFile; 
begin 
    Try 
    ListeOptions: =TIniFile.Create(FileName); 
    Result:=ListeOptions.ReadInteger(Section, 'ColorForm', Ici tu mets une couleur par d&#233;faut); 
    ... 
    finally 
    ListeOptions.Free ; 
    end;
End;

@+
Cirec

yannba · Answer

Je ne peux pas faire une function car, j'ai plusieurs donn&#233;es &#224; r&#233;cup&#233;rer :
ex :
   ColorPanneaux:=ListeOptions.ReadInteger(Section, 'ColorPanneaux', ColorPanneaux);
   FontNameAffichage:=ListeOptions.ReadString(Section, 'FontNameAffichage', FontNameAffichage);
    FontColorAffichage:=ListeOptions.ReadInteger(Section, 'FontColorAffichage', FontColorAffichage);
    FontSizeAffichage:=ListeOptions.ReadInteger(Section, 'FontSizeAffichage', FontSizeAffichage);
    FontStyleAffichage:=ListeOptions.ReadInteger(Section, 'FontStyleAffichage', FontStyleAffichage);

et beaucoup d'autres encore ...

Cirec · Answer

Bon c'est pas grave,
alors tu fait comme &#231;a :

Dans la partie Interface de L'unit2 tu d&#233;clares tes variables comme suit :

Var
Form2  : TForm2; 
ColorForm, ... :integer; 

Impl&#233;mentation

Procedure LoadFont(FileName: String; Section: string); 
var ListeOptions: TIniFile; 
begin 
    Try 
    ListeOptions:= TIniFile.Create(FileName); 
    ColorForm:=ListeOptions.ReadInteger(Section, 'ColorForm',  Ici tu mets une couleur par d&#233;faut ); 
    ... 
    finally 
    ListeOptions.Free ; 
    end;
End;

et dans Unit1

uses unit2; 
//Var ColorForm, ... :integer; Ne pas red&#233;clarer les variables elle sont accessibles gr&#226;ce &#224; Uses Unit2
procedure TForm1.FormCreate(Sender: TObject); 
begin 
        {Police r&#233;cup&#233;r&#233;e dans le fichier "Options.opt"} 
         LoadFont(ExtractFilepath(application.ExeName)+ Options.opt','Sections Options'); 
         Form1.Color: = ColorForm;
         ... 
end; 

@+
Cirec

ni69 · Answer

Oula, je n'avais vu que le premier message de Cirec avant de poster... 
Je n'avais pas rafra&#238;chi la fen&#234;tre 

 @+
 Nico  { http://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 !

Cirec · Answer

No probl&#232;mo,
elles se compl&#232;tent de toutes mani&#232;res

donc tu peux faire une combinaison des deux r&#233;ponses c'est comme tu veux

@+
Cirec

yannba · Answer

C'est bon ca roule !!!! merci &#224; vous deux

yannba · Answer

Il veut pas prendre : reponse accept&#233;e !!!!!!!!

Cirec · Answer

Clique sur R&#233;ponse Accept&#233;e s.t.p Merci

c'est fait pour et &#231;a permet aux autres de savoir tout de suite si il y a eut une r&#233;ponse satisfaisante o&#249; non &#224; cette question

@+
Cirec

Cirec · Answer

ah dans ce cas tu peux le signaler aux Admins en leurs donnant le lien et le navigateur utilis&#233;

@+
Cirec

ni69 · Answer

Menu "Contact" / "Contacter les admins"...

 @+
 Nico  { http://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 !

cs_Delphiprog · Answer

Ne vous inqui&#233;tez pas, le probl&#232;me de validation de r&#233;ponse est en cours de r&#233;solution.
En attendant, je le fais pour vous 

<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

ni69 · Answer

Merci Delphiprog  

 @+
 Nico  { http://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 !

yannba · Answer

Merci Delphiprog. Mais, j'avais envoy&#233; un mail &#224; l'administrateur ...

Cirec · Answer

Yannba,

regarde &#224; cot&#233; du pseudo de Delphiprog il y a &#233;cris Admin CS ce qui veut dire Admiministrateur Codes-Sources 

@+
Cirec

Cirec · Answer

lol,

regarde &#224; cot&#233; du pseudo de Delphiprog il y a &#233;cris Admin CS ce qui veut dire Administrateur Codes-Sources 

@+
Cirec

DeltaFX · Answer

un petit tip vite fait, a propos des couleurs dans un Tini :

Un Tcolor est un integer (Rgb(gnah,gnah,gnah) renvoi un cardinal, mais ca marche comme un integer). le lien entre R, G & B et la valeur (integer) de cette couleur c'est:

RGB(r,g,b) = r + 256 x  g + (256 x 256) x b

Ca peut toujours servir pour faire des tests vite fait.

Cirec · Answer

Salut,
ou encore :
Color :=  (R  or  (G shl 8) or (B shl 16));

et pour l'inverse :
R : = Byte(Color);
G :=  Byte(Color  Shr  8);
B : = Byte(Color Shr 16);

@+
Cirec

DeltaFX · Answer

Ouaip, m'enfin va faire Color := (R or (G shl 8) or (B shl 16)); sur une calculette de poche quand tu veux une couleur vite fait :D

Cirec · Answer

je sais pas moi j'utilise Delphi pour &#231;a 

et en suite &#224; titre d'info 
shl 8 =  * 256
et  shl  16  = * 65536 
et Or = +
c'est pas plus compliqu&#233; que &#231;a 

@+
Cirec

jlen100 · Answer

salut,

DeltaFx tu peux  le faire directement sur la calculatrice de
Windows et en plus tu &#224; le choix : binaire, octal, Hexa et decimal avec
toutes les fonctions decalage &#224; droite &#224; gauche Xor, not.....etc



@+

jlen

Fichier ini

23 réponses

Votre réponse

Discussions similaires