Discussion :

[myflash]

comment on passe un parametre par defaut a un parametre record ?

J'ai un record avec un implicit qui prend un string :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
TTestRec = record
    monStr: string;
    class operator Implicit(const Value: string): TTestRec;
end;
 
class operator TTestRec.Implicit(const Value: string): TTestRec;
var
    a: TTestRec;
begin
    a.monStr := Value;
    result := a;
end;

donc ca je peux :

Code :

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

1
2
3
4
5
var
a: TTestRec;
begin
a := 'hello';
end;

je peux avoir une procedure avec mon record en parametre :

Code :

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

1
2
3
4
5
6
procedure abc (mavar : TTestRec); 
var
    manewvar : TTestRec;
begin
    manewvar := mavar;
end;

Mais je ne trouve pas comment passer une valeur par defautl :

Code :

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

1
2
3
4
5
6
procedure abc (mavar : TTestRec = 'ma valeur def'); 
var
    manewvar : TTestRec;
begin
    manewvar := mavar;
end;

[myflash]

bon ben je pense ma faire une procedure avec et une procedure dans le parametre.... pour l'instant ca vas regler mon trouble mais je vais devoir continuer a chercher

[Paul TOTH]

alors les paramètres par défaut ne sont possibles que pour des constantes...

à la rigueur tu aurais pu fait ceci

Code :

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

1
2
3
4
5
6
7
8
 
const
  TestRecDefault: TTestRec = (monStr: 'ma valeur def');
 
procedure abc(const mavar: TTestRec = TestRecDefault);
begin
 
end;

mais tu tombes sur l'errer E2268 Les paramètres de ce type ne peuvent avoir de valeur par défaut.

il te reste une autre astuce

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure abc(const mavar : TTestRec); overload;
begin
 
end;
 
procedure abs(const S: string = 'ma valeur def'); overload;
begin
  var mavar :  TTestRec;
  mavar  := S;
  abc(mavar );
end;