提取无忧测试系统的一个小工具

很多参加计算机职称考试的一些朋友肯定用过无忧考系统,这套系统把所有题库放在一些Access文件里面,直接用access打开看不到明文,似乎加密了,其实仔细分析下,他存储的格式是RTF,只不过去掉了些RTF文件的关键信息.为了方便浏览(因为他有一些表之间的关联),特写了一个Delphi的小工具..下面给出一些关键的代码.

  1unit MainForm;
  2
  3interface
  4
  5uses
  6  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7  Dialogs, StdCtrls, Grids, DBGrids,DB,ADODB, ComCtrls;
  8
  9type
 10  TForm1 = class(TForm)
 11    Button1: TButton;
 12    SaveDialog1: TSaveDialog;
 13    OpenDialog1: TOpenDialog;
 14    Button2: TButton;
 15    Button3: TButton;
 16    ProgressBar1: TProgressBar;
 17    procedure Button1Click(Sender: TObject);
 18    procedure Button2Click(Sender: TObject);
 19    procedure Button3Click(Sender: TObject);
 20  private
 21