Utlisation des attributs de la classe 1 de unit1 dans unit2

le thread repond a ma question mais j'ai essayer ce que vous avez decris mais ca marche pas .

j'ai le classe suivante dans unit1 :
Classe1 = class(TObject)
                        protected
                        {les inputs}
                        Inputs: string;
                        support: integer;
                        Nb: integer;
                        ……………
                        end;

Dans unit2 j’ai une autre classe

Classe2 = class(TObject)
                        protected
                       
                        item: string;
                        FItems: string;
                        count: integer;
                        ……………
                        end;

J’ai un tableau T a remplir :

for i :=0 to 5 do  T[i] =i ;

alors je veux faire le déclaration suivante : au lieu de  5  --> NB de la classe Class1 .

J’ai  essayé unit1.NB: for i :=0 to unit1.NB  do  T[i] =i ;   error NB non declare.

J’ai déclaré classe1 dans unite2 ca marche pas la encore.

Merci de m'aider a résoudre ce problème.

Cordialement

dans unit2 ajoutes dans les uses de la partie implémentation unit1;

il devrais être visible ...

yve

mais ce n'est qu'une classe pas un objet si tu fais ça ?

se serait plus correct de creer un objet et de s'y référer ensuite

dans unit1 :

var
yyy:Classe1;
begin
     yyy:=Classe1.create();
end;

et dans unit 2
if unit1.yyy<>nil then
begin
    for i :=0 to unit1.yyy.NB do  T[i] =i ; 
end; 
 
???? pas sur


yve

ca marche pas :(

Les attributs que tu souhaites utiliser sont déclarées en section Protected.
Il faudrait :
1- que tu revoies les règles de portée avant de te lancer.
2- que tu respectes un minimum de convention d'écritures sinon gare aux confusions entre les classes et les instances de classe
3- que tu revoies aussi la différence entre une classe et une instance de la classe (voire réponse de yvemoreau : " mais ce n'est qu'une classe pas un objet si tu fais ça")

Enfin bref, apprendre les bases du langage...

---

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

La vraiment j'ai tous compris vous m'avez bien aidé même :)

Merci.

si tu veux pas t'embeter avec des classes, car apparement dans ton exemple c'est inutile, fait plutot des Type Record ou Object.

exemple :

type
Record1 = record
  inputs : string;
  support,
  nb     : integer;
end;


var
  Rec1 : Record1;

implementation

procedure Kipulkk;
var x : integer;
begin
  for x := 0 to rec1.nb do begin
   ... traitement
  end;
end;

ensuite un autre conseil, ne dissemine pas tes types ou classes perso dans toutes les unitées du projet... sinon tu vas vite perdre le fils.
le mieux c'est de créer une unité qui vas contenir tout les types et classes personnalisé.
ensuite il suffirat de declarer cette unité dans la close Uses, de créer les instances et de les inclures dans les traitements.

generalement dans mes projets je travail comme cela :

- unitée propre a une Form = ne gere que l'interface et methode specifique a la form

- unitée de types et classe personnalisée

au final beaucoup plus clair et propre.

mais pour ton probleme, deja ne fait pas des classes alors que c'est inutile,
fait des enregistrement (type record) ou objet (type object)
ç'est un truc du pascal (le vieux) qui permet de se familiarisé avec ce genre de chose.

par exemple pour créer un type qui vas contenir des coordonnées 3D,
tu ne vas pas faire une classe TObject ou autre ... ce serait ... stupide.
tu fait un record :

type
Coor3D = record
   X,Y,Z : double;
end;

ensuite tu n'auras plus qu'a declarer une varaible de Type Coord3D pour l'utilisée partout ou tu veux.

var CoordCube : Coord3D;

et les divers apel dans les procedures et fonctions :

CoordCube.X  
CoordCube.Y
CoordCube.Z

mais comme certains te l'ont conseiller, commence deja par apprendre les rudiements du Pascal objet, syntaxe ect...

ah zut j'ai oublier un conseil,

quand tu te retrouve dans une declaration avec des variables de meme type :

var
str1 : string;
str2 : string;
str3 : string;
int1 : integer;
int2 : integer;

tu peu les regroupées en une seule declaration qui serat beaucoup plus simple et courte :

var
str1, str2, str3 : string;
int1, int2 : integer;

tu y gagneras en temps et en octets sur tes fichiers.

decidement, une fonction "editer" sur ce forum ne serait pas du luxe...
ou alors je suis aveugle ...

pour finir aussi, admettons que tu veuille integré des fonctions dans ton type Coord3D (je reprend mon exemple)

le type record n'autorise pas les fonction (si mes souvenir sont bon) il faut donc utiliser le type Objet :

INTERFACE

type
TCoordSet = (cdX, cdY,cdZ);
TCoord3D = object
   X,Y,Z : double;
   function Get(coord : TCoordSet) : double;
   procedure Set(coord : TCoordSet; value : double);
end;

IMPLEMENTATION

function TCoord3D.Get(coord : TCoordSet) : double;
begin
  case coord of
    0: result := X;
    1: result := Y;
    2: result := Z;
  end;
end;

procedure TCoord3D.Set(coord : TCoordSet; value : double);
begin
  case coord of
    0: X := value;
    1: Y := value;
    2: Z := value;
  end;
end;


voila, j'espere que ça te serviras.
tu noteras que c'est tout de meme plus simple au depart,
tant qu'on a pas bien assimiler les notion de Public, Private et Protected.

mais malgrés la simplicitée de la methode, cela ne dois pas t'empecher
de t'essayer aux classes, car les enregistrements c'est bien beau mais
c'est assé vieux et limité... bien que souvent utile.

merci  pour votre aide et vos conseils.