Discussion :

[Jcpan]

Bonjour
En déclarant une classe portant le meme nom dans deux unités differentes 'unit2 ,unit3), et fesant appel a cette classe d'une 3 unités(unit1), Delphi crée l'instance de la classe contenu dans unit3.

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

unit Unit2;

interface
uses dialogs;

type
tobjet1 = class
Hlm : string;
procedure salut ;

protected
fcouleurpref : string ;
public
constructor create ;
destructor destroy ;
property couleurpref : string read fcouleurpref write fcouleurpref ;
end;
implementation

///////////////////

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

unit Unit3;

interface
uses dialogs;

type
tobjet1 = class
Hlm : string;
procedure salut ;

protected
fcouleurpref : string ;
public
constructor create ;
destructor destroy ;
property macouleur : string read fcouleurpref write fcouleurpref ;
end;
implementation

Normalement il devait y avoir exception ou conflit.

Merci de M'éclairer

[ShaiLeTroll]

On a deux fois l'Unit2 et pas Unit3.


Et sinon Delphi, utilise une seule déclaration, ça dépend l'ordre des uses, d'abord ceux dans la partie implementation, puis ceux dans interface, après je ne sais plus dans quel ordre, si tu veux être sur ajoute le nom de l'unité devant la classe genre "Unit2.TObject1", et le mieux étant de l'éviter ...

[Jcpan]

Merci

[sjrd]

Parmi une lise de uses, l'ordre de recherche se fait du dernier au premier. Donc si tes uses sont uses Unit2, Unit3; la recherche se fera d'abord dans Unit3.

[ShaiLeTroll]

Merci, SJRD, j'ai longtemps pensé que c'était l'inverse, mais un récent problème à ce sujet, m'a fait pensé que c'etait du dernier au premier, et tu le confirmes, ...

[droggo]

Hie,

La première question à se poser est :

Pourquoi donner le même nom à 2 classes, même dans des unités différentes ?

[Jcpan]

juste un étude de cas

[anapurna]

salut

tu peut te servir de cette methode pour "Hacker" un composant

on peut s'en servir par exemple pour overrider le CreateEditor du stringGrid
plutôt que de recréer un composant et le mettre dans la palette delphi
et aussi pour ne pas réécrire toutes ton appli tu trompe délibérément
le compilateur

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
 
TStringGrid = Class(Grids.TStringGrid)
    function CreateEditor: TInplaceEdit; Override;
 end; 
 
...
Type
  TFooClass = class(TControl);
 
function TStringGrid.CreateEditor: TInplaceEdit;
var
  Scaling : Boolean;
begin
  result := Inherited CreateEditor;
  Scaling := Screen.Width <= 1024;
  if Scaling and (Screen.PixelsPerInch<>120) then
  begin
    TFooClass(result).Font.Height := (Font.Height div -13) * TFooClass(result).Font.Height;
  end;
  TFooClass(result).Font.Color := ClNavy;
end;

mais c'est juste une figure de style

@+ Phil