Discussion :

[NotANumber]

Boujour à tous, j'ai un pb d'héritage sous delphi.net avec les TList, en effet leur fonctionnement varie quelque peut depuis qu'ils n'utilisent plus les pointeurs....

Voila mon unit :

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
 
unit MesClasses;
 
interface
 
uses
   Classes;
 
type
 
  TFlux = class(TObject)
    strict private
      FFlux, FURL: String;
    public
      property Flux: String read FFlux;
      property URL: String read FURL;
      constructor Create; overload;
      constructor Create(NomFlux, URL: String); overload;
  end;
 
  TListFlux = class(TList)
    protected
      function Get(Index: Integer): TFlux;
      procedure Put(Index: Integer; Item: TFlux);
    public
      constructor Create;
      function Add(Item: TFlux): Integer;
      property Count: Integer read GetCount write SetCount;
      property Items[Index: Integer]: TFLux read Get write Put; default;
  end;
 
implementation
 
//METHODES POUR TListFlux
 
constructor TListFlux.Create;
begin
  inherited Create;
end;
 
function TListFlux.Add(Item: TFlux): Integer;
begin
  Result := inherited Add(Item);
end;
 
function TListFlux.Get(Index: Integer): TFlux;
begin
  Result := inherited Get(Index);
end;
 
procedure TListFlux.Put(Index: Integer; Item: TFlux);
begin
  inherited Put(Index, Item);
end;
 
 
 
//METHODES POUR TFlux
 
constructor TFlux.Create;
begin
  inherited Create;
  LesArticles := TList.Create;
end;
 
constructor TFlux.Create(NomFlux, URL: String);
begin
  inherited Create;
  LesArticles := TList.Create;
  FFlux := NomFlux;
  FURL := URL;
end;
 
end.

Lorsque j'implémente le fonction Get il me dit que Object et TFlux sont incompatible, pourquoi puisque je redéfini la fonction ?
J'ai forcément fait un truc de travers puisque je débute avec la notion d'héritage et les tuto que j'ai lu ne m'ont pas aider, j'ai seulement compris le principe. Une idée ???

[anapurna]

salut

il faut que tu transtype ton element de sortie

Code :

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

1
2
3
4
5
function TListFlux.Get(Index: Integer): TFlux;
begin
  Result := inherited Get(Index) as TFlux; 
//la fontion inherithed get te genere un Tobject
end;

@+ Phil