Author: Misha Moellner

Convert your Delphi form from .dfm format to text and vice versa

Answer:

use this function to convert:

  Example (DFM->TXT): ConvertFormToText('unit1.dfm');
  Example (TXT->DFM): ConvertTextToForm('unit1.txt');

1   uses
2     SysUtils;
3   
4   function ConvertFormToText(SourceFileName: string): boolean;
5   var
6     InputStream, OutputStream: TFileStream;
7     DestFileName: string;
8   begin
9     result := true;
10  
11    { change the file extension to .txt }
12    DestFileName := ChangeFileExt(SourceFileName, '.txt');
13  
14    { Create a file stream for the specified file }
15    InputStream := TFileStream.Create(SourceFileName, fmOpenRead);
16    OutputStream := TFileStream.Create(DestFileName, fmCreate);
17  
18    { convert }
19    try
20      try
21        ObjectResourceToText(InputStream, OutputStream);
22      except
23        on EStreamError do
24          Result := False;
25      end
26    finally
27      { free memory }
28      InputStream.Free;
29      OutputStream.Free;
30    end;
31  end;
32  
33  function ConvertTextToForm(SourceFileName: string): boolean;
34  var
35    InputStream, OutputStream: TFileStream;
36    DestFileName: string;
37  begin
38    result := true;
39  
40    DestFileName := ChangeFileExt(SourceFileName, '.dfm');
41  
42    InputStream := TFileStream.Create(SourceFileName, fmOpenRead);
43    OutputStream := TFileStream.Create(DestFileName, fmCreate);
44  
45    try
46      try
47        ObjectTextToResource(InputStream, OutputStream);
48      except
49        on EStreamError do
50          result := false;
51      end
52    finally
53      InputStream.Free;
54      OutputStream.Free;
55    end;
56  end;