Como converter um .DFM com caracteres especiais (binário) para texto?

Question

Tem como converter um .DFM com caracteres especiais (binário) para texto?

No Delphi 7, temos alguns formulários cujo o arquivo DFM contém diversos caracteres especiais (binário) diferentemente do modo padrão que é apenas texto.

Este modo binário dificulta bastante a comparação e merges de fontes DFM.

Tem como converter esse DFM binário para texto novamente?

Trecho do DFM binário:

ParentFont    TLabel¬lbl2 Left ð Top   Width Y Height  Caption  Qtde Documentos:  TBPanel
pnlSuperior Left   Top   Width    Height   Align alTop
BevelOuter bvNone TabOrder   SkinData.CustomFont	 SkinData.SkinSection  MENUITEM Gradient  
TBennerBtnbtnSair Left   Top   Width   Height   Hint )   Sair|Sair do Formulário - Tecla <Alt+F4>Options

 

Answer 1

Encontrei o artigo abaixo no StackOverflow que mostra uma solução:

http://stackoverflow.com/questions/842879/does-delphi-sometimes-revert-text-form-files-dfm-to-binary-format

Testado e Aprovado !

Resumo:

- Abrir Projeto (Tive que abrir o projeto pois estava apresentando algumas mensagens de dependências de outros formulários)

- Abrir Formulário

- Clicar com o Direito sobre o Formulário (sobre qualquer componente visual mesmo)

- Selecionar “Text DFM”

- Salvar (CTRL+S)

Mesmo Trecho do DFM, porém no modo texto:

    ParentFont = False
  end
  object lbl2: TLabel
    Left = 3
    Top = 3
    Width = 89
    Height = 13
    Caption = 'Qtde Documentos:'
  end
  object pnlSuperior: TBPanel
    Left = 0
    Top = 0
    Width = 1044
    Height = 25
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    SkinData.CustomFont = True
    SkinData.SkinSection = 'MENUITEM'
    Gradient = False
    object btnSair: TBennerBtn
      Left = 0
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Sair|Sair do Formul'#225'rio - Tecla <Alt+F4>'
      Options