Discussion :

[zorglub59]

Ce qui compte ici c'est de choisir une variable publique arbitraire de la classe qui soit accessible directement en tant que variable (style Sorted:boolean read FSorted ) et non en tant que fonction (style Count:Integer read GetCount) ; on choisit ici Sorted pour la classe TStringList.

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
procedure TForm1.Button7Click(Sender: TObject);
  procedure AfficheCount(List:TStringList);
  begin
    ShowMessage( IntToStr(List.Count) );
  end;
 
begin
  with TStringList.Create do
    try
      Add('ESSAI');
      Add('ESSAI2');
      Add('ESSAI3');
 
      AfficheCount( TStringList( Integer(@Sorted) - Integer(@TStringList(nil).Sorted) ) ); // just for fun!!!
 
    finally
       Free;
    end;
end;

Mais que fait :

Code :

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

TStringList( Integer(@Sorted) - Integer(@TStringList(nil).Sorted) )

@Sorted : calcule l'adresse absolue de la variable Sorted du TStringList

@TStringList(nil).Sorted : calcule l'adresse absolue de la variable Sorted du TStringList pour un TStringList = nil donc calcule l'offset de Sorted dans le TStringList

Le cast en Integer est là pour faciliter la soustraction des 2 adresses (adresse absolue de Sorted - offset de Sorted = adresse absolue du TStringList)
et on caste ensuite en TStringList pour "retrouver" le type d'origine (et pour éviter l'erreur de compil').

je sais ça ne sert à rien donc les râleurs.... et j'entends déjà les "il suffit de créer une variable locale"

[ShaiLeTroll]

Fallait oser !
J'ai parfois abusé de la structure with, et pour ne pas utiliser de variable temporaire, mes objets avaient une méthode ItSelf dont l'utilisation se devine !
Je me suis même dit que ça pourrait être un Class Helper !

Combien de fois, pour débogguer, j'ai transformé ça

Code :

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

with TStringList.Create do

en

Code :

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

1
2
Tmp := TStringList.Create;
with TStringList.Create do

au lieu de

Code :

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

1
2
Tmp := TStringList.Create;
with Tmp do

combien de fois, cette petite boulette m'a fait pesté contre le déboggueur qui ne fonctionne pas en oubliant que l'erreur qui certe est toujours entre le clavier et l'écran peut emprunter plusieurs chemins dont l'humain

[tourlourou]

en plus simple, ceci devrait passer aussi (en win32 et Delphi pas trop récent...) :

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
22
23
24
25
26
27
28
procedure TForm1.Button7Click(Sender: TObject);
  procedure AfficheCount(List:TStringList);
  begin
    ShowMessage( IntToStr(List.Count) );
  end;
 
var
  MyListAddress: TStringList;
 
begin
  with TStringList.Create do
    try
 
      asm 
        mov MyListAddress, eax
      end;
 
      Add('ESSAI');
      Add('ESSAI2');
      Add('ESSAI3');
 
      AfficheCount(MyListAddress);
 
    finally
       Free;
    end;
 
end;

[Paul TOTH]

Tant qu'à faire de l'assembleur ...

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
 
procedure TForm1.FormCreate(Sender: TObject);
 
  procedure AfficheCount(List: TStringList);
  begin
    ShowMessage(IntToStr(List.Count));
  end;
 
begin
  with TStringList.Create do
  begin
    Add('Hello');
    Add('There');
    asm
      mov eax, ebx
      Call AfficheCount
    end
  end;
end;

et avec un Helper

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
 
type
  TStringListHelper = class helper for TStringList
    procedure AfficheCount;
  end;
 
procedure TStringListHelper.AfficheCount;
begin
  ShowMessage(IntToStr(Count));
end;
 
procedure TMainForm.FormCreate(Sender: TObject);
begin
  with TStringList.Create do
  begin
    Add('Hello');
    AfficheCount;
  end;
end;

ou plus généralement

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
22
23
 
type
  TObjectHelper = class helper for TObject
    function This: TObject;
  end;
 
function TObjectHelper.This: TObject;
begin
 Result := Self;
end;
 
procedure TMainForm.FormCreate(Sender: TObject);
  procedure AfficheCount(List: TStringList);
  begin
    ShowMessage(IntToStr(List.Count));
  end;
begin
  with TStringList.Create do
  begin
    Add('Hello');
    AfficheCount(This as TStringList);
  end;
end;

[Lung]

Je ne connaissais pas ces helper.
(class helper for T...)

J'ai jeté un oeil à l'aide Delphi, mais c'est assez succinct.
Ca sutilise dans quels cas ?

[Paul TOTH]

Je ne connaissais pas ces helper.
(class helper for T...)

J'ai jeté un oeil à l'aide Delphi, mais c'est assez succinct.
Ca sutilise dans quels cas ?

"officiellement" ça ne s'utilise pas

c'est un ajout au langage pour la plateforme .Net

le principe est très simple (et la syntaxe douteuse), tu as un objet existant que tu ne peux pas dériver, mais tu voudrais tout de même lui ajouter des méthodes statiques (j'insiste sur le "statiques"), et bien le Helper et là pour ça.

une méthode objet statique n'est rien d'autre qu'une procédure ayant un paramètre implicite SELF, elle ne change pas l'objet, sa VMT ou quoi que ce soit, l'appel se fait directement sur la méthode.

d'où l'idée de pouvoir greffer ce genre de méthodes à un objet existant sans le modifier.

personnellement j'aurais préféré une syntaxe plus simple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
static procedure TStringList.AfficheCount;
begin
  ShowMessage(IntToStr(count));
end;
 
-- ou ---
method TStringList.AfficheCount;
begin
  ShowMessage(IntToStr(count));
end;

[ShaiLeTroll]

Quand tu parle de "statique" ou "static", tu l'oppose au "dynamic" ou "virtual" du Delphi et la résolution du type à la compilation ?

non, je dis ça parcque "static" en C++, c'est le "class" du Delphi !
Vu que je fais les deux, la confusion est rapide !

[Paul TOTH]

Quand tu parle de "statique" ou "static", tu l'oppose au "dynamic" ou "virtual" du Delphi et la résolution du type à la compilation ?

non, je dis ça parcque "static" en C++, c'est le "class" du Delphi !
Vu que je fais les deux, la confusion est rapide !

tout à fait c'est le contraire de "virtual" puisqu'une méthode virtuelle est un pointeur dans la VMT.