Est ce que ce code est optimisé.

Version imprimable

Bonjour,
Je suis en train de changer une application style MDI en une application de style onglet. J'ai trouvé un bout de code :

Code:

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
 
var Tab : TcxTabSheet;
begin
  //Recherche de Tabsheet comme non tabArticle
  Tab := TcxTabsheet(FindComponent('tabArticle'));
  if (Tab = nil) then // Si pas trouver alors création du tabsheet.
  begin
    Tab := TcxTabSheet.Create(Self);
    with Tab do
    begin
      Name        := 'tabArticle';
      PageControl := mainPage;
      Caption     := 'Liste des Articles';
      TabVisible  := True;
    end;
    // et création de la fiche à afficher dans le Tabsheet
    with TfrmArticle.Create(Tab) do
    begin
      Name        := 'frmArticle';
      Parent      := Tab;
      Align       := alClient;
      BorderStyle := bsNone;
      Show;
    end;
  end;
  mainPage.ActivePage :=  Tab;

La question est : est ce que ce code est optimisé (mémoire et rapidité) ou est ce qu'il existe une autre façon d'y parvenir.

Merci

05/02/2009, 09h32
Aka Guymelef

Bonjour,

Faire un FindComponent de la fiche me semble un peu too much alors que tu disposes du PageControl qui propose que les TabSheet directement.

Pourquoi ne pas faire la recherche à partir du PageControl ?
05/02/2009, 09h39
Andry

Citation:

Envoyé par Aka Guymelef

Bonjour,

Faire un FindComponent de la fiche me semble un peu too much alors que tu disposes du PageControl qui propose que les TabSheet directement.

Pourquoi ne pas faire la recherche à partir du PageControl ?

:)
Pourquoi pas. Juste parcourir les TabSheet et tester.
Bon, je vais m'y atteler.
05/02/2009, 18h00
Kaféine

Salut,

En plus du FindComponent qui peut être remplacer par un for I := 0 to PageControle.PageCount, je sais pas combien de pages tu as mais s'il faut que tu tape tout ca à pour chaque page...Une optimisation possible serait de rendre ce code générique en s'appuyant sur les forms car les tabs sont secondaires ici.

Citation:
Envoyé par Andry
Bonjour,
Je suis en train de changer une application style MDI en une application de style onglet. J'ai trouvé un bout de code :
Code:

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 var Tab : TcxTabSheet; begin //Recherche de Tabsheet comme non tabArticle Tab := TcxTabsheet(FindComponent('tabArticle')); if (Tab = nil) then // Si pas trouver alors création du tabsheet. begin Tab := TcxTabSheet.Create(Self); with Tab do begin Name := 'tabArticle'; PageControl := mainPage; Caption := 'Liste des Articles'; TabVisible := True; end; // et création de la fiche à afficher dans le Tabsheet with TfrmArticle.Create(Tab) do begin Name := 'frmArticle'; Parent := Tab; Align := alClient; BorderStyle := bsNone; Show; end; end; mainPage.ActivePage := Tab;
La question est : est ce que ce code est optimisé (mémoire et rapidité) ou est ce qu'il existe une autre façon d'y parvenir.

Merci
Sur un code de ce type (purement linéaire), la question de l'optimisation se pose rarement. L'optimisation devient pertinente ou même nécessaire sur du code critique susceptible d'être utilisé directement ou indirectement dans une boucle. Je ne pense que cela soit le cas ici.

NB : L'emploi de With est en soi une optimisation.

Cdlt