社区
Delphi
帖子详情
如何在系统的工程文件中,加入函数?要具体的格式
ctrlqrj
2003-09-12 12:32:08
如题:
想在程序的启动时,通过函数获取硬盘的序列号,来判断是否启动程序。
...全文
99
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 楼上
手把手教程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
文件
即源
文件
。这...
常用的C/C++文本
文件
的读写
函数
概述 文本
文件
的读写是算法研究和
工程
应用
中
常见的功能模块。C和C++的标准库
中
提供了多种文本
文件
的读写方法,我们一般都会掌握其
中
比较习惯使用的一种或几种方法。解决问题的方法不在多,而在精。经过在网上的资料搜索和总结,这里我对实际编程
中
经常用到的几类方法总结如下。对C和C++分开介绍,目的是让大家即能用C++读写文本
文件
,又能用C读写文本
文件
。不多不少,恰到好处地掌握好该掌握的读写知识。 C读写
Delphi
5,392
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章