function valeur par defaut sur un parametre record

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

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

Code:

---

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:

---

1 2 3 4 5

var a: TTestRec; begin a := 'hello'; end;

---

je peux avoir une procedure avec mon record en parametre :

Code:

---

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:

---

1 2 3 4 5 6

procedure abc (mavar : TTestRec = 'ma valeur def'); var manewvar : TTestRec; begin manewvar := mavar; end;

---

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

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

à la rigueur tu aurais pu fait ceci

Code:

---

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:

---

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;

---