udksoftdm.pas

EXE+BPL+DLL+Interface項目解決方案演示 經典

unit uDKSoftDM;

interface

uses
  SysUtils, Classes;

type
  TDKSoftDM = class(TDataModule)
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    TestStr: string;
  end;

var
  DKSoftDM: TDKSoftDM;

implementation

{$R *.dfm}

procedure TDKSoftDM.DataModuleCreate(Sender: TObject);
begin
  TestStr := '我是TestStr的初始值!';
end;

end.