Delphi7运行一个程序，老是跳出如下错误，'access violation at 0x4be43541 : read of address 0x00000

xhzhengzheng · 2006-08-10

Delphi7运行一个程序，老是跳出如下错误，'access violation at 0x4be43541 : read of address 0x0000000026'. Process Stopped . Use Step or Run to continue.(100分) 我在Delphi7运行一个程序，老是跳出如下错误， Debugger Fault Notification 'access violation at 0x4be43541 : read of address 0x0000000026'. Process Stopped . Use Step or Run to continue. 然后就是显示CPU运行界面，但是这个程序可以Compile和 Build  ，就是不能Debug ，数据库联接是Dephi7中的BDE，差不过在运行到联接ORACLE8i数据库时就提示上面的内容,我不知道应该怎样处理好？ 部分原代码,帮忙看看有没有错. (以下为从A数据库ORACEL某一表中读取数据据,向B SYBASE数据库中的某表中导入数据,中间有转换数据库,是作为AB两数据库的临时存储) object Form1: TForm1  Left = 113  Top = 73  BorderStyle = bsDialog  Caption = '转换程序'  ClientHeight = 573  ClientWidth = 792  Color = clBtnFace  Font.Charset = GB2312_CHARSET  Font.Color = clBlack  Font.Height = -15  Font.Name = '宋体'  Font.Style = []  OldCreateOrder = False  OnCreate = FormCreate  PixelsPerInch = 96  TextHeight = 15  object Label1: TLabel    Left = 16    Top = 544    Width = 181    Height = 15    Caption = '可选单数：0；已选单数：0'    Font.Charset = GB2312_CHARSET    Font.Color = clRed    Font.Height = -15    Font.Name = '宋体'    Font.Style = []    ParentFont = False  end  object Label2: TLabel    Left = 328    Top = 544    Width = 48    Height = 15    Caption = '99/100'    Color = clBtnFace    Font.Charset = GB2312_CHARSET    Font.Color = clBlue    Font.Height = -15    Font.Name = '宋体'    Font.Style = []    ParentColor = False    ParentFont = False    Visible = False  end  object DBGrid1: TDBGrid    Left = 16    Top = 16    Width = 761    Height = 241    Ctl3D = False    DataSource = DataSource1    Font.Charset = GB2312_CHARSET    Font.Color = clBlack    Font.Height = -15    Font.Name = '宋体'    Font.Style = []    Options = [dgTitles, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]    ParentCtl3D = False    ParentFont = False    PopupMenu = PopupMenu1    ReadOnly = True    TabOrder = 0    TitleFont.Charset = GB2312_CHARSET    TitleFont.Color = clBlack    TitleFont.Height = -15    TitleFont.Name = '宋体'    TitleFont.Style = []    OnDblClick = DBGrid1DblClick    OnTitleClick = DBGrid1TitleClick    Columns = <      item        Expanded = False        FieldName = 'Incabillid'        Title.Caption = '英.单号'        Width = 85        Visible = True      end      item        Expanded = False        FieldName = 'Incagysid'        Title.Caption = '英.供号'        Width = 81        Visible = True      end      item        Expanded = False        FieldName = 'Rhgysid'        Title.Caption = '润.供号'        Width = 68        Visible = True      end      item        Expanded = False        FieldName = 'Incagysname'        Title.Caption = '英.供应商'        Width = 171        Visible = True      end      item        Expanded = False        FieldName = 'Rhgysname'        Title.Caption = '润.供应商'        Width = 156        Visible = True      end      item        Expanded = False        FieldName = 'Incadate'        Title.Caption = '开单日期'        Width = 81        Visible = True      end      item        Expanded = False        FieldName = 'Je'        Title.Caption = '金额'        Visible = True      end>  end  object DBGrid2: TDBGrid    Left = 16    Top = 296    Width = 761    Height = 241    Ctl3D = False    DataSource = DataSource2    Font.Charset = GB2312_CHARSET    Font.Color = clBlack    Font.Height = -15    Font.Name = '宋体'    Font.Style = []    Options = [dgTitles, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]    ParentCtl3D = False    ParentFont = False    PopupMenu = PopupMenu2    ReadOnly = True    TabOrder = 1    TitleFont.Charset = GB2312_CHARSET    TitleFont.Color = clBlack    TitleFont.Height = -15    TitleFont.Name = '宋体'    TitleFont.Style = []    OnDblClick = DBGrid2DblClick    OnTitleClick = DBGrid2TitleClick    Columns = <      item        Expanded = False        FieldName = 'Incabillid'        Title.Caption = '英.单号'        Width = 85        Visible = True      end      item        Expanded = False        FieldName = 'Incagysid'        Title.Caption = '英.供号'        Width = 81        Visible = True      end      item        Expanded = False        FieldName = 'Rhgysid'        Title.Caption = '润.供号'        Width = 68        Visible = True      end      item        Expanded = False        FieldName = 'Incagysname'        Title.Caption = '英.供应商'        Width = 171        Visible = True      end      item        Expanded = False        FieldName = 'Rhgysname'        Title.Caption = '润.供应商'        Width = 156        Visible = True      end      item        Expanded = False        FieldName = 'Incadate'        Title.Caption = '开单日期'        Width = 81        Visible = True      end      item        Expanded = False        FieldName = 'Je'        Title.Caption = '金额'        Visible = True      end>  end  object Button1: TButton    Left = 16    Top = 264    Width = 75    Height = 22    Caption = '增加 ▼'    Font.Charset = GB2312_CHARSET    Font.Color = clBlack    Font.Height = -15    Font.Name = '宋体'    Font.Style = []    ParentFont = False    TabOrder = 2    OnClick = Button1Click  end  object Button2: TButton    Left = 96    Top = 264    Width = 75    Height = 22    Caption = '全加▼▼'    Font.Charset = GB2312_CHARSET    Font.Color = clBlack    Font.Height = -15    Font.Name = '宋体'    Font.Style = []    ParentFont = False    TabOrder = 3    OnClick = Button2Click  end  object Button3: TButton    Left = 624    Top = 264    Width = 75    Height = 22    Caption = '删除▲'    Font.Charset = GB2312_CHARSET    Font.Color = clBlack    Font.Height = -15    Font.Name = '宋体'    Font.Style = []    ParentFont = False    TabOrder = 4    OnClick = Button3Click  end  object Button4: TButton    Left = 704    Top = 264    Width = 75    Height = 22    Caption = '全删▲▲'    Font.Charset = GB2312_CHARSET    Font.Color = clBlack    Font.Height = -15    Font.Name = '宋体'    Font.Style = []    ParentFont = False    TabOrder = 5    OnClick = Button4Click  end  object Button5: TButton    Left = 704    Top = 544    Width = 75    Height = 22    Caption = '开始转换'    Font.Charset = GB2312_CHARSET    Font.Color = clBlack    Font.Height = -15    Font.Name = '宋体'    Font.Style = []    ParentFont = False    TabOrder = 6    OnClick = Button5Click  end  object Button6: TButton    Left = 264    Top = 264    Width = 113    Height = 22    Caption = '读入英克数据'    Font.Charset = GB2312_CHARSET    Font.Color = clBlack    Font.Height = -15    Font.Name = '宋体'    Font.Style = []    ParentFont = False    TabOrder = 7    OnClick = Button6Click  end  object ProgressBar1: TProgressBar    Left = 16    Top = 561    Width = 681    Height = 7    TabOrder = 8    Visible = False  end  object Button7: TButton    Left = 432    Top = 264    Width = 113    Height = 22    Caption = '出库单转换'    TabOrder = 9    OnClick = Button7Click  end  object DataSource1: TDataSource    DataSet = Query1    Left = 16    Top = 448  end  object DataSource2: TDataSource    DataSet = Query2    Left = 152    Top = 448  end  object Table3: TTable    DatabaseName = 'tempdb'    TableName = 'Fromtemp.DB'    Left = 544    Top = 64  end  object Table4: TTable    DatabaseName = 'tempdb'    TableName = 'Totemp.DB'    Left = 352    Top = 448  end  object BatchMove1: TBatchMove    Left = 608    Top = 64  end  object Query1: TQuery    DatabaseName = 'tempdb'    Left = 192    Top = 264  end  object Query2: TQuery    DatabaseName = 'tempdb'    Left = 232    Top = 264  end  object Query3: TQuery    DatabaseName = 'tempdb'    Left = 272    Top = 96  end  object Query4: TQuery    DatabaseName = 'tempdb'    Left = 312    Top = 96  end  object Query5: TQuery    DatabaseName = 'DelphiInca'    SQL.Strings = (              'SELECT "BMS_SU_DOC_V"."SUDOCID", "BMS_SU_DOC_V"."CREDATE", "BMS_' +        'SU_DOC_V"."SUPPLYID", "BMS_SU_DOC_V"."SUPPLYNAME", "BMS_SU_DOC_V' +        '"."TOTAL", "BMS_SU_DOC_V"."DTL_LINES",'              '"BMS_SU_DOC_V"."INPUTMANID", "BMS_SU_DOC_V"."FACTCERTNO", "BMS_S' +        'U_DOC_V"."ARRIVEDATE", "BMS_SU_DOC_V"."DELIVERDATE", "BMS_SU_DOC' +        '_V"."TRANSDOCNO", '              '"BMS_SU_DOC_V"."MEMO", "BMS_SU_DOC_V"."SUTYPEID", "BMS_SU_DOC_V"' +        '."SUPPLYOPCODE", "BMS_SU_DOC_V"."SUPPLYNO", "BMS_SU_DOC_V"."SUPP' +        'LYPINYIN", '              '"BMS_SU_DOC_V"."INVOICEPRECISION", "BMS_SU_DOC_V"."USESTATUS", "' +        'BMS_SU_DOC_V"."INPUTMANNAME", "BMS_SU_DOC_V"."INPUTMANOPCODE", "' +        'BMS_SU_DOC_V"."INPUTMANPINYIN", '        '"BMS_SU_DOC_V"."INITFLAG", "BMS_SU_DOC_V"."ENTRYID", "BMS_SU_DOC' +        '_V"."ENTRYNAME", "BMS_SU_DOC_V"."ENGLISHSHORT", "BMS_SU_DOC_V"."' +        'FMID", "BMS_SU_DOC_V"."FMNAME", '              '"BMS_SU_DOC_V"."EXCHANGE" , "BMS_SU_DOC_V"."INVOICETYPE", BMS_SU' +        '_DOC_V.zxcolumn1, BMS_SU_DOC_V.zxcolumn2, BMS_SU_DOC_V.zxcolumn3' +        ', BMS_SU_DOC_V.zxcolumn4, '              'BMS_SU_DOC_V.zxcolumn5, BMS_SU_DOC_V.zxcolumn6, BMS_SU_DOC_V.zxc' +        'olumn7, BMS_SU_DOC_V.zxcolumn8, BMS_SU_DOC_V.zxcolumn9, BMS_SU_D' +        'OC_V.zxcolumn10 '      'FROM "BMS_SU_DOC_V" '      'where '      'bms_su_doc_v.sudocid in ('      'select bms_su_doc_v.sudocid '      'from bms_su_doc_v,bms_su_dtl_v '              'where bms_su_doc_v.sudocid=bms_su_dtl_v.sudocid and BMS_SU_DOC_V' +        '.CREDATE between :startdate and :enddate and'        ' (BMS_SU_DTL_V.sutypeid not in (select sutypeid from bms_sudoc_t' +        'ype where systype = 3)) '              'and (BMS_SU_DTL_V.USESTATUS not in (0)) and (BMS_SU_DTL_V.USESTA' +        'TUS not in (0)) ) ')    Left = 472    Top = 256    ParamData = <      item        DataType = ftUnknown        Name = 'startdate'        ParamType = ptUnknown      end      item        DataType = ftUnknown        Name = 'enddate'        ParamType = ptUnknown      end>  end  object Query6: TQuery    DatabaseName = 'DelphiRhyao'    SQL.Strings = (      'select * from sitrh a,pos01.khda b'      'where a.b=b.dwbh')    Left = 408    Top = 256  end  object PopupMenu1: TPopupMenu    Left = 288    Top = 200    object N12121: TMenuItem      Caption = '供应商对应关系'      OnClick = N12121Click    end  end  object PopupMenu2: TPopupMenu    Left = 392    Top = 376    object N1: TMenuItem      Caption = '供应商对应关系'      OnClick = N1Click    end  end  object Query7: TQuery    DatabaseName = 'DelphiInca'    Left = 384    Top = 448  end  object Query8: TQuery    DatabaseName = 'DelphiRhyao'    SQL.Strings = (      'select * from gitrh a,pos01.cpda b '      'where a.b=b.cpbh and a.a=:incaid')    Left = 416    Top = 448    ParamData = <      item        DataType = ftUnknown        Name = 'incaid'        ParamType = ptUnknown      end>  end end 出错的PAS程序代码: unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Menus, ComCtrls; type  TForm1 = class(TForm)    DBGrid1: TDBGrid;    DBGrid2: TDBGrid;    Button1: TButton;    Button2: TButton;    Button3: TButton;    Button4: TButton;    DataSource1: TDataSource;    DataSource2: TDataSource;    Button5: TButton;    Button6: TButton;    Table3: TTable;    Table4: TTable;    BatchMove1: TBatchMove;    Label1: TLabel;    Query1: TQuery;    Query2: TQuery;    Query3: TQuery;    Query4: TQuery;    Query5: TQuery;    Query6: TQuery;    PopupMenu1: TPopupMenu;    N12121: TMenuItem;    PopupMenu2: TPopupMenu;    N1: TMenuItem;    ProgressBar1: TProgressBar;    Label2: TLabel;    Query7: TQuery;    Query8: TQuery;    Button7: TButton;    procedure FormCreate(Sender: TObject);    procedure Button6Click(Sender: TObject);    procedure DBGrid1DblClick(Sender: TObject);    procedure DBGrid2DblClick(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure Button3Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button4Click(Sender: TObject);    procedure DBGrid1TitleClick(Column: TColumn);    procedure DBGrid2TitleClick(Column: TColumn);    procedure N12121Click(Sender: TObject);    procedure N1Click(Sender: TObject);    procedure Button5Click(Sender: TObject);    procedure Button7Click(Sender: TObject);  private    ls_bookmark_001:integer;    ls_bookmark_002:integer;    orderby01_s,orderby02_s:string;    orderby01_b,orderby02_b:boolean;    un_sel_count,sel_count:integer;    function mygyspassok:boolean;    function mygoodspassok:boolean;    procedure addone;    procedure addall;    procedure deleteone;    procedure deleteall;    procedure refreshinterface;    procedure refreshquerys01;    procedure refreshquerys02;    procedure refreshgys;    { Private declarations }  public    current_usename:string;    { Public declarations }  end; var  Form1: TForm1; implementation uses Unit2, Unit5, Unit6, Unit4, Unit7; {$R *.dfm} function myCopytorh( ls_Params1,ls_Params2,ls_Params3:tstrings; ProgressBar1:TProgressBar; Label2:TLabel; current_usename:String ):boolean;stdcall;external 'Project.pas'; procedure TForm1.FormCreate(Sender: TObject); begin     current_usename:=Application.Title;     Application.Title:='转换程序';     Self.Left:=(Screen.Width-Self.Width) div 2;     Self.Top:=(Screen.Height-Self.Height) div 2;     Table3.Active:=false;     Table3.EmptyTable;     Table4.Active:=false;     Table4.EmptyTable;     un_sel_count:=0;     sel_count:=0;     orderby01_s:='';     orderby02_s:='';     orderby01_b:=false;     orderby02_b:=false;     refreshquerys01;     refreshquerys02;     refreshinterface; end; procedure TForm1.Button6Click(Sender: TObject); var   i:integer;   start_date,end_date:tdate;   ls_supply_array:array[1..6000,1..3] of string;   ls_supply_array_total:integer; begin     form2:=tform2.Create(self);     form2.ShowModal;     if Form2.selectedok then begin        Query6.Active:=false;        Query6.Active:=true;        ls_supply_array_total:=0;        while not(Query6.Eof) do        begin             ls_supply_array_total:=ls_supply_array_total+1;             ls_supply_array[ls_supply_array_total,1]:=Query6.Fieldbyname('a').AsString;             ls_supply_array[ls_supply_array_total,2]:=Query6.Fieldbyname('dwbh').AsString;             ls_supply_array[ls_supply_array_total,3]:=Query6.Fieldbyname('dwmc').AsString;             Query6.Next;        end;        Query6.Active:=false;        start_date:=form2.DateTimePicker1.Date;        end_date:=form2.DateTimePicker2.Date;        Query5.Active:=false;        query5.ParamByName('startdate').AsDate:=start_date;        query5.ParamByName('enddate').AsDate:=end_date;        Query5.Active:=true;        Table3.Active:=false;        Table3.EmptyTable;        Table3.Active:=true;        while not(query5.Eof) do        begin             Table3.Append;             for i:=1 to ls_supply_array_total do begin                if (strtoint(ls_supply_array[i,1])=query5.Fieldbyname('supplyid').AsInteger) then begin                  Table3.FieldByName('Rhgysid').AsString:=ls_supply_array[i,2];                  Table3.FieldByName('rhgysname').AsString:=ls_supply_array[i,3];                  break;                end;             end;             Table3.FieldByName('incabillid').AsInteger:=query5.Fieldbyname('sudocid').AsInteger;             Table3.FieldByName('incagysid').AsInteger:=query5.Fieldbyname('supplyid').AsInteger;             Table3.FieldByName('incagysname').AsString:=query5.Fieldbyname('supplyname').AsString;             Table3.FieldByName('je').AsFloat:=query5.Fieldbyname('total').AsFloat;             Table3.FieldByName('incadate').AsDateTime:=query5.Fieldbyname('arrivedate').AsDateTime;             Table3.FieldByName('rhdate').AsDateTime:=query5.Fieldbyname('arrivedate').AsDateTime;             Table3.Post;             Query5.Next;        end;        Table3.Active:=false;        refreshquerys01;        refreshquerys02;        refreshinterface;     end;     form2.Free; end; procedure TForm1.addone; begin     if Query1.Fieldbyname('incabillid').AsInteger>0 then begin       ls_bookmark_001:=query1.RecNo;       Query4.Active:=false;       Query4.SQL.Clear;       Query4.SQL.Add('insert into totemp.db (incabillid,incagysid,rhgysid,incagysname,rhgysname,incadate,rhdate,je) values

pincabillid,

incagysid,

rhgysid,

incagysname,

rhgysname,

incadate,

rhdate,

je)');       Query4.ParamByName('pincabillid').AsInteger:=Query1.Fieldbyname('incabillid').AsInteger;       Query4.ParamByName('pincagysid').AsInteger:=Query1.Fieldbyname('incagysid').AsInteger;       Query4.ParamByName('prhgysid').AsString:=Query1.Fieldbyname('rhgysid').AsString;       Query4.ParamByName('pincagysname').AsString:=Query1.Fieldbyname('incagysname').AsString;       Query4.ParamByName('prhgysname').AsString:=Query1.Fieldbyname('rhgysname').AsString;       Query4.ParamByName('pincadate').AsDate:=Query1.Fieldbyname('incadate').AsDateTime;       Query4.ParamByName('prhdate').AsDate:=Query1.Fieldbyname('rhdate').AsDateTime;       Query4.ParamByName('pje').AsFloat:=Query1.Fieldbyname('je').AsFloat;       Query4.ExecSQL;       Query3.Active:=false;       Query3.SQL.Clear;       Query3.SQL.Add('delete from fromtemp.db where autoid=

autoid');       Query3.ParamByName('pautoid').AsInteger:=Query1.Fieldbyname('autoid').AsInteger;       Query3.ExecSQL;       refreshquerys01;       refreshquerys02;       refreshinterface;       ls_bookmark_001:=-1;     end; end; procedure TForm1.addall; begin       Table3.Active:=true;       Table4.Active:=true;     if Table3.IsEmpty=false then begin       BatchMove1.Source:=Table3;       BatchMove1.Destination:=Table4;       BatchMove1.Execute;       Table3.Active:=false;       Table3.EmptyTable;       refreshquerys01;       refreshquerys02;       refreshinterface;     end;       Table3.Active:=false;       Table4.Active:=false; end; procedure TForm1.deleteone; begin     if Query2.Fieldbyname('incabillid').AsInteger>0 then begin       ls_bookmark_002:=query2.RecNo;       Query4.Active:=false;       Query4.SQL.Clear;       Query4.SQL.Add('insert into fromtemp.db (incabillid,incagysid,rhgysid,incagysname,rhgysname,incadate,rhdate,je) values

pincabillid,

incagysid,

rhgysid,

incagysname,

rhgysname,

incadate,

rhdate,

je)');       Query4.ParamByName('pincabillid').AsInteger:=Query2.Fieldbyname('incabillid').AsInteger;       Query4.ParamByName('pincagysid').AsInteger:=Query2.Fieldbyname('incagysid').AsInteger;       Query4.ParamByName('prhgysid').AsString:=Query2.Fieldbyname('rhgysid').AsString;       Query4.ParamByName('pincagysname').AsString:=Query2.Fieldbyname('incagysname').AsString;       Query4.ParamByName('prhgysname').AsString:=Query2.Fieldbyname('rhgysname').AsString;       Query4.ParamByName('pincadate').AsDate:=Query2.Fieldbyname('incadate').AsDateTime;       Query4.ParamByName('prhdate').AsDate:=Query2.Fieldbyname('rhdate').AsDateTime;       Query4.ParamByName('pje').AsFloat:=Query2.Fieldbyname('je').AsFloat;       Query4.ExecSQL;       Query3.Active:=false;       Query3.SQL.Clear;       Query3.SQL.Add('delete from totemp.db where autoid=

