main.pas

来自「我自己用的Delphi函数单元 具体说明见打包文件的HELP目录下面」· PAS 代码 · 共 46 行

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TMainForm = class(TForm)
    txtMessage: TEdit;
    Memo: TMemo;
    cmdExecute: TButton;
    cmdClose: TButton;
    procedure cmdExecuteClick(Sender: TObject);
    procedure cmdCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}
uses
xParser,xNumber,xKernel,xDateTime,xVersion,xHtml,xTools,xTStrings,
xStrings,xOdbc,xChinese,xfiles,xEncrypt,xControls,xFonts,xStreams,
xDesktop,xGraphics,xMemory,xDarray,xRegistry,xShell,Xwindows,xDs;


procedure TMainForm.cmdExecuteClick(Sender: TObject);
begin
    DebugStr(txtMessage.text,False);
end;

procedure TMainForm.cmdCloseClick(Sender: TObject);
begin
    close;
end;

end.