想把采集到的 数据记录到数据库表单中 的问题(100分)

采集后的原文件代码为
A 马克思主义、列宁主义、毛泽东思想、邓小平理论

A1/49 (特殊分类规定)

A1 马克思、恩格斯著作

A11 选集、文集



A119 选读

A12 单行著作

A121/125 各时期单行著作

A121 马克思主义形成时期(1848年以前)

A122 革命风暴的高涨与低落时期(1848~1863年)

A123 第一国际和巴黎公社时期(1864~1872年)

A124 马克思主义广泛传播和各国建立社会主义政党时期(1873~1889年6月)



A125 第二国际时期(1889年7月~1895年)

A13 书信集、日记、函电、谈话

A14 诗词

A15 手迹

A16 专题汇编

A18 语录

A2 列宁著作

A21 选集、文集

A219 选读
我想根据空格的多少，把数据放在同一张表中，该表分三个字段，第一字段为子类表，第二为名称表，第三类为父类表
例 A1 马克思、恩格斯著作 A
A2 列宁著作 A
A21 选集、文集 A2
要用到循环，
我自己本来是用到
function GetStr(StrSource,StrBegin,StrEnd:String):String;
var
in_star,in_end:integer;
begin
in_star:=AnsiPos(StrBegin,StrSource)+length(StrBegin);
in_end:=AnsiPos(StrEnd,StrSource);
result:=copy(StrSource,in_star,in_end-in_star);
{
函数里的AnsiPos和copy，都是系统定义的，可从delphi的帮助文件里找到相关说明，
function AnsiPos(const Substr, S: string): Integer
返回Substr在S中第一次出现的位置。
function copy(strsource,in_star,in_end-in_star): string;
返回字符串strsource中,从in_star(整型数据)开始到in_end-in_star(整型数据)结束的字符串。
}
end;
但是不好循环，还有截取中还存在不少问题，，有谁能有更好的方法吗

你前面不是有A,A1,A123 之类的吗？ 你可以根据 A 的后觜名 来判断 属于哪个父类啊

我是新手，你能提示我，用什么代码，可以实现，你说的这个吗，
还有一个问题，就是，如果按你这样，那么怎么来记录名称这个字段

zheng ze biao da shi