Discussion :

[yanba]

Bonjour,

J'ai une form1 :

Code :

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

1
2
3
4
5
uses unit2;
procedure TForm1.FormCreate(Sender: TObject);
begin
  {Police récupérée dans le fichier "Options.opt"}
  LoadFont(FileName: String; Section: string);

Dans un unit 2 :

Code :

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

1
2
3
4
5
6
 
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 ?

[Laurent Dardenne]

Salut,

J'ai un message d'erreur.

Lequel ? et dans quelle partie ?

Pourquoi ?

Au vu du code présenté je ne suis pas certain qu'il compile !

[yanba]

Au vu du code présenté je ne suis pas certain qu'il compile !

.

Justement, il ne compile pas :
Identificateur non declaré "ExtractFilepath" et "application"

[sjrd]

Rajoute Forms et SysUtils aux uses de ton second fragment.

Pour la prochaine fois, fais la recherche des unités à inclure toi-même en faisant sur les méthodes qu'il te dit de ne pas trouver.

[TicTacToe]

tu essayes d'affecter à une chaine de caract (type string), une valeur n'en étant pas une

en gros

Code :

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

1
2
3
4
5
6
var a,b,c:string;
begin
  ...
  a := (b,c)
  ...
end

Ce code est impossible et je n'en vois d'ailleurs pas la signification
Précise ce que tu souhaites faire

[Laurent Dardenne]

Dans ce cas la touche
L'aide en ligne indique le nom d'unité à ajouter dans la clause uses de l'unité en erreur.

[yanba]

Au début, j'avais le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
uses unit2;
Var ColorForm, ... :integer;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  {Police récupérée dans le fichier "Options.opt"}
  LoadFont(ExtractFilepath(application.ExeName)+ 'Options.opt','Sections Options');
  Form1.Color:=ColorForm;
  ...
end;

Dans l'unit 2 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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;
end;

Lorsque je faisais F7, le prog lit bien les infos dans mon unit2, mais ne les applique pas dans ma form1 ...
Alors je cherchais de faire autrement ...

[Pedro]

Salut
Mais c'est normal! Tu as déclaré 2 variables globales dans chacune des unités... Même si elles ont le même nom, elles restent distinctes
Tu peux utiliser directement la propriété Color de la Form comme ça:

Code :

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

1
2
 
Form1.Color:=ListeOptions.ReadInteger(Section, 'ColorForm', ColorForm);

Bon dév