引言: 有一段人事档案资料archive.txt,内容如下:
小许男21工程师
小吴女23助理工程师
小蔡男22助理工程师
小牟女22工程师
要将它转入数据库archive.dbf中,archive.dbf结构如下:
姓名,性别,年龄,职称
怎么办呢?现在通过使用delp...
摘要: 现在很多朋友都有了自己的个人主页。有一个留言板主页与访问者交流一下可能是很多网友愿望。但留言板主页不同与一般主页,它不但有主页部分而且还要有数据存储功能。其实用delphi的cgi应用程序可以轻松的制作留言板主页。用elphi开发cgi应用程序不但可以实现asp,html很难实现的低层操作,而且简化了cgi应用程序开发过程。
---- 1.选择delphi的菜单file|new,在new标......
摘要:林凌
资源是存放在扩展名.res的文件里的二进制数据结构,在delphi中资源文件可以使用图象编辑器来制作(imageeditor),或者使用其他的工具。如:borland公司提供的radpackfordelphi中的resourceworkshop来创建。资源文件中通常存放的是应用程序可以随时存取的一些对象,包括:icon、cursor、bitmap、font等近十种。大部分的资源在通常的......
文本数据导入数据库的方法有一段人事档案资料archive.txt,内容如下:
小许男21工程师 【程序编程相关:
如何用delphi读取网卡物理号】 【推荐阅读:
避免驱动器A没有准备好错误】
小吴女23助理工程师 【扩展信息:
QQ2000B刷屏机的源码(Delphi】
小蔡男22助理工程师
小牟女22工程师
要将它转入数据库archive.dbf中,archive.dbf结构如下:
姓名,性别,年龄,职称
怎么办呢?现在通过使用delphi编程,很好地解决了这个难题.delphi提供了许多功能强大,丰富的字符处理函数与过程,常用的有:
(1)function length(s:string):integer//返回串的长度
(2)function copy(s:string;index,count:integer):string//给出一个字符串中串的拷贝
(3)function pos(substr:string;s:string);integer//查找子串在字符串中的位置
(4)procedure delete(vars:string;index,count:integer); //从一个字符串中去除子串
利用delphi提供的已有函数与过程基础上编制自己的三个函数,实现了纯文本格式资料转入数据库功能.只要delphi支持的数据库都可以支持.
archive.txt中每行数据为一个字符串,字符串中每个被分割的数据为一个字段,分割每个字段的字符为分割符,这里是空格,也可以是,.;.#等符号.具体思想是:先将字符串进行调整,然后把串中每个字符同分割符比较,将不是分割符的字符追加到mystr串中,最后得到一个字段的内容.通过一个循环,就可以将一个字符串分成几个字段.
function regulate(astring,sepchar:string):string //去掉多余的分割符,规范字符串
function getsubstr(varsstring:string;sepchar:string):string; //得到字符串中一个子串,因要改变参数astring的值,所以将它用var定义.
functiongetsubstrnum(astring,sepchar:string):integer; //计算一个字符串要被分割成几个字段.
参数:astring是所需分割的一个字符串,sepchar是分割符.
function regulatestr(astring:string;sepchar:string):string;
var ...
下一页 摘要:一、概述
软件作为一种人类智力劳动成果的一种表现形式,融会了设计者和开发者辛勤的劳动和汗水,然而,由于用户观念上的差异和盗版软件的泛滥,软件开发者的权益往往得不到有效的保护,因此,作为必要的手段-----软件的自身保护也就在特定的环境下被重视起来。
然而,正所谓,“魔高一尺,道高一丈”,保护和破解的矛盾关系在始终持续着,要想找到一种万能的保护方法,却也不是那么简单的事。但是,如果开发者使用的保......