Discussion :

[AraBorLeg]

Salut à tous,

Je vais essayer d'être le plus clair possible...

J'ai un problème que je ne comprends pas, il est apparu d'un coup alors que ça marchait bien avant... C'est en voulant tester mes classes qu'il est apparu...
J'ai créé une classe quasiment vide pour voir d'où vient le problème, voici le contenu de cette 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
22
23
24
25
unit Test2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Inventaires, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
end.

Voici ce que me met le compilateur :

[Error] WARNING. Duplicate resource(s):
[Error] Type 10 (RCDATA), ID TFORM1:
[Error] File C:\Documents and Settings\Delphi\Test2.dfm resource kept; file Inventaires.dfm resource discarded.


Donc ça vient de la classe "Inventaires"...

Voici le contenu de cette 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
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
unit Inventaires;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Armes;
 
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  TInventaire = class(TList)
  public
    constructor Create;
    function Add(Item: TArme): Integer;
    procedure Delete(Index: Integer);
    function Get(Index: Integer): TArme;
  end;
 
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
constructor TInventaire.Create;
begin
    inherited Create;
end;
 
function TInventaire.Add(Item: TArme): Integer;
begin
    Result := inherited Add(Item);
end;
 
procedure TInventaire.Delete(Index: Integer);
begin
    inherited Delete(Index);
end;
 
function TInventaire.Get(Index: Integer): TArme;
begin
    Result := inherited Get(Index);
end;
 
end.

La classe Inventaires compile sans problème, de même que d'autres classes qui utilisent Inventaires...


Je ne comprends pas le problème, merci d'avance si vous savez...

[qi130]

Il y a un var Form1 dans Inventaire qui est "vu" par Test2 par le uses...

du coup, dans Test2, il y a 2 Form1 accessibles (essaie avec var FormTest dans Test2)

[AraBorLeg]

Je me doutais bien que c'était quelque chose dans le genre, c'est résolu, merci pour ta rapidité.