Discussion :

[solilog]

Bonjour à tous,
Qui peut m'expliquer ce que signifient les class opérator implicit et explicit.
Je crée des "class operator" sur des records, plus pour le fun et piger le concept car avec des proc et des functions on y arrive. Tout va bien pour tous les opérateurs (add, substract, trunc, ...) sauf les 2 premiers. Je ne pige pas ce que signifient les operateurs implicit et explicit. S'agit-il d'une affectation entre la variable passé en param et le records possèdant l'opérateur ?

MyRec := MyVar serait l'opérateur de implicit et
MyVar := MyRec serait l'opérateur explicit
(ou l'inverse) ?

Comme d'hab, d'avance merci.
solilog

[Cirec]

Bonjour,

un petit exemple pour mieux comprendre ?

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
25
26
27
28
29
30
31
32
33
34
35
36
37
unit ClassOperator;
 
interface
uses SysUtils;
type
  TMyRecord = record
    Data: string;
    class operator Implicit(a: Integer): TMyRecord;
    class operator Explicit(a: Integer): TMyRecord;
    class operator Implicit(a: TMyRecord): Integer;
    class operator Explicit(a: TMyRecord): Integer;
  end;
implementation
 
{ TMyRecord }
 
class operator TMyRecord.Explicit(a: Integer): TMyRecord;
begin
  Result := A; // fait Appel à Implicite;
end;
 
class operator TMyRecord.Implicit(a: Integer): TMyRecord;
begin
  Result.Data := a.ToString;
end;
 
class operator TMyRecord.Explicit(a: TMyRecord): Integer;
begin
  Result := A  // fait Appel à Implicite;
end;
 
class operator TMyRecord.Implicit(a: TMyRecord): Integer;
begin
  Result := A.Data.ToInteger;
end;
 
end.

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
...
uses ClassOperator;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  MyRec: TMyRecord;
  b: Integer;
begin
  B := 255;
 
  MyRec := TMyRecord(b);  // fait appel à explicit
  b := Integer(MyRec);    // fait appel à explicit
  MyRec:= B;              // fait appel à implicit
  B := MyRec;             // fait appel à implicit
end;

ceci devrait suffire à comprendre le principe

Cordialement,

@+

[solilog]

Merci Cirec,
Je pensais bien que était une affectation, mais pas encore limpide.
Donc implicit est utilisé quand le type param de la fonction est <> et elle retourne une valeur du mm type que le record
et explicit quand il est du même type et retourne un type <> ?
(merci de confirmer).
Désolé d'être lourd :-)
soliog

[pprem]

Extrait de la page http://docwiki.embarcadero.com/RADSt...teurs_(Delphi)

Implicit
Conversion
Implicit(a : type) : resultType;
transtypage implicite

Explicit
Conversion
Explicit(a: type) : resultType;
transtypage explicite

Comme indiqué dans l'exemple de @Cirec, les opérateurs explicites sont appelés lorsqu'il y a transtypage ou spécification du type de la variable affectée.
Sans spécification du type c'est l'opérateur implicite qui est pris en compte.

[solilog]

C'est clair, merci à Cirec et Patrick.