我的錯誤訊息
Access violation at address 03000002. Read of address 03000002.
我有爬了一下文，內文大都說是沒有該要定義的沒有定義才會出現錯誤~
可是我就是找不到阿~
可否請各位大大幫我看一下是什麼沒有定義到好嗎!感謝感謝~~~
我是用DELPHI 5寫的
程式一直都停在我用紅色的程式片斷那一行出現上述錯誤訊息
麻煩請知道的大大幫我解答~~謝謝~~~我已經看到二眼昏花了說~~拜託拜託~
(最前面宣告的部份)............
.........
....
private
{ Private declarations }
public
{ Public declarations }
end;
var
Fm_A_AF778: TFm_A_AF778;
SExcel: Variant;
Function AWP_type(c76,nsn:string):string;forward;
..................
.............
.......
...(呼叫Function )
procedure TFm_A_AF778.MyDBgrid2CellClick(Column: TColumn);
var
s7:integer;
c76,nsn:string;
begin
screen.Cursor := crHourGlass;
s7:=0;
if Query2.FieldByName('TIC_IN').asstring<>'' then
begin
if Query2.FieldByName('TIC_IN').asstring='C76' then
begin
if Query2.FieldByName('TIC_OUT').asstring<>'' then
s7:=0
else
s7:=1;
end
else
if Query2.FieldByName('TIC_OUT').asstring<>'' then
s7:=0;
end;
Edit1.Text:=inttostr(s7);
Edit3.Text:=Query2.FieldByName('AF778_NO_YM').asstring '-' Query2.FieldByName('AF778_NO_P').asstring Query2.FieldByName('AF778_NO_N').asstring;
c76:=Query2.FieldByName('C76_NO').asstring;
nsn:=Query2.FieldByName('M_U_P_NSN').asstring;
Edit2.Text:=AWP_type(c76,nsn);
..................
.............
.......
Function AWP_type(c76,nsn:string):string;
var
Query3: TQuery;
bsr_i,bsr_g,gbsr:integer;
sunday,tsunday:string;
begin
..................
.............
.......

------
第一次的DELPHI

我解決囉!^Q^
找到問題點了~
最主要在Function內加入了以下這二行

Query3 := TQuery.Create(nil) ;
Query3.DatabaseName :='dbdepot';
就可以正常呼叫Function 並且使用Query囉!
留下這訊息給跟我一樣是初學者的人吧!^^

也謝謝各位前輩幫我看了文章
謝謝

------
第一次的DELPHI