autoid');       Query3.ParamByName('pautoid').AsInteger:=Query2.Fieldbyname('autoid').AsInteger;       Query3.ExecSQL;       refreshquerys01;       refreshquerys02;       refreshinterface;       ls_bookmark_002:=-1;     end; end; procedure TForm1.deleteall; begin       Table3.Active:=true;       Table4.Active:=true;     if Table4.IsEmpty=false then begin       BatchMove1.Source:=Table4;       BatchMove1.Destination:=Table3;       BatchMove1.Execute;       Table4.Active:=false;       Table4.EmptyTable;       refreshquerys01;       refreshquerys02;       refreshinterface;     end;     Table3.Active:=false;     Table4.Active:=false; end; procedure TForm1.DBGrid1DblClick(Sender: TObject); begin     addone; end; procedure TForm1.DBGrid2DblClick(Sender: TObject); begin     deleteone; end; procedure TForm1.Button1Click(Sender: TObject); begin     addone; end; procedure TForm1.Button3Click(Sender: TObject); begin     deleteone; end; procedure TForm1.Button2Click(Sender: TObject); begin     addall; end; procedure TForm1.Button4Click(Sender: TObject); begin     deleteall; end; procedure TForm1.refreshinterface; begin     un_sel_count:=Query1.RecordCount;     sel_count:=Query2.RecordCount;     Label1.Caption:='可选单数：'+inttostr(un_sel_count)+'；已选单数：'+inttostr(sel_count);     Button1.Enabled:=true;     Button2.Enabled:=true;     Button3.Enabled:=true;     Button4.Enabled:=true;     DBGrid1.PopupMenu:=PopupMenu1;     DBGrid2.PopupMenu:=PopupMenu2;     Button5.Enabled:=true;     if un_sel_count=0 then begin       DBGrid1.PopupMenu:=nil;       Button1.Enabled:=false;       Button2.Enabled:=false;     end;     if sel_count=0 then begin       DBGrid2.PopupMenu:=nil;       Button3.Enabled:=false;       Button4.Enabled:=false;       Button5.Enabled:=false;     end; end; procedure TForm1.refreshquerys01; var   i:integer; begin     Query1.Active:=false;     Query1.SQL.Clear;     query1.SQL.Add('select * from Fromtemp.DB');     if orderby01_s<>'' then begin       query1.SQL.Add('order by '+orderby01_s);       if orderby01_b then begin         query1.SQL.Add(' desc');       end;     end;     Query1.Active:=true;     if (query1.IsEmpty=false) and (ls_bookmark_001<>-1) then begin        query1.First;        Query1.MoveBy(ls_bookmark_001);     end;     for i:=0 to DBGrid1.Columns.Count-1 do begin        if ((copy(DBGrid1.Columns.Title.Caption,(length(DBGrid1.Columns.Title.Caption)-1),2)='▼') or            (copy(DBGrid1.Columns.Title.Caption,(length(DBGrid1.Columns.Title.Caption)-1),2)='▲')) then begin          DBGrid1.Columns.Title.Caption:=copy(DBGrid1.Columns.Title.Caption,1,(length(DBGrid1.Columns.Title.Caption)-2));        end;        if DBGrid1.Columns.DisplayName=orderby01_s then begin          if orderby01_b then            begin                 DBGrid1.Columns.Title.Caption:=DBGrid1.Columns.Title.Caption+'▼';            end          else              begin                   DBGrid1.Columns.Title.Caption:=DBGrid1.Columns.Title.Caption+'▲';              end;        end;     end; end; procedure TForm1.refreshquerys02; var   i:integer; begin     Query2.Active:=false;     Query2.SQL.Clear;     query2.SQL.Add('select * from Totemp.DB');     if orderby02_s<>'' then begin       query2.SQL.Add('order by '+orderby02_s);       if orderby02_b then begin         query2.SQL.Add(' desc');       end;     end;     Query2.Active:=true;     if (query2.IsEmpty=false) and (ls_bookmark_002<>-1) then begin        query2.First;        Query2.MoveBy(ls_bookmark_002);     end;     for i:=0 to DBGrid2.Columns.Count-1 do begin        if ((copy(DBGrid2.Columns.Title.Caption,(length(DBGrid2.Columns.Title.Caption)-1),2)='▼') or            (copy(DBGrid2.Columns.Title.Caption,(length(DBGrid2.Columns.Title.Caption)-1),2)='▲')) then begin          DBGrid2.Columns.Title.Caption:=copy(DBGrid2.Columns.Title.Caption,1,(length(DBGrid2.Columns.Title.Caption)-2));        end;        if DBGrid2.Columns.DisplayName=orderby02_s then begin          if orderby02_b then            begin                 DBGrid2.Columns.Title.Caption:=DBGrid2.Columns.Title.Caption+'▼';            end          else              begin                   DBGrid2.Columns.Title.Caption:=DBGrid2.Columns.Title.Caption+'▲';              end;        end;     end; end; procedure TForm1.DBGrid1TitleClick(Column: TColumn); begin        if Column.DisplayName=orderby01_s then          begin               orderby01_b:=not(orderby01_b);          end        else            begin                 orderby01_s:=Column.DisplayName;                 orderby01_b:=false;            end;        refreshquerys01; end; procedure TForm1.DBGrid2TitleClick(Column: TColumn); begin        if Column.DisplayName=orderby02_s then          begin               orderby02_b:=not(orderby02_b);          end        else            begin                 orderby02_s:=Column.DisplayName;                 orderby02_b:=false;            end;        refreshquerys02; end; procedure TForm1.N12121Click(Sender: TObject); begin     form5:=tform5.Create(self);     form5.incaoid:=Query1.Fieldbyname('incagysid').AsInteger;     form5.rhid:=Query1.Fieldbyname('rhgysid').AsString;     form5.ShowModal;     if Form5.Sel_Id<>'' then begin       refreshgys;     end;     form5.Free; end; procedure TForm1.N1Click(Sender: TObject); begin     form5:=tform5.Create(self);     form5.incaoid:=Query2.Fieldbyname('incagysid').AsInteger;     form5.rhid:=Query2.Fieldbyname('rhgysid').AsString;     form5.ShowModal;     if Form5.Sel_Id<>'' then begin       refreshgys;     end;     form5.Free; end; procedure TForm1.refreshgys; var   i:integer;   ls_supply_array:array[1..6000,1..3] of string;   ls_supply_array_total:integer; begin      Query6.Active:=false;      Query6.Active:=true;      ls_supply_array_total:=0;      while not(Query6.Eof) do      begin           ls_supply_array_total:=ls_supply_array_total+1;           ls_supply_array[ls_supply_array_total,1]:=Query6.Fieldbyname('a').AsString;           ls_supply_array[ls_supply_array_total,2]:=Query6.Fieldbyname('dwbh').AsString;           ls_supply_array[ls_supply_array_total,3]:=Query6.Fieldbyname('dwmc').AsString;           Query6.Next;      end;      Table3.Active:=true;      while not(Table3.Eof) do      begin           Table3.Edit;           for i:=1 to ls_supply_array_total do begin              if (strtoint(ls_supply_array[i,1])=Table3.Fieldbyname('incagysid').AsInteger) then begin                Table3.FieldByName('Rhgysid').AsString:=ls_supply_array[i,2];                Table3.FieldByName('rhgysname').AsString:=ls_supply_array[i,3];                break;              end;           end;           Table3.Post;           Table3.Next;      end;      Table3.Active:=false;      Table4.Active:=true;      while not(Table4.Eof) do      begin           Table4.Edit;           for i:=1 to ls_supply_array_total do begin              if (strtoint(ls_supply_array[i,1])=Table4.Fieldbyname('incagysid').AsInteger) then begin                Table4.FieldByName('Rhgysid').AsString:=ls_supply_array[i,2];                Table4.FieldByName('rhgysname').AsString:=ls_supply_array[i,3];                break;              end;           end;           Table4.Post;           Table4.Next;      end;      Table4.Active:=false;      refreshquerys01;      refreshquerys02;      refreshinterface; end; function TForm1.mygyspassok:boolean; var   pass_ok:boolean; begin     pass_ok:=true;     Table4.Active:=false;     Table4.Active:=true;     Table4.First;     while not(Table4.Eof) do     begin          if ((Table4.fieldbyname('rhgysname').AsString='') or (Table4.fieldbyname('rhgysid').AsString='')) then begin            pass_ok:=false;            ShowMessage('尚有未对应的供应商'+#13+'请手工加以对应！');            break;          end;          Table4.Next;     end;     Table4.Active:=false;     Result:=pass_ok; end; function TForm1.mygoodspassok:boolean; var   pass_ok:boolean;   ls_where:string; begin     pass_ok:=true;     Table4.Active:=false;     Table4.Active:=true;     Table4.First;     ProgressBar1.Position:=0;     ProgressBar1.Visible:=true;     ProgressBar1.Max:=Table4.RecordCount*100;     ProgressBar1.Min:=0;     Label2.caption:='0/'+inttostr(Table4.RecordCount);     Self.Refresh;     Label2.Visible:=true;     while not(Table4.Eof) do     begin          ls_where:='where sudocid='''+Format('%10.10d',[Table4.Fieldbyname('incabillid').Asinteger])+'''';           query7.Active:=False;           Query7.SQL.Clear;           query7.SQL.Add('select * from kcm.bms_su_dtl_v');           query7.SQL.Add(ls_where);           query7.Active:=true;           ProgressBar1.Step:=100 div query7.RecordCount;           while not(query7.Eof) do           begin                query8.Active:=false;                Query8.ParamByName('incaid').AsInteger:=Query7.Fieldbyname('goodsid').AsInteger;                query8.Active:=true;                                                                              if (query8.IsEmpty) then begin                  form6:=tform6.Create(self);                  form6.incaoid:=Query7.Fieldbyname('goodsid').AsInteger;                  form6.rhid:='';                  form6.ShowModal;                  if Form6.Sel_Id='' then begin                    ShowMessage('用户中断了操作。。。');                    pass_ok:=false;                    break;                  end;                  form6.Free;                end;                query8.Active:=false;                ProgressBar1.StepIt;                query7.Next;           end;           query7.Active:=False;           if pass_ok=false then begin             Break;           end;          Label2.caption:=inttostr(Table4.Recno)+'/'+inttostr(Table4.RecordCount);          Self.Refresh;          Table4.Next;     end;     Table4.Active:=false;     ProgressBar1.Visible:=false;     Label2.Visible:=false;     Result:=pass_ok; end; procedure TForm1.Button5Click(Sender: TObject); var   pass_ok:boolean;   jiejieii,jiejiels_i1,jiejiels_i2,jiejiels_i3:integer;   jiejiels_string:string;   jiejiels_string02:string; begin     pass_ok:=true;     if pass_ok then begin       pass_ok:=mygyspassok;     end;     if pass_ok then begin       pass_ok:=mygoodspassok;       if pass_ok=false then begin         ShowMessage('尚有未对应的商品资料'+#13+'操作终止！');       end;     end;     if pass_ok then       begin            myCopytorh(DataModule4.Database1.Params,DataModule4.Database2.Params,            DataModule4.Database3.Params,ProgressBar1,Label2,current_usename);       end     else         begin         end; end; procedure TForm1.Button7Click(Sender: TObject); var   form7:Tform7;   jiejieii,jiejiels_i1,jiejiels_i2,jiejiels_i3:integer;   jiejiels_string:string;   jiejiels_string02:string; begin     form7:=tform7.Create(self);     form7.ShowModal;     form7.free; end; end.

