最近比较烦，比较烦，比较烦，我的头发只剩下过去的一半........主啊！快救救我吧！(50分)

小弟刚学Delphi没多久，在自定义函数和过程上非常的不明白，请各位结合以下这篇文章
给小弟讲解一下，谢谢！！！
什么叫在FORM对象内部声明，和在PUBLIC，PRIVATE中定义有什么不同？怎样在FORM对象
内部声明？为什么有的函数的实现部分的定义前要加上Form对象名称的前缀，如
TForm1.HanShu，而有的并不加？
用Delphi实现将纯文本资料转入数据库

在我们日常工作中,常会碰到这样一个难题：一大堆收集好的纯文本格式,比较规整的资料
怎样才能将它们分离,转到自己已经建好的数据库中进行管理呢？

　　例如,有一段人事档案资料archive.txt,内容如下：
　　小许男21工程师
　　小吴女23助理工程师
　　小蔡男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
　　i,Num：Integer;
　　Flag：Boolean;
　　MyStr,TempStr：String;
　　begin
　　Flag:=False; ／／进行标志,去除多余的分割符
　　Num:=Length(aString); ／／计算aString串的长度
　　for i:=1 to Num do
　　begin
　　TempStr:=Copy(aString,i,1); //取aString串中的一字符
　　if TempStr <> SepChar then
　　begin
　　MyStr:=MyStr+TempStr;
　　Flag:=True;
　　end
　　else
　　if(Flag = True)then
　　begin
　　Mystr:=Mystr+TempSrt;
　　Flag:=False;
　　end;
　　end;
　　if MyStr[Length(MyStr)] <> SepChar then
　　MyStr:=MyStr+SepChar;
　　RegulateSrt:=MyStr;
　　end;

　　Function GetSubStr(var aString：String,SepChar：Strign)：String;
　　var
　　Mysrt：String;
　　StrLen：Integer;
　　SepCharPso：Integer;
　　begin
　　StrLen:=Length(aString);
　　SepCharPos:=Pos(SepChar,aString); ／／计算分割符在子串中的位置
　　MyStr:=Copy(aString,1,SepCharPos－1); ／／将分割符前所有字符放到mystr串中
　　Delete(aString,1,SepCharPos); ／／除去分割符和分割符前的子串
　　GetSubStr:=MyStr; ／／返回一个字段
　　end;

　　FunctionTforml.GetSubStrNum(aString：String;SepChar：String)：Integer;
　　var
　　i：Integer;
　　StrLen：Integer;
　Num：Integer;
　　begin
　　StrLen:=Length(aString);
　　Num:=0;
　　for i:=1 to StrLen do
　　if Copy(aString,i,1) = SepCharthen
　　Num:=Num+1;
　　GetSubSrtNum:=Num;
　　end;

　　有了上面三个函数,现在介绍一下具体的应用：
　　1.首先建立一个窗体Forml,加入一个RichEditl(或Menol),一个按钮Buttonl和一
个Tablel,
设置Tablel的属性：
　　Tablell.DataBase = 'c:/Archivs'
　　Tablell.TableName ='Archive.dbf'

　　2.分别加入以下程序：
　　Const Space= ''
　　ProcedureTForml.FormCreate(Sender：Tobject);
　　begin
　　RichRditl.Lines.LoadFromFile('Archive.txt');
　　end;

　　ProcedureTForml.Button1Click(Sender：Tobject);
　　var
　　i,j：Integer;
　MyLine：String;
　　begin
　　with Tablel do
　　begin
　 　Open;
　for i:=0 to RichEditl.Lines.Count－1 do
　begin
　　MyLine:=RegulateStr(Richeditl.Lines,Space);
　　for j:=1 to Num do
　　begin
　　Append;
　　fileds[j－1].aString:=GetSubSrt(MyLine,Space));
　　post;
　　end;
　　end;
　　end;
　　end;

　　然后就可以进行编译,运行了。此程序在win95／Delphi2.0下调试通过。

请大家指点，能指明文章中的错误并介绍一下自定义函数或过程的详细用法。谢谢！

用得着这么麻烦吗?foxbase中就有将文本格式转换成数据库的方法

看到你的标题，我还以为你失恋了呢，:），（最近这个种种文章好象有点多），
高手都不吱声，我就猴子充大王吧，
在 form 对象内部声明就是指在 public, private, published, protected 中声明，
这四种声明都和对象有关，找本面向对象编程的书来看看你就明白了，
我就不多说了(...实际上是说不清楚)

>> >> 为什么有的函数的实现部分的定义前要加上Form对象名称的前缀，如 TForm1.HanShu

加了Form对象名称的前缀后，这个函数就成了 form 对象的方法，
如果这个函数是在定义在 private 和 protected 中的，别的对象就不能调用它，
此外，如果不是类方法的话，调用这个方法的时候通过一个该对象的实例来调用，
例如，form1 调用 form2 的方法 procedureA，
必须保证 form2 已经创建好了（不一定要 show 出来），
用 form2.procedureA 的形式来调用

>> >> 而有的并不加

没有加前缀的函数或过程是全局的，
调用的时候只要保证这个函数是在本单元或者是 uses 列表单元中就可以了

同意上面的

对不起，漏了一点，
如果函数或过程声明在 implementation 后面，
那就是局部的，只有本单元的函数或过程才能调用

940801,谢谢您的指点，您能否帮小弟指点一下文章里的错误？因为我刚按文章所述写里一个
小例子，但运行通不过。谢谢！！！

Delphi2.0?
老兄，有没有搞错，
什么时代了，还用这个。
找张Delphi5的行不，
不行来我这儿，我给你刻张。
我这儿是正版的。

这 50 分可真难挣，：）

例中有一个错：
for j:=1 to Num do //此处 Num 改为 GetSubStrNum(MyLine,Space)
　　begin
　　Append;
　　fileds[j－1].aString:=GetSubSrt(MyLine,Space));
　　post;
　　end;
　　

会用Excel吗？按几下mouse行了。

对不起，940801，我把加分的问题给忘了，就顾着问您问题了。谢谢！！！
您有OICQ吗？能否把号告诉我？

抱歉，我没有用 icq 或者 oicq 或者类似的东东，
好多人都不信，但这确实是真情，抱歉，
我的 mail 是：l940801@yahoo.com

调试中在哪一行出错？错误信息是什么？