引言： 在我们日常工作中，常会碰到这样一个难题：一大堆收集好的纯文本格式，比较规整的资料怎样才能将它们分离，转到自己已经建好的数据库中进行管理呢？例如，有一段人事档案资料document.txt，内容如下：
张强,25,助理工程师,
王宏,30,工程师,
李远,45,高级工程师,
要将它转入数据...
摘要： 使用delphi可以方便而又快速地建立强大的数据库应用程序，delphi的数据库应用程序开发，无论是客户/服务器数据库还是本地数据库，必须用到组件(组件的英文为component，有叫控件、元件、构件的，本文称组件)tdatasource和ttable，其中ttable组件中有多种过滤记录的方法，现用最简单例子分别说明。
---- 1.给字段设置限制值，过滤记录
---- 下面是delp......
摘要：unit mapicontrol;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs;
type
{ introducing a new type of event to get the errorcode }
tmapierrevent = proced......
用Delphi实现将纯文本资料转入数据库 在我们日常工作中,常会碰到这样一个难题:一大堆收集好的纯文本格式,比较规整的资料怎样才能将它们分离,转到自己已经建好的数据库中进行管理呢?例如,有一段人事档案资料document.txt,内容如下:
张强,25,助理工程师, 【程序编程相关:
常用文件目录操作】 【推荐阅读:
监视Pop3信箱】
王宏,30,工程师, 【扩展信息:
关于控制CAPS LOCK按键】
李远,45,高级工程师,
要将它转入数据库中,document.db结构如下:
姓名,年龄,职称
怎么办呢?现在通过使用delphi编程,很好地解决了这个难题.delphi提供了许多功能强大,丰富的字符处理函数与过程,常用的有:
① function length(s:string):integer //返回串的长度
② function copy(s:string; index,count: integer):string
//给出一个字符串中串的拷贝
③ function pos(substr:string; s:string); integer
//查找子串在字符串中的位置
④ procedure delete(var s:string; index,count: integer);
//从一个字符串中去除子串
利用delphi提供的已有函数与过程基础上编制自己的三个函数,实现了纯文本格式资料转入数据库功能.只要delphi支持的数据库都可以支持.
document.txt中每行数据为一个字符串,字符串中每个被分割的数据为一个字段,分割每个字段的字符为分割符,这里是逗号,也可以是.;#等符号.具体思想是:先将字符串进行调整,然后把串中每个字符同分割符比较,将不是分割符的字符追加到mystr串中,最后得到一个字段的内容.通过一个循环,就可以将一个字符串分成几个字段.
function getsubstr(var astring:string; sepchar:string): string;
//得到字符串中一个子串 ...
下一页 摘要：作者: 潘汉杰
资源也是数据，它相当于我们熟悉的只读数据。在应用程序的可执行代码中，它是单独存储的，当其被调用时才载入程序，在程序执行完后又退出。delphi中的资源有很多类型，适用于不同的地方，大致有以下几类：
●图标资源：是一种小型位图，用户常常用不同的图标代替不同的应用程序。
●光标资源：也是小型的位图，不过它适用的颜色不多。delphi已经给光标指定了一个光标图案集，就是我们操作......
