Discussion :

[Donovan]

Bonjour,
j'ai réalisé pour un td en Delphi (Pascal) un projet avec 2 fiches : Unit1.pas et Unit2.pas, l'une nommée FCompo et la deuxième FJeu, mon problème est que les composants que j'ai utilisé dans ma 1ere fiche sont reconnus non déclaré dans la 2ème. Voila les codes (j'ai laissé seulement la procédure où est utilisé le composant qui est dit non déclaré dans ma 2ème fiche)

Fiche 1 :

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Numtools;

type
TFCompo = class(TForm)
mePhrases: TMemo;
Label1: TLabel;
bnTirage: TButton;
bnJeu: TButton;
bnFin: TButton;
Label2: TLabel;
lbMots: TListBox;
procedure bnFinClick(Sender: TObject);
procedure bnJeuClick(Sender: TObject);
procedure bnTirageClick(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
FCompo: TFCompo;
ligneM:string;

implementation

uses Unit2;



{$R *.dfm}

procedure TFCompo.bnTirageClick(Sender: TObject);
var i:integer;
n:integer;
begin
lbMots.Clear;
randomize;
ligneM:=mePhrases.Lines[random(3)];

i:=1;
n:=0;
while i<Length(LigneM) do begin
lbMots.Items.Add(ligneM[i]);
repeat
i:=i+1;
lbMots.Items[n]:=lbMots.Items[n]+ligneM[i];
until (ligneM[i]=' ') or (i=Length(LigneM));
i:=i+1;
n:=n+1;
end;
end;

Fiche 2 :

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TFJeu = class(TForm)
lbDesordre: TListBox;
bnCorrection: TButton;
bnRetour: TButton;
Label2: TLabel;
laPhrase: TLabel;
procedure bnRetourClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
FJeu: TFJeu;

implementation

uses Unit1;
{$R *.dfm}

procedure TFJeu.FormShow(Sender: TObject);
var i:integer;
x:integer;
begin
For i:=0 to lbMots.Items.Count-1 do begin //lbMots Identificateur non déclaré ?
x:=random((lbMots.Items.Count)-1);
lbDesordre.Items[i]:=lbMots.Items[x];
lbMots.Items.Delete(x);
end;
end;


end.

end.

Si quelqu'un a une solution je suis preneur

[shell13010]

Salut,

essaye peut etre sa

Code :

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

Form1.lbMots.Items.Count-1 do begin //lbMots Identificateur non déclaré ?

A+

[qi130]

Code :

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

For i:=0 to FCompo.lbMots.Items.Count-1 do begin

car lbMots n'est pas exposé...

[Donovan]

Merci ça marche, nos cours sont foireux vu que le cours utilisé pour ce tp ne faisait en aucune façon allusion à ça, je pensais que comme on mettait la fiche dans "uses" alors tout ce quil y avait dans une était référencé dans l'autre.
Merci encore