DSDfmParser

Delphi DFM Parser

Parse и Save Delphi DFM -файлы, изменяя объекты и их свойства.

Проставание

Просто включите файл DS.DfmParser.pas из src -directory.

 uses DS.DfmParser;

Использование

 var
  DfmFile: TDfmFile;
  PanelObject: TDfmObject;
  PanelCaption: String;
  DfmText: String;
begin
  DfmFile := TDfmFile.Create;

  // Load file
  DfmFile.LoadFromFile( ' MyDfmFile.dfm ' );

  // Get object (visual element)
  DfmObject := DfmFile.GetObject( ' Panel1 ' );

  Writeln(DfmObject. Name ); // Panel1
  Writeln(DfmObject.ClassName_); // TPanel

  // Get properties
  PanelCaption := PanelObject.GetProperty( ' Caption ' );
  Writeln(PanelCaption); // 'Panel1'

  // Set property
  PanelObject.SetProperty( ' Caption ' , ' '' MyPanel '' ' )

  // Delete property
  PanelObject.DeleteProperty( ' Caption ' );

  // Save file
  DfmFile.Save( ' MyModifiedDfmFile.dfm ' );

  // or get the context as string
  DfmText := DfmFile.GetDfm;
  Writeln(DfmText); // object Form1: TForm1...

  DfmFile.Free;
end ;

Примечания

Значения свойства

Парсер только анализирует DFM, но не его содержание. Строки, например, отформатированы как то, как можно было бы написать его в Delphi ( 'Caption1' ).

Значения также могут быть многослойными. Delphi, как правило, отступает линии стоимости, но это не должно иметь значения, если они не так. После сохранения формы в Delphi он должен автоматически исправить уклон.

Пример

Пример проекта можно найти в example -Directory.