存取到不正確、不合法的memory

為什麼會有這個問題,要如何解決呢?????

你好： 原因很多喔，需要看你的程式碼才能給你幫助。 有可能宣告了指標或物件卻沒有取得記憶體或件購物件， 有可能指標或物件以釋放，你卻依然去存取該指標或物件。 所以把你的 Source post 上來吧 

引言: 你好： 原因很多喔，需要看你的程式碼才能給你幫助。 有可能宣告了指標或物件卻沒有取得記憶體或件購物件， 有可能指標或物件以釋放，你卻依然去存取該指標或物件。 所以把你的 Source post 上來吧 麻煩你了,下列是我的>< face="Verdana, Arial, Helvetica">

你好： 下面的指令你只需要下 adoquery1.Open 既可。你試試看唄    

procedure TForm7.Button1Click(Sender: TObject);
begin
        if radiobutton1.Checked=true then begin
                adoquery1.Close;
                adoquery1.SQL.Clear;
                adoquery1.SQL.Add(''select * from mem_person where 姓名=:name or 身分證字號=:id'');
                adoquery1.Parameters.ParamByName(''name'').value:=edit1.Text;
                adoquery1.Parameters.ParamByName(''id'').Value:=edit2.Text;
                //adoquery1.ExecSQL;
                adoquery1.Open;
        end else begin
                adoquery1.Close;
                adoquery1.SQL.Clear;
                adoquery1.SQL.Add(''select * from mem_company where 公司名稱=:name or 統一編號=:id'');
                adoquery1.Parameters.ParamByName(''name'').value:=edit1.Text;
                adoquery1.Parameters.ParamByName(''id'').Value:=edit2.Text;
                //adoquery1.ExecSQL;
                adoquery1.Open;
        end;
end;

    procedure TForm7.Button2Click(Sender: TObject);
begin
form7.Close; // 最大可能出你那個錯誤訊息的地方
end;    procedure TForm7.Button1Click(Sender: TObject);
begin
if radiobutton1.Checked=true then  //一般會員查詢
  begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select * from mem_person where 姓名=:name or 身分證字號=:id');
    adoquery1.Parameters.ParamByName('name').value:=edit1.Text;
    adoquery1.Parameters.ParamByName('id').Value:=edit2.Text;
    adoquery1.ExecSQL; //與你那錯誤無關但是是錯且不需要的
    adoquery1.Open;
  end
else
  begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select * from mem_company where 公司名稱=:name or 統一編號=:id');
    adoquery1.Parameters.ParamByName('name').value:=edit1.Text;
    adoquery1.Parameters.ParamByName('id').Value:=edit2.Text;
    adoquery1.ExecSQL; //與你那錯誤無關但是是錯且不需要的
    adoquery1.Open;
  end
end;    end.

若你 Create TForm7 時沒用 Form7 這個變數，例如用 with TForm7.Create(Self) do 那 Form7 這個變數是空的所以你執行 Form7.Close 時會出錯。改成 Close; 或 Self.Close; 便好。 若不是這行出錯請指出那一行出錯。

adoquery1.ExecSQL;要用在那,為什麼不用呢??謝謝你的指導

