Surcharge de constructeurs

Version imprimable

Bonjour,

J'essaie de surcharger mon constructor "Create", mais j'ai l'erreur

Citation:

main.pas(16,23) Error: identifier idents no member "Create"
main.pas(16,23) Fatal: Syntax error, ";" expected but "identifier CREATE" found
Fatal: Compilation aborted

Voilà l'interface de ma classe :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
type TSprite = class
public
    constructor     Create(X, Y : integer; Path : PChar);
    constructor     Create(var Pos : TSDL_Rect; Path : PChar);
    constructor     Create(X, Y : integer; Img : PSDL_Surface);
    constructor     Create(var Pos : TSDL_Rect; Img : PSDL_Surface);
 
    procedure       Apply(Screen : PSDL_Surface);
 
    function        GetPosition : TSDL_Rect;
 
    function        GetImg : PSDL_Surface;
 
    procedure       SetPosition(var NewPos : TSDL_Rect);
    procedure       SetPosition(x, y : integer);
 
 
private
    m_Position : TSDL_Rect;
    m_Img      : PSDL_Surface;
end;

Puis mon appel dans le main :

Code:

1
2
3
4
5
6
7
8
9
 
procedure MainLoop(Screen : PSDL_Surface);
var
    Event :     TSDL_Event;
    Sprite :    TSprite;
begin
    Sprite := TSprite.Create(0, 0, 'rollBig.gif');
    ...
end;

Merci d'avance :ccool:

sous Delphi, je pense que c'est pareil en FreePascal, pour déclarer plusieurs méthodes portant le même nom il faut utiliser le mot clé overload

Code:

1
2
3
4
5
 
    constructor     Create(X, Y : integer; Path : PChar); overload;
    constructor     Create(var Pos : TSDL_Rect; Path : PChar); overload;
    constructor     Create(X, Y : integer; Img : PSDL_Surface); overload;
    constructor     Create(var Pos : TSDL_Rect; Img : PSDL_Surface); overload;

28/07/2013, 19h39
EpiTouille

Merci pour ta réponse malheureusement, j'obtiens toujours la même erreur.
28/07/2013, 19h55
Roland Chastain

Je vais peut-être dire une bêtise mais pour qu'il y ait un constructeur il faut que la classe soit dérivée d'un objet, non ?
28/07/2013, 21h40
EpiTouille

Merci de ta réponse, ne connaissant pas l'objet, j'ai essayer dans le doute de faire descendre mon TSprite du TObject. Mais rien n'y change.

Apres plusieurs tests, ça ne vient pas que du construceur, mais aucune de mes méthodes ne sont reconnues.
29/07/2013, 00h48
EpiTouille

Allez savoir pourquoi, j'ai un peu tout modifier pour tester, et au final, ça marche avec le meme code que celui que j'ai envoyé sur mon premier message, je sais pas trop pourquoi ça marche maintenant et pas hier, mais bon ...

edit1 : j'ai trouvé pourquoi, erreur de ma part, j'avais laisser un type record avec exactement le meme nom :aie:

merci et résolu :ccool:
01/08/2013, 09h07
e-ric

Citation:

Envoyé par Roland Chastain

Je vais peut-être dire une bêtise mais pour qu'il y ait un constructeur il faut que la classe soit dérivée d'un objet, non ?

L'arborescence des classes est unique, toute classe descend directement ou non de TObject, qui est pris comme ancêtre à défaut d'une spécification contraire.

(Tiré du wiki http://wiki.freepascal.org/Class)

Citation:

Classes are able to inherit and to be inherited by other classes. For runtime purposes, any class not specifying a parent class automatically inherits from TObject, as it has required components for all classes.

@+