Discussion :

[Kaféine]

Salut,

Est il possible de déclarer en forward des records avec delphi 2009?

si oui comment ???

[Kaféine]

Bon ok j'en déduit qu'on peut pas snif...

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
type
//  TMonRec2 = record; forward
//  TMonRec2 = goto TMonRec2;  :)
 
  PMonRec2 = ^TMonRec2;
 
  TMonRec1 = record
  private
    FTest: Integer;
  public
    constructor Create(ATest: Integer);
//    class operator Implicit(MR: TMonRec2): TMonRec1;
    class operator Implicit(MR: PMonRec2): TMonRec1;
  end;
 
  TMonRec2 = record
  private
    FTest: Double;
  public
    constructor Create(ATest: Double);
    class operator Implicit(MR: TMonRec1): TMonRec2;
  end;
 
{ TMonRec1 }
 
constructor TMonRec1.Create(ATest: Integer);
begin
  FTest := ATest;
end;
 
(*class operator TMonRec1.Implicit(MR: TMonRec2): TMonRec1;
begin
  Result := TMonRec1.Create(Trunc(MR.FTest));
end;*)
 
class operator TMonRec1.Implicit(MR: PMonRec2): TMonRec1;
begin
  Result := TMonRec1.Create(Trunc(MR.FTest));
end;
 
{ TMonRec2 }
 
constructor TMonRec2.Create(ATest: Double);
begin
  FTest := ATest;
end;
 
class operator TMonRec2.Implicit(MR: TMonRec1): TMonRec2;
begin
  Result := TMonRec2.Create(MR.FTest);
end;