你好： 這個問題在 Help 中有說明呀，你要學著看 Help 找答案，這樣才是學習該有的態度，雖說有人幫助比較快。 查詢命令( >

我是上面及這個,兩支程式,作切換是會產生的問題??? ps:我以改了上面錯誤的地方 unit Unit5; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Mask, DBCtrls, DB, ADODB,unit4, Grids, DBGrids,math,Buttons,unit6; type TForm5 = class(TForm) Pagcor1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; date1: TDateTimePicker; date2: TDateTimePicker; DBText2: TDBText; DBText3: TDBText; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; DBEdit3: TDBEdit; query1: TADOQuery; DataSource1: TDataSource; DBText1: TDBText; query2: TADOQuery; lab12: TLabel; lab13: TLabel; Edit1: TEdit; BitBtn1: TBitBtn; ADOQuery1: TADOQuery; Edit2: TEdit; Button1: TButton; combox: TComboBox; btndel: TBitBtn; CheckBox1: TCheckBox; BitBtn2: TBitBtn; Button2: TButton; ADOConnection1: TADOConnection; procedure FormCreate(Sender: TObject); procedure dbcomb1Change(Sender: TObject); procedure date2Change(Sender: TObject); procedure DBEdit3Enter(Sender: TObject); procedure DBEdit3Exit(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure comboxChange(Sender: TObject); procedure btndelClick(Sender: TObject); procedure Button1Click(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure Edit2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form5: TForm5; implementation {$R *.dfm} procedure TForm5.FormCreate(Sender: TObject); var a:integer; begin query1.SQL.clear; query1.SQL.Add('select * from 車輛明細檔 where 是否出租=true'); query1.Open; query1.First; while not query1.Eof do begin //抓車輛牌照的欄位，存入combbox combox.Items.Add(query1.fieldByName('車輛牌照').AsString); query1.Next; end; query1.close; a:=ceil(date2.Date-date1.Date); if a<=0 then begin showmessage('請重新輸入日期'); end else lab12.Caption:=floattostr(a);//自動計算日期 date1.Date:=date(); //預設為當天日期 date2.Date:=date(); end; procedure TForm5.dbcomb1Change(Sender: TObject); begin query2.Close; query2.SQL.Clear; query2.SQL.Add('select * from 車輛明細檔 where 車輛牌照=:car_no'); query2.Parameters.ParamByName('car_no').Value:=combox.Text; query2.Open; dbtext1.Caption:=query2.Fieldbyname('廠牌').Value; dbtext2.Caption:=query2.fieldbyname('車型').Value; dbtext3.Caption:=query2.fieldbyname('cc').Value; lab13.Caption:=query2.Fieldbyname('每日租金').AsString; end; procedure TForm5.date2Change(Sender: TObject); var a:integer; begin a:=ceil(date2.Date-date1.Date); if a<=0 then begin showmessage('請重新輸入日期'); end else lab12.Caption:=floattostr(a);//自動計算日期 end; procedure TForm5.DBEdit3Enter(Sender: TObject); var days,money,discount:integer; begin days:=strtoint(lab12.caption); money:=strtoint(lab13.caption); discount:=strtoint(edit1.text); dbedit3.Text:=inttostr(days*money-discount); end; procedure TForm5.DBEdit3Exit(Sender: TObject); var days,money,discount:integer; begin discount:=0; days:=strtoint(lab12.caption); money:=strtoint(lab13.caption); discount:=strtoint(edit1.text); dbedit3.Text:=inttostr(days*money-discount); end; procedure TForm5.BitBtn1Click(Sender: TObject); begin if checkbox1.Checked=false then //一般會員新增及公司會員新增 begin adoquery1.append; adoquery1.FieldByName('訂購人身份證').AsString:=edit2.Text; adoquery1.fieldbyname('汽車牌照').AsString:=combox.Text; adoquery1.fieldbyname('訂單時間').AsDateTime:=NOW; adoquery1.fieldbyname('租金').AsString:=DBEDIT3.Text; adoquery1.fieldbyname('歸還日').AsDateTime:=DATE2.Date; adoquery1.fieldbyname('出租日').AsDateTime:=DATE1.Date; adoquery1.Post; query2.Edit; query2.FieldByName('是否出租').AsBoolean:=false; query2.Post; showmessage('新增完成'); query1.Close; //重新載入可租的車輛 query1.SQL.clear; query1.SQL.Add('select * from 車輛明細檔 where 是否出租=true'); query1.Open; query1.First; combox.Clear; while not query1.Eof do begin //抓車輛牌照的欄位，存入combbox combox.Items.Add(query1.fieldByName('車輛牌照').AsString); query1.Next; end; query1.close; //重新載入可租的車輛 end else begin //公司會員新增 adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add('insert into member_order('); adoquery1.SQL.add('訂購人身份證,汽車牌照,訂單時間,租金,歸還日,出租日,co_or_per)'); adoquery1.SQL.add(' values(:id,:car_id,:order_time,:totmoney,:backday,:eranday,:co_or_per)'); adoquery1.Parameters.ParamByName('id').Value:=edit2.Text; adoquery1.Parameters.ParamByName('car_id').Value:=combox.Text; adoquery1.Parameters.ParamByName('order_time').Value:=now; adoquery1.Parameters.ParamByName('totmoney').Value:=dbedit3.Text; adoquery1.Parameters.ParamByName('backday').DataType:=ftdatetime;//設定日期格式 adoquery1.Parameters.ParamByName('eranday').DataType:=ftdate; adoquery1.Parameters.ParamByName('backday').value:=date2.Date; adoquery1.Parameters.ParamByName('eranday').value:=date1.Date; adoquery1.Parameters.ParamByName('co_or_per').Value:=checkbox1.Checked; adoquery1.ExecSQL; query2.Edit; query2.FieldByName('是否出租').AsBoolean:=false; query2.Post; showmessage('新增完成'); query1.Close; //重新載入可租的車輛 query1.SQL.clear; query1.SQL.Add('select * from 車輛明細檔 where 是否出租=true'); query1.Open; query1.First; combox.Clear; while not query1.Eof do begin //抓車輛牌照的欄位，存入combbox combox.Items.Add(query1.fieldByName('車輛牌照').AsString); query1.Next; end; query1.close; //重新載入可租的車輛 end end; procedure TForm5.comboxChange(Sender: TObject); begin query2.Close; query2.SQL.Clear; query2.SQL.Add('select * from 車輛明細檔 where 車輛牌照=:car_no'); query2.Parameters.ParamByName('car_no').Value:=combox.Text; query2.Open; dbtext1.Caption:=query2.Fieldbyname('廠牌').Value; dbtext2.Caption:=query2.fieldbyname('車型').Value; dbtext3.Caption:=query2.fieldbyname('cc').Value; lab13.Caption:=query2.Fieldbyname('每日租金').AsString; dbedit3.Enabled:=true; end; procedure TForm5.btndelClick(Sender: TObject); begin Application.CreateForm(Tfordel, fordel); try fordel.ShowModal; finally fordel.Free; end; end; procedure TForm5.Button1Click(Sender: TObject); begin close; end; procedure TForm5.CheckBox1Click(Sender: TObject); begin if checkbox1.Checked=true then begin label1.Caption:='公司統一編號'; end else label1.Caption:='身份証字號'; end; procedure TForm5.Edit2Click(Sender: TObject); begin query1.Close; //重新載入可租的車輛 query1.SQL.clear; query1.SQL.Add('select * from 車輛明細檔 where 是否出租=true'); query1.Open; query1.First; combox.Clear; while not query1.Eof do begin //抓車輛牌照的欄位，存入combbox combox.Items.Add(query1.fieldByName('車輛牌照').AsString); query1.Next; end; query1.close; //重新載入可租的車輛 combox.Enabled:=true; end; end. 發表人 - miller680523 於 2003/07/03 13:59:45

你好： 問題是同樣的呀，存取違規。 但你的程式碼看不出問題耶，程式碼只有這些嗎？要不要將你的專案 Post 上來看看。

引言: 你好： 這個問題在 Help 中有說明呀，你要學著看 Help 找答案，這樣才是學習該有的態度，雖說有人幫助比較快。 查詢命令( > 謝謝你的建議 < face="Verdana, Arial, Helvetica">

引言: 我試的結果是這支程式及最上面那一支程式,作切換時會產生的問題??? ps:我以改了上面錯誤的地方 unit Unit5; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Mask, DBCtrls, DB, ADODB,unit4, Grids, DBGrids,math,Buttons,unit6; type TForm5 = class(TForm) Pagcor1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; date1: TDateTimePicker; date2: TDateTimePicker; DBText2: TDBText; DBText3: TDBText; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; DBEdit3: TDBEdit; query1: TADOQuery; DataSource1: TDataSource; DBText1: TDBText; query2: TADOQuery; lab12: TLabel; lab13: TLabel; Edit1: TEdit; BitBtn1: TBitBtn; ADOQuery1: TADOQuery; Edit2: TEdit; Button1: TButton; combox: TComboBox; btndel: TBitBtn; CheckBox1: TCheckBox; BitBtn2: TBitBtn; Button2: TButton; ADOConnection1: TADOConnection; procedure FormCreate(Sender: TObject); procedure dbcomb1Change(Sender: TObject); procedure date2Change(Sender: TObject); procedure DBEdit3Enter(Sender: TObject); procedure DBEdit3Exit(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure comboxChange(Sender: TObject); procedure btndelClick(Sender: TObject); procedure Button1Click(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure Edit2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form5: TForm5; implementation {$R *.dfm} procedure TForm5.FormCreate(Sender: TObject); var a:integer; begin query1.SQL.clear; query1.SQL.Add('select * from 車輛明細檔 where 是否出租=true'); query1.Open; query1.First; while not query1.Eof do begin //抓車輛牌照的欄位，存入combbox combox.Items.Add(query1.fieldByName('車輛牌照').AsString); query1.Next; end; query1.close; a:=ceil(date2.Date-date1.Date); if a<=0 then begin showmessage('請重新輸入日期'); end else lab12.Caption:=floattostr(a);//自動計算日期 date1.Date:=date(); //預設為當天日期 date2.Date:=date(); end; procedure TForm5.dbcomb1Change(Sender: TObject); begin query2.Close; query2.SQL.Clear; query2.SQL.Add('select * from 車輛明細檔 where 車輛牌照=:car_no'); query2.Parameters.ParamByName('car_no').Value:=combox.Text; query2.Open; dbtext1.Caption:=query2.Fieldbyname('廠牌').Value; dbtext2.Caption:=query2.fieldbyname('車型').Value; dbtext3.Caption:=query2.fieldbyname('cc').Value; lab13.Caption:=query2.Fieldbyname('每日租金').AsString; end; procedure TForm5.date2Change(Sender: TObject); var a:integer; begin a:=ceil(date2.Date-date1.Date); if a<=0 then begin showmessage('請重新輸入日期'); end else lab12.Caption:=floattostr(a);//自動計算日期 end; procedure TForm5.DBEdit3Enter(Sender: TObject); var days,money,discount:integer; begin days:=strtoint(lab12.caption); money:=strtoint(lab13.caption); discount:=strtoint(edit1.text); dbedit3.Text:=inttostr(days*money-discount); end; procedure TForm5.DBEdit3Exit(Sender: TObject); var days,money,discount:integer; begin discount:=0; days:=strtoint(lab12.caption); money:=strtoint(lab13.caption); discount:=strtoint(edit1.text); dbedit3.Text:=inttostr(days*money-discount); end; procedure TForm5.BitBtn1Click(Sender: TObject); begin if checkbox1.Checked=false then //一般會員新增及公司會員新增 begin adoquery1.append; adoquery1.FieldByName('訂購人身份證').AsString:=edit2.Text; adoquery1.fieldbyname('汽車牌照').AsString:=combox.Text; adoquery1.fieldbyname('訂單時間').AsDateTime:=NOW; adoquery1.fieldbyname('租金').AsString:=DBEDIT3.Text; adoquery1.fieldbyname('歸還日').AsDateTime:=DATE2.Date; adoquery1.fieldbyname('出租日').AsDateTime:=DATE1.Date; adoquery1.Post; query2.Edit; query2.FieldByName('是否出租').AsBoolean:=false; query2.Post; showmessage('新增完成'); query1.Close; //重新載入可租的車輛 query1.SQL.clear; query1.SQL.Add('select * from 車輛明細檔 where 是否出租=true'); query1.Open; query1.First; combox.Clear; while not query1.Eof do begin //抓車輛牌照的欄位，存入combbox combox.Items.Add(query1.fieldByName('車輛牌照').AsString); query1.Next; end; query1.close; //重新載入可租的車輛 end else begin //公司會員新增 adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add('insert into member_order('); adoquery1.SQL.add('訂購人身份證,汽車牌照,訂單時間,租金,歸還日,出租日,co_or_per)'); adoquery1.SQL.add(' values(:id,:car_id,:order_time,:totmoney,:backday,:eranday,:co_or_per)'); adoquery1.Parameters.ParamByName('id').Value:=edit2.Text; adoquery1.Parameters.ParamByName('car_id').Value:=combox.Text; adoquery1.Parameters.ParamByName('order_time').Value:=now; adoquery1.Parameters.ParamByName('totmoney').Value:=dbedit3.Text; adoquery1.Parameters.ParamByName('backday').DataType:=ftdatetime;//設定日期格式 adoquery1.Parameters.ParamByName('eranday').DataType:=ftdate; adoquery1.Parameters.ParamByName('backday').value:=date2.Date; adoquery1.Parameters.ParamByName('eranday').value:=date1.Date; adoquery1.Parameters.ParamByName('co_or_per').Value:=checkbox1.Checked; adoquery1.ExecSQL; query2.Edit; query2.FieldByName('是否出租').AsBoolean:=false; query2.Post; showmessage('新增完成'); query1.Close; //重新載入可租的車輛 query1.SQL.clear; query1.SQL.Add('select * from 車輛明細檔 where 是否出租=true'); query1.Open; query1.First; combox.Clear; while not query1.Eof do begin //抓車輛牌照的欄位，存入combbox combox.Items.Add(query1.fieldByName('車輛牌照').AsString); query1.Next; end; query1.close; //重新載入可租的車輛 end end; procedure TForm5.comboxChange(Sender: TObject); begin query2.Close; query2.SQL.Clear; query2.SQL.Add('select * from 車輛明細檔 where 車輛牌照=:car_no'); query2.Parameters.ParamByName('car_no').Value:=combox.Text; query2.Open; dbtext1.Caption:=query2.Fieldbyname('廠牌').Value; dbtext2.Caption:=query2.fieldbyname('車型').Value; dbtext3.Caption:=query2.fieldbyname('cc').Value; lab13.Caption:=query2.Fieldbyname('每日租金').AsString; dbedit3.Enabled:=true; end; procedure TForm5.btndelClick(Sender: TObject); begin Application.CreateForm(Tfordel, fordel); try fordel.ShowModal; finally fordel.Free; end; end; procedure TForm5.Button1Click(Sender: TObject); begin close; end; procedure TForm5.CheckBox1Click(Sender: TObject); begin if checkbox1.Checked=true then begin label1.Caption:='公司統一編號'; end else label1.Caption:='身份証字號'; end; procedure TForm5.Edit2Click(Sender: TObject); begin query1.Close; //重新載入可租的車輛 query1.SQL.clear; query1.SQL.Add('select * from 車輛明細檔 where 是否出租=true'); query1.Open; query1.First; combox.Clear; while not query1.Eof do begin //抓車輛牌照的欄位，存入combbox combox.Items.Add(query1.fieldByName('車輛牌照').AsString); query1.Next; end; query1.close; //重新載入可租的車輛 combox.Enabled:=true; end; end. 發表人 - miller680523 於 2003/07/03 13:59:45

你好： 程式這麼長貼在這不好喔，請你把專案壓縮後上傳到 會員求助程式檔案上傳區 。完整的專案幫你 Debug 比較方便。

我以將程式，放上求助區了，麻煩各位幫我看看，謝謝

你好： 哈哈 你犯了 > < class="code"> procedure TForm1.N18Click(Sender: TObject); begin Application.CreateForm(TForm7,Form7); try form7.Show; finally form7.Free; //form5.Free; end; end;

你好： 對不起你還有一點有問題，當你使用 Show 命令時，程式碼會繼續執行下去，所以 Form7 會馬上被釋放。 如果你要維持這種架構，你需要使用 ShowModal 命令，否則你要使用別的方式釋放 Form7 喔

引言: 你好： 對不起你還有一點有問題，當你使用 Show 命令時，程式碼會繼續執行下去，所以 Form7 會馬上被釋放。 如果你要維持這種架構，你需要使用 ShowModal 命令，否則你要使用別的方式釋放 Form7 喔 版主:我不懂(當你使用 >< face="Verdana, Arial, Helvetica">

你好： 有兩種方式使 Form show 出來，如下： 1. show 單純將該 Form 移到最前面，程式碼繼續執行。    2. ShowModal  將該 Form 移到最前面，並等待該 Form 傳回一個整數值。 一般都會使用TModalResult 來判別，當然你也可以自訂傳回的意義。    解釋的不清楚，請詳見 Help