Johnny_du · 2006-08-10

看看是否有未分配内存访问或指针错误之类的问题...

cqwty · 2006-08-10

你这么多代码无法告诉你错误是什么，一个办法就是设置调试断点，然后一步一步调试，看在什么位置出错了，然后仔细检查，要不你不锁定错误的范围，没有办法解决问题！

weiliu · 2006-08-10

有的程序，在IDE环境中直接执行就有问题，先编译好再执行就没有问题，特别是有某些第三方控件存在的情况下。

QLongHappy · 2006-08-10

添加“地址断点”来跟踪看看。 ps：你代码的风格真不好，控件名称都没有，看的晕吧

99boy · 2006-08-10

是啊，看得都晕

szczb · 2006-08-10

我也遇到这种情况,这可能要重新安装DELPHI,如果重新安装DELPHI仍不能解决问题,请重新安装操作系统即可

ball_cao · 2006-08-10

请看这个贴子 http://www.delphibbs.com/delphibbs/dispq.asp?lid=3466561

数据工人 · 2006-08-26

以前我用BDE也是经常出现这个错误提示，后来改为使用ADO，就没有了。 你不妨试一试ADO。

Delphi7运行一个程序，老是跳出如下错误，'access violation at 0x4be43541 : read of address 0x00000

xhzhengzheng

Unregistered / Unconfirmed

Johnny_du

Unregistered / Unconfirmed

cqwty

Unregistered / Unconfirmed

weiliu

Unregistered / Unconfirmed

QLongHappy

Unregistered / Unconfirmed

99boy

Unregistered / Unconfirmed

szczb

Unregistered / Unconfirmed

ball_cao

Unregistered / Unconfirmed

数据工人

Unregistered / Unconfirmed

Similar threads