Empfehlung Refactoring - Tool

[MaBuSE]

Zitat von uligerhardt:

Im bin-Verzeichnis deiner Delphi-Installation liegt ein convert.exe, das aus den binären DFMs Text-DFMs machen kann.

Echt, und ich hab mir das damals selbst geschrieben

Habe mal alles außer den "Kern" entfernt. Sollte aber trotzdem noch funktionieren.

Delphi-Quellcode:

program dfm2text;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Classes;

// Programmcode gekürzt
// ...
var
  InputStream: TMemoryStream;
  OutputStream: TMemoryStream;
  c: Char;

begin
  // Programmcode gekürzt
  // ...  
  InputStream := TMemoryStream.Create;
  OutputStream := TMemoryStream.Create;
  try
    InputStream.LoadFromFile(ParamStr(1));

    InputStream.Position := 0;
    InputStream.Read(c,1);
    if c <> #255 then Halt(5); // PrintError(5); // 'InputFile not binary Format'

    InputStream.Position := 0;
    try
      ObjectResourceToText(InputStream, OutputStream); // <- Das ist die Funktion, die das DFM Format umwandelt. Gibts schon seit Delphi 1 ;-)
    except
      Halt(6); // PrintError(6); // 'convert Error'
    end;

    OutputStream.Position := 0;
    try
      OutputStream.SaveToFile(ParamStr(2));
    except
      Halt(7); // PrintError(7); // 'problem saving OutputFile'
    end;
  finally
    InputStream.Free;
    OutputStream.Free;
  end;

  WriteLn('OK: '+ParamStr(1)+' -> '+ParamStr(2));
end.

In dieses Programm kannst Du natürlich auch Deine Suchen/Ersetzen Funktion mit einbauen.

Ich hoffe das hilft Dir