Discussion :

[Bruno75]

Code :

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

1
2
3
4
5
 
with TStringList.Create do
begin
 
end;

Je voudrais dans la boucle utiliser la référence à mon TStringList.
Par exemple, imaginons que j'ai une fonction qui me remplit un TSTringList je voudrais faire

Code :

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

1
2
 
RemplitUnStringList(LaRéférenceSurMaTStringList)

Est-ce possible sans déclarer une variable locale ?

[poussinphp]

A mon avis tu devrais mettre ta fiche ou ya ton tstringlist en use et ensuite tu l'apelle directement dans ta boucle par un truc de se genre :

Code :

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

fiche.TstringList.remplit(remplissage);

[Bruno75]

ce qui m'intéresse c'est avec la boucle with

[Laurent Dardenne]

Salut,


http://alphomega.developpez.com/WithMeconnu/

[Bruno75]

le tutoriel ne répond pas à la question.

il parle des références sur les PROPRIETES de l'objet et non de la référence sur l'OBJET

[Bruno75]

analogie avec les exception

Code :

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

1
2
3
4
5
6
7
8
 
try
except
  on e:Exception do
  begin
      UneFonctionQuelconqueQuiPrendUneExceptionEnParamètre(e);
  end;
end;

avec les exceptions, on peut nommer l'exception et ainsi utiliser la référence à l'objet dans le code

[Bruno75]

analogie avec les classes :

mot clé Self.

[Laurent Dardenne]

Ok, je suis allée trop vite.
Dans ce cas je n'ai pas de solution. Peut être regarder du coté de l'assembleur, la référence doit être créée sur la pile.

[Bruno75]

euh, ça doit rester plus simple que déclarer une variable locale quand même

[Laurent Dardenne]

euh, ça doit rester plus simple que déclarer une variable locale quand même

Oui je te l'accorde

Sinon sous Delphi 2005 il existe les Class Helper ou assistant de classe:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
program classhelper;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Type
  Test=Class
   Nom: String;
  end;
 
  GetterClassHelper=Class Helper for TObject
    procedure GetClassName;
    Function  GetRef:TObject;
  end;
 
  procedure GetterClassHelper.GetClassName;
   begin
      writeln(Self.ClassName); // Self fait référence au type Test, et non à GetterClassHelper
   end;
 
   function GetterClassHelper.GetRef:TObject;
   begin
    Result:=Self; // Self fait référence à la variable en cours,
                  // et non à une possible instance de type GetterClassHelper
   end;
 
Procedure Visu(Reference :TObject);
begin
 Writeln('Reference dans visu='+Test(Reference).Nom);
end;
 
Var T:Test;
    T2:Test;
begin
 T:=Test.Create;
 T.Nom:='Je suis la variable T';
 T.GetClassName;
 T2:=Test(T.GetRef);
 Writeln('T2='+T2.Nom);
 Readln;
 T.Free;
 T2:=Nil;
 
 With Test.Create do
  begin
   Nom:='Je suis la référence dans With';
   GetClassName;
   Visu(GetRef);
  end;
 Readln;
end.

C'est à creuser/améliorer.
Par contre ce n'est pas documenté pour Win32 mais pour Delphi .NET.

[edit]
La version épurée, à placer dans une unité.

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
Type
 
  GetterClassHelper=Class Helper for TObject
    Function  GetRef:TObject;
  end;
 
   function GetterClassHelper.GetRef:TObject;
   begin
    Result:=Self; // Self fait référence à la variable en cours,
                  // et non à une possible instance de type GetterClassHelper
   end;
 
 // procédure de Test
Procedure Visu(Reference :TObject);
begin
 Writeln('Reference dans visu='+TStringList(Reference).XXX);
end;

L'appel devenant

Code :

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

1
2
3
4
5
6
7
8
9
 
begin
 With TStringList.Create do
  begin
   ...
   Visu(GetRef); // récupére la référence
   ...
  end;
end.

[/edit]

[Bruno75]

mdr, t'as vu le gros machin que tu ponds... je sais que Delphi c'est pas un langage terrible mais quand même

[Laurent Dardenne]

Tu demandes une solution je t'en propose une.
Si elle ne te satisfait pas, adresse toi à Borland et demande leur de faire évoluer leur langage sur ce point précis.

[skywaukers]

pourquoi tu passe pas par une variable locale ?

sinon tu peut faire aussi cela :

Code :

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

RemplitUnStringList(TStringList.create);

@++
Dany

ps : le langage Delphi n'est pas moins terrible qu'un autre.

[Bruno75]

bon je pense que c'est pas trop possible, je vais rester avec une variable locale.