合并Dev BPL教程

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Xml.xmldom, Xml.XMLIntf,
  Xml.Win.msxmldom, Xml.XMLDoc;

type
  TFrmMain = class(TForm)
    MemoGroupFile: TMemo;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    XMLDocument1: TXMLDocument;
    Memo2: TMemo;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    GroupPath:string;
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

{$R *.dfm}

procedure TFrmMain.Button1Click(Sender: TObject);
begin
//提取项目组文件
//  OpenDialog1.InitialDir := ‘E:\DelphiPackages\DelphiXE7\DevExpressVcl_14.1.3‘;
//  OpenDialog1.FileName:=‘E:\DelphiPackages\DelphiXE7\DevExpressVcl_14.1.3\DelphiXE7.groupproj‘ ;
//  if OpenDialog1.Execute then
//  begin
//    MemoGroupFile.Lines.Clear;
//    //MemoGroupFile.Lines.LoadFromFile(OpenDialog1.FileName);
//    XMLDocument1.LoadFromFile(OpenDialog1.FileName);
//    MemoGroupFile.Lines:=XMLDocument1.XML;
//
//    self.Caption:=OpenDialog1.FileName;
//    GroupPath:= ExtractFilePath(OpenDialog1.FileName); //文件夹后面带/
//  end;
end;

procedure TFrmMain.Button2Click(Sender: TObject);
var
//  nodeList: IXMLNodeList;
//  node: IXMLNode;
  num,i: Integer;
//  str:string;
begin
//根据项目组，提取dpk文件
//  nodeList := XMLDocument1.DocumentElement.ChildNodes[1].ChildNodes;
//  num := nodeList.Count;
//  Memo1.Lines.Clear;
//  for i := 0 to num - 1 do
//  begin
//    node := nodeList[i];
//    str:=node.Attributes[‘Include‘];
//    str:=GroupPath+ StringReplace(str,‘dproj‘,‘dpk‘,[rfReplaceAll]);
//    Memo1.Lines.Add(str);
//  end;
  Memo1.Lines.Clear;
  for i := 0 to MemoGroupFile.Lines.Count-1 do
  begin
    if Pos(‘Compiling package ‘,MemoGroupFile.Lines[i])>0 then
      Memo1.Lines.Add(StringReplace(MemoGroupFile.Lines[i],‘Compiling package ‘,‘‘,[]));
  end;

end;

procedure TFrmMain.Button3Click(Sender: TObject);
var
  aFile:TStrings;
  i,j:Integer;
  CurPackName, PackName:string;
  IsAdd:Boolean;
begin
  aFile:=TStringList.Create;
  PackName:=‘‘;
  CurPackName:=‘‘;
  Memo2.Lines.Clear;
  GroupPath :=‘E:\DelphiPackages\DelphiXE7\DevExpressVcl_14.1.3\‘;
  for I := 0 to Memo1.Lines.Count-1 do
  begin
    //提取控件包名
    CurPackName:=StringReplace(Memo1.Lines[i],GroupPath,‘‘,[rfReplaceAll]);
    CurPackName:=Copy(CurPackName,0,Pos(‘\‘,CurPackName)-1);

    IsAdd:=False;

    aFile.LoadFromFile(Memo1.Lines[i]);
    if Pos(‘{$RUNONLY}‘,aFile.Text)>0 then //只提取运行时包
    begin
      if CurPackName<>PackName then
      begin
        if i<>0 then Memo2.Lines.Add(‘‘);
        Memo2.Lines.Add(‘  //‘+CurPackName);
      end;
      for j := 0 to aFile.Count-1 do
      begin
        if aFile[j]=‘contains‘ then
        begin
          IsAdd:=True;
          Continue;
        end;
        if IsAdd then
        begin
          if Pos(‘;‘,aFile[j])>0 then IsAdd:=False;
          Memo2.Lines.Add(StringReplace(aFile[j],‘;‘,‘,‘,[rfReplaceAll]));
        end;
      end;
      PackName:=CurPackName;
    end;
  end;
  i:=Memo2.Lines.Count;
  Memo2.Lines[i-1]:= StringReplace(Memo2.Lines[i-1],‘,‘,‘;‘,[rfReplaceAll]) ;

end;

end.

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = ‘Form1‘
  ClientHeight = 357
  ClientWidth = 764
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = ‘Tahoma‘
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object cxFilterControl1: TcxFilterControl
    Left = 24
    Top = 8
    Width = 153
    Height = 89
    TabOrder = 0
  end
  object cxTabControl1: TcxTabControl
    Left = 216
    Top = 0
    Width = 209
    Height = 121
    TabOrder = 1
    Properties.CustomButtons.Buttons = <>
    Properties.TabIndex = 0
    Properties.Tabs.Strings = (
      ‘asdf‘
      ‘asd‘
      ‘fa‘
      ‘df‘
      ‘asdf‘)
    ClientRectBottom = 117
    ClientRectLeft = 4
    ClientRectRight = 205
    ClientRectTop = 24
  end
  object cxGrid1: TcxGrid
    Left = 8
    Top = 149
    Width = 250
    Height = 200
    TabOrder = 2
    object cxGrid1DBTableView1: TcxGridDBTableView
      Navigator.Buttons.CustomButtons = <>
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
    end
    object cxGrid1Level1: TcxGridLevel
      GridView = cxGrid1DBTableView1
    end
  end
  object cxScheduler1: TcxScheduler
    Left = 431
    Top = 8
    Width = 350
    Height = 250
    ViewDay.Active = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = ‘Tahoma‘
    Font.Style = []
    TabOrder = 3
    Splitters = {
      CE0000007E0000005D01000083000000C900000001000000CE000000F9000000}
    StoredClientBounds = {01000000010000005D010000F9000000}
  end
  object cxHeader1: TcxHeader
    Left = 336
    Top = 168
    Width = 25
    Height = 25
    Sections = <>
  end
  object cxShellListView1: TcxShellListView
    Left = 280
    Top = 199
    Width = 250
    Height = 150
    TabOrder = 5
  end
  object cxButton1: TcxButton
    Left = 576
    Top = 288
    Width = 75
    Height = 33
    Caption = ‘cxButton1‘
    TabOrder = 6
  end
  object cxScrollBox1: TcxScrollBox
    Left = 280
    Top = 127
    Width = 185
    Height = 41
    TabOrder = 7
  end
  object cxTextEdit1: TcxTextEdit
    Left = 56
    Top = 122
    TabOrder = 8
    Text = ‘cxTextEdit1‘
    Width = 121
  end
end