Discussion :

[EpiTouille]

Bonjour,

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

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 :

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Paul TOTH]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[EpiTouille]

Merci pour ta réponse malheureusement, j'obtiens toujours la même erreur.

[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 ?

[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.

[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

merci et résolu

[e-ric]

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)

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.

@+