Document.txt中每行数据为一个字符串，字符串中每个被分割的数据为一个字段，分割每个字段的字符为分割符，这里是逗号，也可以是、;#等符号。具体思想是：先将字符串进行调整，然后把串中每个字符同分割符比较，将不是分割符的字符追加到MyStr串中，最后得到一个字段的内容。通过一个循环，就可以将一个字符串分成几个字段。

　　Function GetSubStr(var aString:string; SepChar:String): String;

　　//得到字符串中一个子串

　　因要改变参数aString的值，所以将它用var定义。

　　Function GetSubStrNum(aString, SepChar: String): Integer;

　　//计算一个字符串要被分割成几个字段。

　　参数：aString是所需分割的一个字符串，

　　SepChar是分割符。
　　Function 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) = SepChar then
　　Num:=Num+1;
　　result:=Num;
　　end;
　　Function GetSubStr(var aString:String;SepChar:String):String;
　　var
　　Mystr:String;
　　StrLen:Integer;
　　SepCharPos:Integer;
　　begin
　　StrLen:=Length(aString);
　　SepCharPos:=Pos(SepChar,aString); //计算分割符在子串中的位置
　　MyStr:=Copy(aString,1,SepCharPos-1); //将分割符前所有字符放到mystr串中
　　Delete(aString,1,SepCharPos); //除去分割符和分割符前的子串
　　GetSubStr:=MyStr; //返回一个字段
　　end;

　　有了上面三个函数，现在介绍一下具体的应用：

　　① 首先建立一个窗体Forml，加入一个RichEditl(或Menol)，一个按钮Buttonl和一个Tablel，设置Tablel的属性：

　　Tablell.DataBaseName:= ''c:\test'';

　　Tablell.TableName:= ''document.db'';

　　② 分别加入以下程序：

　　const
　　SepChar='','' ;
　　procedure TForm1.FormCreate(Sender: TObject);
　　begin
　　RichEdit1.Lines.LoadFromFile(''c:\test\test.txt'');
　　end;
　　procedure TForm1.Button1Click(Sender: TObject);
　　var
　　i,j,num:Integer;
　　MyLine:String;
　　item:array[1..3] of string;
　　begin
　　For i:=0 to RichEdit1.Lines.Count-1 do
　　begin
　　MyLine:=Richedit1.Lines[i];
　　num:=GetSubStrNum(myline,SepChar);
　　for j:=1 to num do
　　item[j]:=GetSubStr(myline,SepChar);
　　table1.open;
　　with table1 do
　　begin
　　table1.insert;
　　table1name.Asstring:=item;
　　table1age.Asinteger:=strtoint(item);
　　table1title.Asstring:=item;
　　table1.post;
　　end;
　　table1.close;
　　end;
　　end;

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