DELPHI-应用编程
yuanyubest
计算机,DELPHI,.NET,精简框架,编程,旅游,博客,自然科学,地理,历史,文明
展开
-
delphi的运算符列表
分类运算符操作操作数结果类型范例算术运算符+加整数,实数整数,实数X + Y-减整数,实数整数,实数Result - 1*乘整数,实数整数,实数P * InterestRate/实数除整数,实数实数X / 2div整数除整数整数Total转载 2009-04-24 00:36:00 · 1355 阅读 · 0 评论 -
DELPHI:获得子串在主串出现的次数
获得子串在主串出现的次数function StrSubCount(const Source, Sub: string): integer;var Buf : string; i : integer; Len : integer;begin Re原创 2011-09-11 23:00:31 · 1474 阅读 · 0 评论 -
程序在结束后删除自身的实现
//程序在结束后删除自身的实现procedure Deleteme;var f:textfile; begin assignfile(f,'.\delme.bat'); rewrite(f); writeln(f,'@echo off');原创 2011-09-09 18:14:31 · 1025 阅读 · 0 评论 -
获得随机编码值
//获得随机编码值,用于在数据库中设为唯一识别其它记录function GetRandom():String;var IdString:string;begin DateTimeToString(IdString,'yyyymmddhhnnsstt',now);原创 2011-09-09 18:17:35 · 408 阅读 · 0 评论 -
对字符串进行简单的加密和解密处理
//加密字符串function encryptstr(const s:string; skey:string):string;var i,j: integer; hexS,hexskey,midS,tmpstr:string; a,b,c:b原创 2011-09-09 18:16:19 · 948 阅读 · 0 评论 -
Delphi7中群发电子邮件的实现
这段时间需要对所有参加考试的考生将考生信息及考试信息通过电子邮件群发,经过多次调试,算是成功了,发来我的博客给大家参考一下:总的思路是:1、安装局域网版的邮件服务器,并通过设置DNS使得给服务器能给网外用户发送电邮,这方面的软件比较多,例如WinWebMail就不错,可以原创 2011-09-09 18:08:17 · 873 阅读 · 0 评论 -
动态生成控件方法的应用
一、Delphi中生成控件的两种方法 ---- 1、 Form(表单)设计中生成控件 ---- 在进行Form设计时,直接在控件工具箱选择所需控件,再设置其属性与响应事件,这种方法比较常见。 ---- 2、 程序中动态生成控件 ---- 有时候,我们需要在程序转载 2011-09-09 18:07:17 · 412 阅读 · 0 评论 -
Delphi中随机函数Random应用两则
1. 自动随机出题 你也许有这样的经历:孩子刚上学,数学老师要你每天给出10或者20道算术题,作为你孩子的家庭作业,你是否有点烦?别着急,电脑可帮你忙! 在Delphi中,有一随机函数,是这样定义的:function Random [ ( Range: Integer) ];其中,参数Range为一整数,该函数返回值也为整数,其范围为:0< =Random(原创 2007-10-22 22:46:00 · 5020 阅读 · 0 评论 -
获得子串在主串出现的次数
//获得子串在主串出现的次数function StrSubCount(const Source, Sub: string): integer;var Buf : string; i : integer; Len : integer;begin原创 2011-09-09 18:15:23 · 439 阅读 · 0 评论 -
TDBF控件使用心得
近期需要用到delphi对DBF文件进行操纵,下载了一个TDBF控件,顺便把心得放在这里。 //打开并设置相关DBF数据表,返回值1为正常,0为失败function TFormSjtj.setDBFFileData(DBFFileName:string;DBFinde原创 2011-09-09 18:10:32 · 1672 阅读 · 0 评论 -
阿拉伯数字转换成中文大写数字
function UpGB(InData:real):string;var a1,a2,a3,a4,a5,a6,a7:real;begin a1 := int(InData/10000); a2 := int((InData-a1*10000)/1000);原创 2011-09-09 18:09:11 · 5843 阅读 · 0 评论 -
输入字符串和需要变换到的长度,函数自动补充空格达到规定长度
输入字符串和需要变换到的长度,函数自动补充空格达到规定长度,这种情况是做数据库软件经常遇到的情况之一,我这里抛砖引玉,给大家提供一种简单的思路而已。function SetLength(OldStr:string;amount:integer):string;begin原创 2011-09-11 22:59:37 · 739 阅读 · 0 评论