高手啊，救救我。

Question

access violation at address 40028583 in module 'rtl60.bpl'.read of address ffffffff.
我用DELPHI做一个用BDE连接ACCESS的数据库，并且打印数据，是不是数据多了？

Answer 1

 十分同意   hotzhu(非洲白脸)
  很可能是某个类没有实例化

Answer 2

unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QuickRpt, QRCtrls, ExtCtrls, DB, DBTables;type
  TForm2 = class(TForm)
    QuickRep1: TQuickRep;
    Table1: TTable;
    Database1: TDatabase;
    DataSource1: TDataSource;
    QRBand1: TQRBand;
    QRExprMemo1: TQRExprMemo;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation{$R *.dfm}end.

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, ComCtrls, StdCtrls, Mask, DBCtrls;type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    DataSource1: TDataSource;
    Table1: TTable;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    TabSheet3: TTabSheet;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label6: TLabel;
    ComboBox1: TComboBox;
    Label7: TLabel;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Database1: TDatabase;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  if table1.Bof=false
     then table1.prior
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  if table1.eof=false
     then table1.Next;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
  table1.FindKey([edit1.text]);end;procedure TForm1.Button5Click(Sender: TObject);
begin
  form2.show;
  form2.QuickRep1.preview
end;procedure TForm1.Button6Click(Sender: TObject);
begin
   form2.QuickRep1.PrinterSetup
end;end.

Answer 4

这是QuickReport的Bug，内存管理的漏洞

Answer 5

用quickreport不可以显示中文吗?

Answer 6

我用quickreport显示英文的时候是没有一点事的,后来把表改为是中文的就有问题了.

Answer 7

quickreport显示中文不会有问题。
把QuickRep1上的控件可没必要的代码都去掉， 然后试试。 
preview一下, 一般不会有问题目， 然后一个一个加回去。

Answer 8

实际上我是没有写什么代码的.但是还是出错了.
procedure TForm1.Button5Click(Sender: TObject);
begin
  form2.show;
  form2.QuickRep1.preview
end;
这个有错吗?

Answer 9

是不是中间有个没有释放内存的问题,如果是我应该怎么做?
但是我加了quickrep1.free后还是不行.....