delphi-sucks / dsdfmparser Goto Github PK

procedure TDfmObject.SetProperty(const APropertyName, AValue: String);
begin
  if not HasProperty(APropertyName) then
    TDfmProperty.Create(Self, APropertyName, AValue)
  else
    Properties.GetProperty(APropertyName).Value := AValue;
end;

unit uTest;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, DS.DfmParser;

type
  TForm5 = class(TForm)
    Memo1: TMemo;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
    indent: Integer;
    changed: boolean;
    procedure show(text: string);
    procedure ScanFile(filename: string);
    procedure ScanObject(obj: TDfmObject);
  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation

uses System.StrUtils, System.IOUtils;

{$R *.dfm}

procedure TForm5.ScanFile(filename: string);
var
  DfmFile: TDfmFile;
  s: string;
begin
  indent := 0;
  show(filename);

  DfmFile := TDfmFile.Create;
  DfmFile.LoadFromFile(filename);

  indent := 1;
  changed := false;
  for var enum in DfmFile.Objects do
  begin
    ScanObject(enum);
  end;

  if changed then
    DfmFile.Save(filename + '_modified');
end;

procedure TForm5.show(text: string);
begin
  Memo1.Lines.Add(DupeString(#9, indent) + text);
end;

procedure TForm5.Button2Click(Sender: TObject);
var
  filename: String;
begin
  for filename in TDirectory.GetFiles
    ('samples', '*.dfm') do
    ScanFile(filename);
end;

procedure TForm5.ScanObject(obj: TDfmObject);
var
  hint, datafield: string;
begin
  hint := '';
  datafield := '';

  // set hint = datafield
  if obj.HasProperty('datafield') then
  begin
    hint := obj.GetProperty('hint');
    datafield := obj.GetProperty('datafield');
    if datafield <> hint then
    begin
      show(obj.Name);
      show('datafield=' + datafield);
      show('hint=' + hint);

      { Wert ändern }
      obj.SetProperty('hint', datafield);
      changed := true;
    end;
  end;

  { Unterobjekte durchsuchen }
  for var enum in obj.Objects do
  begin
    inc(indent);
    ScanObject(enum);
    dec(indent);
  end;
end;

end.