Operator implicit, explicit

Version imprimable

15/08/2019, 09h37
solilog

Operator implicit, explicit

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

Bonjour,

un petit exemple pour mieux comprendre ?:lol:

Code:

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:

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,

@+

15/08/2019, 14h11
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
16/08/2019, 00h42
pprem

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

Citation:

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.
16/08/2019, 05h14
solilog

C'est clair, merci à Cirec et Patrick.