Discussion :

[Charly910]

Bonjour,

existe t il un moyen de faire un remplacement de chaine dans tous les fichiers d'un projet dans D12.1 CE ?

je ne vois pas cette option dans le menu Chercher/Remplacer. A priori on ne peut que chercher dans les fichiers d'un projet ?

A+
Charly

[ShaiLeTroll]

Utilise Notepad++

Sinon, tu peux coder ton propre parser si c'est un peu complexe, je l'ai fait lors d'une migration D6 vers D7, pour remplacer des appels de fonction genre Translate('Mon Message') par T('Mon Message', 1001) pour supprimer un système de traduction externe (Multilizer) par une solution interne, cela générait le fichier de langue, le dédoublonnage et calculait un numéro pour chaque chaine.

[Charly910]

Merci,

je vais faire une petite appli

A+
Charly

PS c'est dommage que Delphi ne propose pas cette option. Visual Fortran et Windev par exemple le propose.

[Andnotor]

Normalement par Ctrl+Shift+E mais comme tu l'as constaté dans une autre discussion le refactoring est complètement bogué (et cela depuis plusieurs versions).

Mais même quand ça fonctionnait, c'était sur trois pattes...

[Charly910]

Merci,

effectivement pas de refactoring chez moi !

Pour le remplacement, c'est pas dur à coder ! S'ils veulent chez Embarcadero, je peux leur passer le code

A+
Charly

[Andnotor]

Le refactoring (quand ça marche) n'est pas juste remplacer un texte par un autre, il faut contrôler les uses, les with, déterminer le type des instances et ne modifier que la classe concernée même si d'autres ont une propriété du même nom. Ca doit être une sacré usine à gaz (et les bogues le confirment).

[Charly910]

Ok, mais moi je voulais juste remplacer une chaine par une autre dans tous les fichiers pas de mon projet

ça c'est pas compliqué et je n'avais pas besoin de plus

A+
Charly

à noter que 2 Ctrl+Maj+E de suite, ou 2 clics de suite sur le menu Refactoring font planter D12.1 CE (sortie directe de D12). C'est quand même assez embêtant ?
ça mériterait d'être corrigé ?

[Andnotor]

Même pas besoin de deux clics, ça part en vrille dès le premier (suffit d'attendre quelques secondes), voire parfois même qu'au survol !
C'est à se demander ce qu'ils fabriquent derrière juste pour activer ou non les menus.

Mais ça marche très bien sur une unité vide


Un autre cas bête et stupide qui m'arrivait en 12.1 : taper for i := 0 to Count -1 do <ENTER>. Pas de plantage mais un deadlock, pas mieux !
En 12.2 idem mais pas définitif. Après une grosse poignée de secondes la déclaration var i :integer est ajoutée (en 12.1 j'aurais peut-être dû être beeeeeaucoup plus patient)
A croire qu'ils scannent le projet complet pour contrôler si un i est utilisable...

Avec le serveur LSP qui se plante régulièrement (plus d'aide à la saisie) et qu'il faut redémarrer manuellement (il ont ajouté un menu pour ça (sic)), ces aides commencent à nous faire perdre plus de temps qu'autre chose. A croire qu'ils ne testent que sur des projets de quelques lignes...

Comme déjà dit, question stabilité je regrette les anciennes versions.


ps: perso j'en ai un peu marre de remonter des bogues pour qu'ils resent open pendant des années...

[Charly910]

Ah je sens ton amertume. Et pourtant Delphi est un formidable outil de développement.

En plus de D12, je code encore beaucoup avec D7 et là pas de problème, très peu de bugs. Mais bien sûr les possibilités sont bien moindres !

Bon courage pour le boulot (moi je suis amateur)

A+
Charly

[SergioMaster]

Heureusement, il y a l'add-on GExperts qui peut nous sortir de la mélasse.
Quoique je ne sois pas sûr que

juste remplacer une chaine par une autre dans tous les fichiers pas de mon projet

soit prévu, je n'utilise pas assez pour être dans ce type de recherche/remplace (mais curieux, je vais essayer).

Ce que je peux dire pour l'avoir essayer à l'instant, c'est que le formatteur de code de GExpert prend correctement en compte le multistring
source

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
function TSortableColumn.typetri(tritype: smallint = 0; ColorBar: string =
  '"#00A1A7"'; CircleColor: string = 'red'): string;
const
  svgsort = '''
    <svg version="1.1" id="Layer_1" xmlns="http://www.w3.org/2000/svg"
    xmlns:xlink="http://www.w3.org/1999/xlink" viewBox="0 0 511.993 511.993"
    xml:space="preserve" fill="#000000">
    <g color="#00A1A7">
    <rect x="0.000" y="$T1"  fill="currentColor" width="100.000" height="73.038"></rect>
    <rect x="0.000" y="$T2"  fill="currentColor" width="150.000" height="73.038"></rect>
    <rect x="0.000" y="$T3"  fill="currentColor" width="250.000" height="73.038"></rect>
    <rect x="0.000" y="$T4"  fill="currentColor" width="300.000" height="73.038"></rect>
    </g>
    <circle cx="400" cy="$CPOS" r="100" style="stroke:none; fill:$CFIL" />
    <text x="370" y="$TPOS" style="font-family: Times New Roman;
                   font-size  : 150;
                   fill       : white;">$TRI</text>
    <g>
    </g>
    </svg>
  ''';
begin
  result := svgsort;

utilisation du formatteur de l'IDE (Ctrl+D)

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
const
  svgsort = '''
 < svg version = " 1.1 " id = " Layer_1 " xmlns = " http:
  // www.w3.org/2000/svg"
    xmlns: xlink = " http:
  // www.w3.org/1999/xlink" viewBox="0 0 511.993 511.993"
    xml: space = " preserve " fill = " #000000 " > < g color = " #00 A1A7 " > <
    rect x = " 0.000 " y = " $ T1 " fill = " currentColor " width = " 100.000 "
    height = " 73.038 " > < / rect > < rect x = " 0.000 " y = " $ T2 " fill = "
    currentColor " width = " 150.000 " height = " 73.038 " > < / rect > <
    rect x = " 0.000 " y = " $ T3 " fill = " currentColor " width = " 250.000 "
    height = " 73.038 " > < / rect > < rect x = " 0.000 " y = " $ T4 " fill = "
    currentColor " width = " 300.000 " height = " 73.038 " > < / rect > < / g >
    < circle cx = " 400 " cy = " $C POS " r = " 100 " Style = " stroke: None;
fill:
  $CF IL " / > < text x = " 370 " y = " $ TPOS " Style = " font - family
    : Times New Roman;
  font - size: 150;
fill:
  white;
  " > $ TRI < / text > <g> < / g > < / svg > ''';
  begin
    result := svgsort;

plein d'erreur de syntaxe

[SergioMaster]

mais curieux, je vais essayer

Je confirme que c'est possible en utilisant Grep puis l'avant dernier bouton (la loupe avec deux lignes de texte)

[Lung]

Dommage que gexpert ne soit plus maintenu, et ne dépasse pas la 10.4

[Bernard B]

Pour GExperts, il y a des versions pour Delphi 11 et 12 dans la continuité ici : https://blog.dummzeuch.de/experiment...25-2024-08-24/

j'utilise "GXRS11_1.3.22_experimental-twm_2023-03-25.exe" sans soucis avec D11.3 Community.

[anapurna]

Salut

Sur sourceForge a priori le code est maintenue

en telechargeant les source il y a un project pour delphi 12