这个问题是否太难了?

Question

这个问题是否太难了?一整天无人回答.
例如:文本文件的某行如下
楼盘名称xxxx建设发展有限公司楼盘编号000001
        .............数据库表table1有2个字段Lpmc,Lpbh.
将上句的第5-16位"xxxx建设发展有限公司"读入LPMC,第21-26位"000001"读入LPBH后
table1数据为:
Lpmc                 Lpbh
xxxx建设发展有限公司  000001
        .............Pascal语言如何写?(给出源代码.请不要谈思路了.)

Answer 1

var
  a: Tstringlist;
  i: integer;
  j: string;
  lpmc: string;
  lpbh: string;
begin
  a := Tstringlist.Create;
  a.LoadFromFile ('test.txt');
  for i := 0 to a.count -1 do
  begin
    lpmc := copy(a.strings[i],9,20);
    lpbh := copy(a.strings[i],37,6);
    showmessage(lpmc);
    showmessage(lpbh);
  end;你的文件最好要有空格分开这些信息要不读取会非常麻烦

Answer 2

楼盘名称xxxx建设发展有限公司楼盘编号000001
楼盘名称xxxx建设发展有限公司楼盘编号000002
test.txt的内容,放在程序的目录下面

Answer 3

zsy_good(只要坚定不移的走下去，那一定会成功)
终于有高人相助了,谢谢!

Answer 4

如何将取出的数据读入table1中?

Answer 5

table1.fields[0].value:=lpmc;
table1,fields[1].value:=lphb;

Answer 6

zsy_good(只要坚定不移的走下去，那一定会成功):
楼盘名称xxxx建设发展有限公司楼盘编号000001
楼盘名称1234建设发展有限公司楼盘编号000002var
  a: Tstringlist;
  i: integer;
  mc: string;
  bh: string;
begin
  a := Tstringlist.Create;
  a.LoadFromFile ('D:\downloads\test.txt');
  for i := 0 to a.count -1 do
  begin
    mc := copy(a.strings[i],9,20);
    bh := copy(a.strings[i],37,6);
    table1.Insert ;
    table1.fieldbyname('lpmc').AsString:=mc;
    table1.fieldbyname('lpbh').AsString:=bh;
end;
只读入一行记录.错在哪里?