社区
Delphi
帖子详情
如何在系统的工程文件中,加入函数?要具体的格式
ctrlqrj
2003-09-12 12:32:08
如题:
想在程序的启动时,通过函数获取硬盘的序列号,来判断是否启动程序。
...全文
90
10
打赏
收藏
如何在系统的工程文件中,加入函数?要具体的格式
如题: 想在程序的启动时,通过函数获取硬盘的序列号,来判断是否启动程序。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
10 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
dawnming
2003-09-13
打赏
举报
回复
帮你up一下
我原本不是一头猪
Little2000
2003-09-13
打赏
举报
回复
File--New--Unit
然后在里面写入自己的程序,例如:
unit CommonFunction;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, ComCtrls, ExtCtrls;
Type
TSearchFields = Array of String;
var
SearchFields: TSearchFields;
Procedure CreateSearchForm;//声明自己的函数
uses SetSearch;
Procedure CreateSearchForm;//写函数的具体内容
begin
Application.CreateForm(TFrmSetSearch,FrmSetSearch);
FrmSetSearch.ShowModal;
end;
end;
该单元和一般的单元文件一样,只是没有窗体文件而已,主要要在工程单元中引用该单元,然后就可以调用该单元的任何函数了。
hiflower
2003-09-12
打赏
举报
回复
begin
Application.Initialize;
if 检查通过 then
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
Application.Terminate;
end.
dickeybird888
2003-09-12
打赏
举报
回复
unit Utility;
interface
uses Classes,Sysutils,TrPanel,forms,Windows,DBTables,Registry,Db;
function MonthBegin(Date:TDateTime):TDateTime; //月开始日期
function MonthEnd(Date:TDateTime):TDateTime; //月结束日期
//以下定义全局变量
var
Tool:TTool;
BasicInfoTableName:String;
const
AppName='管理系统';
AppVersion ='版本1.0';
implementation
///////////////////////////////////////////////////////////////////////////
// 功能:获得某日期所在月份的第一天 //
// 入口参数:TDateTime 某日期 //
// 返回值: 某日期所在月份的第一天 //
///////////////////////////////////////////////////////////////////////////
function MonthBegin(Date:TDateTime):TDateTime;
var
T:String;
var
Year, Month, Day{, Hour, Min, Sec, MSec}: Word;
begin
DecodeDate(Date, Year, Month, Day);
T:=IntToStr(Year)+'-'+IntToStr(Month)+'-';
Result:=StrToDate(T+'1')
end;
///////////////////////////////////////////////////////////////////////////
// 功能:获得某日期所在月份的最后一天 //
// 入口参数:TDateTime 某日期 //
// 返回值: 某日期所在月份的最后一天 //
///////////////////////////////////////////////////////////////////////////
function MonthEnd(Date:TDateTime):TDateTime;
var
Year, Month, Day{, Hour, Min, Sec, MSec}: Word;
T:String;
begin
Result:=0;
DecodeDate(Date, Year, Month, Day);
T:=IntToStr(Year)+'-'+IntToStr(Month)+'-';
case Month of
1,3,5,7,8,10,12:Result:=StrToDate(T+'31');
4,6,9,11 :Result:=StrToDate(T+'30');
2 :if (Year mod 4 =0) and ( Year mod 100 <> 0 )
or (Year mod 400 =0 )
then
Result:=StrToDate(T+'29')
else
Result:=StrToDate(T+'28');
end;
end;
end.
Drate
2003-09-12
打赏
举报
回复
{$R *.res}
function ConnectStrNull:Boolean;
var
SYSINI: TINIFile;
tmpstr:String;
begin
Result:= True;
SYSINI := TIniFile.Create(ExtractFilePath(Application.ExeName)+'DB.INI');
try
tmpstr:= SYSINI.ReadString('Database', 'DBName', '');
if tmpstr ='' then
exit;
tmpstr:= SYSINI.ReadString('Database', 'UserName', '');
if tmpstr ='' then
exit;
Result:= False;
finally
SYSINI.Free;
end;
end;
begin
Application.Initialize;
Application.Title := '客户端物流管理系统';
if ConnectStrNull then
begin
{...}
MCLITAO
2003-09-12
打赏
举报
回复
别忘了引用单元文件名,就是函数所在的单元。
Delphi_Li
2003-09-12
打赏
举报
回复
就象写一般的函数一样!!!
Function XXXX : Boolean
Begin
.....
End;
begin
Application.Initialize;
if XXXX then
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
Application.Terminate;
end.
ctrlqrj
2003-09-12
打赏
举报
回复
对了,我要的就是单元库文件中的格式如何写,能贴个上来吗?
Little2000
2003-09-12
打赏
举报
回复
你可以将函数写到一个单元库文件中,然后就可以在工程中进行调用了
hongqi162
2003-09-12
打赏
举报
回复
up 楼上
PHP7
文件
目录
函数
库实战
King老师精心打造的PHP7
文件
目录
函数
库实战课程,通过讲解PHP7核心
函数
库
文件
、目录
函数
库相关API,了解其实际应用场景,并通过在线
文件
管理器对所学内容进行实战演练!山哥出品,必属精品!
手把手教程2: keil如何向MDK
中
加入
头
文件
和库
文件
华大MCU如何向MDK
中
加入
头
文件
和库
文件
大多数习惯于8位单片机开发的
工程
师,都会使用操作寄存器的方式来使用单片机。当初次接触华大单片机库开发的时候,会发现库里有好多的
文件
,不知道如何下手。本篇文章会先介绍库的结构和里面关键
文件
,之后会介绍如何向之前建立好的
工程
里
加入
文件
,使
工程
能编译起来。 我们首先看下HC32F460芯片的DDL库里
文件
结构 关键
文件
介绍 startup_hc32f460petb.s
文件
为汇编
格式
的
文件
,是启动
文件
。启动
文件
主要是进行堆栈之类的初始化,
中
断向量表以及
中
断
函数
自定义C语言头
文件
书写
格式
自定义C语言头
文件
书写
格式
第一步: 在
工程
文件
中
创建一个
文件
,在该
文件
下存放C语言源代码 led.c 和它对应的头
文件
led.h 第二步: 在头
文件
led.h 内容开头必须写上: #ifndef __LED_H // 如果之前没有定义过 __LED_H #define __LED_H //那么就定义 __LED_H 第三步: 可以明确列出需要包含的内容 比如:
系统
头
文件
函数
声明 宏定义 结构体声明 … 第四步: 头
文件
结束后,必须写上这句代码 #endif 第五步: 在主
文件
mian.
MATLAB(4)
函数
及
文件
介绍MATLAB
中
函数
的定义、分类,以及MATLAB
中
不同
文件
的作用,最后,介绍MATLAB
工程
的调试方法。
c语言.dsp
文件
的作用,运行C程序的步骤与方法详解——基于一个DSP
工程
文件
(附头
文件
、源
文件
等作用说明)...
运行C程序的步骤与方法(结合DSP
工程
)一个CPU定时器的
工程
里面的
文件
这么多,光TI提供的源
文件
就一大堆。还有成堆的头
文件
。以及cmd
文件
等等。这些
文件
各自的作用是什么?然后这些C程序又是如何联系起来,最终执行的?我想在本文里面来阐述一下。而叙述的顺序就按照谭浩强老师书
中
说的运行C程序的步骤与方法来一条条叙述。1.源程序的编辑这里我们先明白一个问题。为何这个
工程
中
会有这么多的.c
文件
即源
文件
。这...
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章