新手请教关于读取文本文件到access

Question

现在有一个文本文件。里面有很多内容：
[rec]
（题名）中国地理
（作者）王二
!@#$%@#$^#$%&^
 (出版社）北京出版社
……
[rec]
 (题名）大学
（作者）
……我想把以上的内容读出来，写到ACCESS中。
按照[rec]就是一条记录，题名和作者分别作为字段。用delphi如何写，我是绝对新手，请高手帮忙，麻烦说的详细一点。

Answer 1

将读出的行判断一下再写入access数据库就可以了var
  F: TextFile;
  FileName,S: String;
begin
  FileName:= 'C:\Test.TXT';
  If FileExists(FileName) then
  begin
    AssignFile(F, FileName);
    ReSet(F);
    While Not Eof(F) do
    begin
      Readln(F, S);
      S:= Trim(S);
      Memo1.Lines.Add( s );
    end;
  end;
  CloseFile(F);
end;