Convert DFM-Files to Text

DFM-Files in Text konvertieren:

[code lang=”delphi”]var fStream : TFileStream;
outStream : TMemoryStream;

begin
if FileListBox1.FileName = ” then Exit;
fStream := TFileStream.Create(FileListBox1.FileName,fmOpenRead or fmShareDenyNone);
OutStream := TMemoryStream.Create;
ObjectResourceToText(fStream, OutStream);
OutStream.Position := 0;
Editor.Lines.Clear;
Editor.Lines.LoadFromStream( OutStream );
outStream.Free;
fStream.Free;
end;
[/code]

[tags]Delphi, Forms[/tags]