Discussion :

[briaume]

Bonjour,

Déjà désolé si je ne suis pas dans le bon forum je ne savais pas trop ou faire cette demande.

Nous allons bientôt migrer notre application de Delphi 7 à Rio, et pour diverses raisons, nous devons mettre la propriété "Scaled" à false sur chacun de nos fiches.

Avec plus de 2000 fiches, comprenez que l'on cherche une solution pour pouvoir le faire automatiquement. Cette propriété ne pouvant pas être mise en runtime, le but serait de l'intégrer directement dans les fiches *.DFM.

Malheureusement après des recherches, j'ai constaté que par défaut la ligne "Scaled = True" n'est pas présente dans le fichier DFM et dès que l'on passe la propriété à False "Scaled = False" apparaît bien ! Du coup impossible de faire une simple "Remplacer / Rechercher" sur plusieurs fichiers avec Notepad++ ou un autre outils de ce genre.

Mon idée serait d'intégrer la ligne "Scaled = False" sur chaque 2ème ligne, de chacun de mes fichiers DFM, et tout cela automatiquement, et du coup là on sort de la programmation Delphi, pour + trouver une astuce via un logiciel ou autre pour pouvoir faire cela.

Ou alors si vous avez d'autres idées pour pouvoir mettre cette propriété partout à la fois, je suis preneur !

Merci beaucoup et bonne journée !

[Papy214]

Quelle est la difficulté de modifier tous les dfm pour y ajouter la ligne qui va bien ?

[briaume]

Bonjour,

Avec plus de 2000 fiches à modifier, je voulais éviter de devoir ouvrir chaque fiche un à un et faire un copier coller dedans.

En gros c'était cela mon plus grand problème.

[petitcoucou31]

bonjour

Tu peux rédiger une petite application en delphi qui :

• Scruter les répertoires + sous répertoires que tu souhaites
• Ouvrir tes *.dfm, qui sont des fichiers texte, avec un Tstringlist...
• Y ajouter ce que tu veux , ou tu veux ...
• Sauvegarder les fichiers modifiés.

bonne journée.

[Papy214]

Attention à ce que tous les DFM soient bien au format texte.
En binaire, ça va mettre un beau boxon

[Papy214]

J'affiche le résultat dans un memo mais il faudrait juste remplacer la ligne par celle modifiée et hop, le tour est joué.
On peut aussi agrémenter en vérifiant si le fichier un dfm de même nom pour éviter de polluer de simples unités de code.

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
 
 
const
  Folder = 'repertoiredecode';
var
  F, C: string;
  L: TArray<string>;
  I: Integer;
  Mch: TMatchCollection;
begin
  for F in TDirectory.GetFiles(Folder, '*.pas', TSearchOption.soAllDirectories) do
  begin
    L := TFile.ReadAllLines(F);
 
    for I := Low(L) to High(L) do
    begin
 
      Mch := TRegex.Matches(L[I], '^\s*uses\s', [TRegExOption.roIgnoreCase]);
      if Mch.Count > 0 then
      begin
        C := Mch.Item[0].Value;
        L[I] := C + 'manouvelleform, ' + Copy(L[I], C.Length, Length(L[I]) - C.Length);
        Memo1.Lines.Add(L[I]);
        Break;
      end;
 
    end;
  end;
 
end;

[gbegreg]

Attention à ce que tous les DFM soient bien au format texte.
En binaire, ça va mettre un beau boxon

Il me semble que c'est le cas par défaut dans les versions récentes de Delphi.
En tout cas, Delphi est fourni avec un petit utilitaire de conversion nommé convert.exe. Il est possible ainsi de convertir tous les dfm en dfm texte d'un répertoire en lançant en ligne de commande depuis le répertoire du projet l'utilitaire de la manière :

convert -i -s -t *.dfm

[gbegreg]

Bonjour,

du coup là on sort de la programmation Delphi, pour + trouver une astuce via un logiciel ou autre pour pouvoir faire cela.

Si tu es certain de devoir ajouter systématiquement sur la deuxième ligne de chaque .dfm la ligne "Scaled = False", alors tu peux le faire via un petit programme Delphi.
Tu peux faire une recherche récursive à partir d'un répertoire pour parcourir dans tous ses sous répertoires les fichiers ayant l'extension .dfm (plusieurs solutions possibles (à "l'ancienne" avec TSearchRec et des FindFirst/FindNext, ou via TDirectory.GetFiles)
Ensuite, pour chaque fichier trouvé, tu le charges dans un TStringlist par exemple, tu insères en deuxième élément (indice 1) la chaine de caractères "Scaled = False" et tu sauvegardes le fichier.

Je te conseille évidemment de faire tes tests sur une copie des fichiers d'origine et dans un premier temps sur un petit échantillon pour mettre au point le programme.