Discussion :

[FM_UA]

Salutation

j'ai deux bout de code à mettre à chaque fois que j'utilise un fichier dans mon programme, pour protéger les accès.
Comme ce code est redondant, j'aurais souhaité connaître comment remplacer celui-ci par un symbol, qui sera remplacé par le préprocesseur de Delphi.

pour faire simple:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
{$Define mon_code_redondant}
 
// plus loin
 
mon_code_redondant
//acces
 
mon_code_redondant
//acces

merci

[Linkin]

Pas à ma connaissance.

Mais ne serait-il pas plus propre d'en faire une fonction ou une procédure?

[FM_UA]

dommage.

Sinon oui les procédures sont une solution, mais pas la plus adaptées à ce que je veux

mais bon, si il n'y a rien d'autre

EDIT: peut etre en prenant le probleme a l'envers.
Est-il possible de donner en parametre a une fonction du code a executer ?

[Paul TOTH]

dommage.

Sinon oui les procédures sont une solution, mais pas la plus adaptées à ce que je veux

mais bon, si il n'y a rien d'autre

EDIT: peut etre en prenant le probleme a l'envers.
Est-il possible de donner en parametre a une fonction du code a executer ?

première solution

Code :

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

1
2
 
{$include mon_code_redondant.pas}

deuxième question

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
 
type
  TProcedure = function(p1:Integer): Integer;
 
function ExecuteLaProcedure(proc: TProcedure; p1: Integer): Integer;
begin
  proc(p1);
end;
 
function procedure1(p1: Integer): Integer;
begin
  Result := p1 * p1;
end;
 
function procedure2(p1: Integer): Integer;
begin
  Result := p1 + p1;
end;
 
 
begin
  ExecuteLaProcedure(procedure1, 1);
  ExecuteLaProcedure(procedure2, 1);
end;

[FM_UA]

Excellent,

je vais voir ce qui est le mieux adapté

merci

[Lung]

première solution

Code :

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

1
2
 
{$include mon_code_redondant.pas}

Je ne connaissais pas.
Dans quel cas peut-on l'utiliser ?

Il existe une restriction concernant l'utilisation des fichiers d'inclusion : un tel fichier ne peut pas être inclus au milieu d'un bloc d'instructions. Toutes les instructions présentes entre le begin et le end d'un bloc doivent résider dans le même fichier source.

Si on ne peut pas l'utiliser dans un bloc, on ne peut pas l'utiliser dans une procédure, non ?

[Paul TOTH]

hum...ça me dit quelque chose cette limitation en effet

je viens de tester sous D2005

Code :

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

1
2
3
4
5
6
 
procedure TForm1.FormCreate(Sender: TObject);
begin
{$include test.pas} // contient : caption := caption +  ' test';
{$include test.pas}
end;

ça compile et j'ai bien deux fois " test" dans le caption

sous Delphi 5 aussi... étrange

[FM_UA]

Pour info ce que j'ai fait:

Code :

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

1
2
3
4
5
6
7
 
 if Not First then
      begin
        {$I ..\sources\FileAcces_header.inc}
            FContentFields.LoadFromFile(ContentFileName);
          {$I ..\sources\FileAcces_footer.inc}
      end;

avec un morceau de code dans chaque .inc
ca compile aussi