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 :
Fiche 2 :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;
Si quelqu'un a une solution je suis preneurunit 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.
Partager