Discussion :

[gaston11]

bonsoir a tous!
il y a quelques temps je suis tombé par hasard sur un site ou l'on proposais un utilitaire pour générer des noms de variables sous delphi avec le source

le fonctionnement était simple: on fournis le nom en claire de la variable désirée et lui nous générais une ou plusieurs variables significative.
a l’époque je n'avais pas tilté, mais depuis j'en aurais bien besoin mais impossible de retrouver le site!

si quelqu'un a ça sous la main.....

merci!!!!!

[guillemouze]

Quel est le but ? ce genre de pratique est utile si tu es obligé de fournir le code source pour executer le programme, comme en javascript par exemple. Mais delphi est un langage compilé, donc tu peux fournir un .exe sans le code, le reverse engineering est compliqué.

Mais bon, si c'est vraiment ce que tu cherche, ca s'appelle du "code obfuscation"

[gaston11]

Quel est le but ? ce genre de pratique est utile si tu es obligé de fournir le code source pour executer le programme, comme en javascript par exemple. Mais delphi est un langage compilé, donc tu peux fournir un .exe sans le code, le reverse engineering est compliqué.

Mais bon, si c'est vraiment ce que tu cherche, ca s'appelle du "code obfuscation"

non, c'est le contraire recherché!!
je me retrouve souvent faute d'imagination a utiliser toujours les même variable qui ne sont pas parlante! (x,y,z,a,b, heure, date, jour etc etc..)
l’outil en question donnais un nom de variable courte mais compréhensible

merci

[guillemouze]

Donc tu cherches un outils qui puisse comprendre sémantiquement ton code pour nommer tes variables mieux que toi automatiquement ?!
Genre renommer "x" en "nombre_de_passages" ?
Si c'est le cas, je crois que tu vis dans le monde des bisounours
Sinon, si tu cherche un outil qui, si tu renomme "x" en "toto", va te remplacer toutes les occurrences de ce x en toto dans la liste des var, ça s'appelle du refactoring.

[gaston11]

Donc tu cherches un outils qui puisse comprendre sémantiquement ton code pour nommer tes variables mieux que toi automatiquement ?!

non, c'est toi qui donne "l'utilisation" de ta variable du genre ' variable nombre de passage ' et lui te proposera 'Vnb_pass, Vnbre_pge, Vnbr_pas,Vnbr_passage,..' etc et a toi de chosir celle qui te plait.

c'est ce que j'ai compris en lisant le descriptif de l'outils, dommage que je ne le retrouve pas.

Si c'est le cas, je crois que tu vis dans le monde des bisounours
.

oui!!!!!! vive les bisounours!!!!!!!!!!!!!!!!!

merci

[Dr.Who]

c'est pour ça qu'il existe, et qu'il est important d'apprendre, les conventions d'écritures de code !

X,Y,Z -> coordonnées
i,n,m,d -> incrémenation / index

type -> T[Nom]
type interface -> I[Nom]
type exception -> E[Nom]
constantes -> pas de conventions ou MAJUSCULES_ET_UNDERSCORE ou c[Nom]
variable -> pas de conventions ou g[NomVariableGlobale] ou v[NomVariable] ou l[NomVariableLocale]
action sur evenement -> on[Nom evement]
type evenement -> T[Nom]Event


abréviations :
chaine = s[Nom], str
caractère = c[Nom], ch, cr
entier = i[Nom], int, ui, u, si
flottant = f[Nom], float, fl
enregistrement = rec, rd
resource = rc, rs, res
données = dt, data, dat
image = img, pic, im
graphisme = gfx, gx
sprite = sprt, sp
objet = obj, ob, o
liste = lst
tableau = arr, ar
arguments = a[Nom]
retour = r[Nom]
variable privée d'objet = f[Nom]
callback -> clbk, cbk, ck

etc.


Exemple :

Je dérive un TLabel pour pourvoir en customiser la couleur de fond (même si TLabel le fait déjà) :

Code :

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

1
2
 
type TColoredLabel

j'en crée deux variables, en haut et en bas d'un panel :

Code :

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

1
2
3
var
  PanelColoredLabelTop {PnlClLblTp}, 
  PanelColoredLabelBottom {PnlClLblBt} : TColoredLabel;

Je dérive une TListBox pour afficher des données d'un flux RSS

TRSSListBox

Je crée un triple boucle :

Code :

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

1
2
3
4
5
6
7
8
9
10
var
  n0,n1,n2,n3: integer;
begin
  for n0 := 0 to 10 do
    for n1 := 0 to n0-1 do
      for n2 := 0 to n1-1 do
        for n3 := 0 to n2-1 do
        begin
        end;
end;

Ou encore une fonction qui permet de traiter un fichier :

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
 
function ProccessFile(aFileName: Strings): int64;
var
  xFile : TFileStream;
  xBuffer : int64;
  xBufferSize : int64;
  rSum : int64;
begin
  rSum := 0;
  xBufferSize := SizeOf(xBuffer);
  xFile := TFileStream.Create(aFileName, fmOpenRead);
  try
    rSum := xFile.Size * xBufferSize;
    while xFile.read(xBuffer, xBufferSize) = xBufferSize do
    begin
      rSum := rSum + xBuffer; 
    end; 
    result := rSum;
  finally
    xFile.Free;
  end;
end;