Bonjour,
j'essai de compiler du code delphi dans C++Builder dans l'espoir de pouvoir utiliser les composants asphyre 4.0.9 dans une application C++Builder.
J'ai pu adapter le code jusqu'à un certain point. En effet, j'ai maintenant une erreur que je ne comprend pas (je ne connais pas bien le pascal).
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
type
 PPoint2px = ^TPoint2px;
 TPoint2px = record
  x, y: Integer;
 
  class operator Add(const a, b: TPoint2px): TPoint2px; //ligne 49
  class operator Subtract(const a, b: TPoint2px): TPoint2px;
  class operator Multiply(const a, b: TPoint2px): TPoint2px;
  class operator Divide(const a, b: TPoint2px): TPoint2px;
 
  class operator Negative(const v: TPoint2px): TPoint2px;
  class operator Multiply(const v: TPoint2px; const k: Real): TPoint2px;
  class operator Multiply(const v: TPoint2px; const k: Integer): TPoint2px;
  class operator Divide(const v: TPoint2px; const k: Real): TPoint2px;
  class operator Divide(const v: TPoint2px; const k: Integer): TPoint2px;
  class operator Implicit(const Point: TPoint): TPoint2px;
  class operator Implicit(const Point: TPoint2px): TPoint;
  class operator Equal(const a, b: TPoint2px): Boolean;
  class operator NotEqual(const a, b: TPoint2px): Boolean;
  end;
J'ai l'erreur suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
[Pascal Erreur] Vectors2px.pas(49): 'END' attendu(e) mais 'CLASS' trouvé(e)
Quelqu'un à une idée?