續http://delphi.ktop.com.tw/topic.php?TOPIC_ID=24869 對不起我把它給結案了,但是還是出現Tquery無法create問題,我也不知道為什麼 因為我昨天在家試真的可以,今天又不行,到底哪裡出問題,可請教一下. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,db,dbtables; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } function ShowF1(i_sqlstr,i_db,i_key:string):TDataSource; end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} function TForm1.ShowF1(i_sqlstr,i_db,i_key:string):TDataSource; var qry :TQuery; Ds :TDataSource; begin try if qry=nil then qry:=TQuery.Create(self ); --->根本就create qry ,以下就出錯了 qry.SQL.Clear ; qry.SQL.Add(i_sqlstr '''' i_key '%' ''''); qry.DatabaseName :=i_db ; qry.Open ; if Assigned(Ds)=FALSE then Ds :=TDatasource.Create(nil ); Ds.DataSet:=qry; Result:=Ds; finally qry.Free ; Ds.Free ; end; end; procedure TForm1.Button1Click(Sender: TObject); var i_str :string; form :TForm2; begin inherited; i_str:='select key1 代碼 ,key2 中文 from ac where key1 like '; form := TForm2.Create(Self); form.DBGrid1.DataSource :=ShowF1(i_str,'wdata','key1'); end; end. 發表人 - cyl 於 2003/01/13 14:29:28

好像是因為 finally qry.Free ; Ds.Free ; 這段程式碼在作怪,我他給mark掉,tquery就會create,可是為什麼呢??? 如果mark掉 ds和qry要在哪free???

function TForm1.ShowF1(i_sqlstr,i_db,i_key:string):TDataSource;
var qry :TQuery;
Ds :TDataSource;
begin    qry:=TQuery.Create(self );     if qry <> nil then
begin
  qry.SQL.Clear ;
  qry.SQL.Add(i_sqlstr + ''''+i_key+'%'+'''');
  qry.DatabaseName :=i_db ;
  qry.Open ;      Ds :=TDatasource.Create(nil );
  if Assigned(Ds) then
  begin
     Ds.DataSet:=qry;
     Result:=Ds;
  end
  else result:=nil;    else result:=nil;    end;

發表人 - cmf 於 2003/01/13 14:39:16

------
︿︿

引言: 好像是因為 finally qry.Free ; Ds.Free ; 這段程式碼在作怪,我他給mark掉,tquery就會create,可是為什麼呢??? 如果mark掉 ds和qry要在哪free???

procedure TForm1.Button1Click(Sender: TObject); var i_str :string; form :TForm2; begin inherited; form.DBGrid1.DataSource:=nil; i_str:='select key1 代碼 ,key2 中文 from ac where key1 like '; form := TForm2.Create(Self); form.DBGrid1.DataSource :=ShowF1(i_str,'wdata','key1'); end;

請問我的原始碼邏輯錯在哪??可以解釋給我知道,以後不再犯這個錯

引言: 請問我的原始碼邏輯錯在哪??可以解釋給我知道,以後不再犯這個錯

1. NIL 是空的意思 2. finally 是無論有沒有發生錯誤都會去執行

procedure TForm1.Button1Click(Sender: TObject); var i_str :string; form :TForm2; begin inherited;    form.DBGrid1.DataSource:=nil; i_str:='select key1 代碼 ,key2 中文 from ac where key1 like '; form := TForm2.Create(Self); form.DBGrid1.DataSource :=ShowF1(i_str,'wdata','key1'); end; 1.還沒create form就指定值不會有錯嗎?? 2.Ds和ary要在哪個時機free 發表人 - cyl 於 2003/01/13 14:51:01

引言: 還沒create form就指定值不會有錯嗎??

還沒create form 哪來的 Button1Click

引言:

引言: 請問我的原始碼邏輯錯在哪??可以解釋給我知道,以後不再犯這個錯

1. NIL 是空的意思 2. finally 是無論有沒有發生錯誤都會去執行

1.對啊那不就是最後把ds和qry釋放掉就好了 2.如果是Nil就去create不是就不create,那也沒錯 前一篇你也是這樣回答我用Nil,只不過我把finally mark解開 所以我還是不明白為什麼錯< >< >

引言:

引言: 還沒create form就指定值不會有錯嗎??

還沒create form 哪來的 Button1Click

是我太笨嗎??我的button明明去create另外一個form並不是本身這個form啊

function TForm1.ShowF1(i_sqlstr,i_db,i_key:string;ds TDataSource); begin ds.DataSet:=TQuery.Create(self ); ds.DataSet.SQL.Clear ; ds.DataSet.SQL.Add(i_sqlstr '''' i_key '%' ''''); ds.DataSet.DatabaseName :=i_db ; ds.DataSet.Open ; end; procedure TForm1.Button1Click(Sender: TObject); var i_str :string; form :TForm2; begin inherited; i_str:='select key1 代碼 ,key2 中文 from ac where key1 like '; form := TForm2.Create(Self); form.DBGrid1.DataSource:=TDatasource.Create(nil ); ShowF1(i_str,'wdata','key1',form.DBGrid1.DataSource); end;

------
︿︿

1.如果單存只想讓程式run這樣是沒問題,但是我還是想知道為什麼原來的code到底是哪出問題?? 2.依照Cmf的做法應該是把DS,qry宣告成private or public吧,然後在form2 close把ds ,qry 給free掉,但是其實我最終的目的是把它寫在dll裡,這樣的做法在dll裡要如何free ds ,qry ???

//如何free ds ,qry ?    你無需去 Free ds,qry 因為你已經 將 ds 指派到 form.DBGrid1.DataSource  當程示關畢時 自然會 釋放        

------
︿︿

引言: 1.如果單存只想讓程式run這樣是沒問題,但是我還是想知道為什麼原來的code到底是哪出問題?? 你有CREATE可是在FINALLY又給FREE了當然會錯 2.依照Cmf的做法應該是把DS,qry宣告成private or public吧,然後在form2 close把ds ,qry 給free掉,但是其實我最終的目的是把它寫在dll裡,這樣的做法在dll裡要如何free ds ,qry ??? 可以宣告在form1的private or public在form1的close時free掉

@@~~飛翔在天際的精靈~~@@

引言:

引言: 1.如果單存只想讓程式run這樣是沒問題,但是我還是想知道為什麼原來的code到底是哪出問題?? 你有CREATE可是在FINALLY又給FREE了當然會錯 2.依照Cmf的做法應該是把DS,qry宣告成private or public吧,然後在form2 close把ds ,qry 給free掉,但是其實我最終的目的是把它寫在dll裡,這樣的做法在dll裡要如何free ds ,qry ??? 可以宣告在form1的private or public在form1的close時free掉

@@~~飛翔在天際的精靈~~@@

版主我不懂ㄟ,create 後不是在finally都要free掉,我都已經用完ds,qry在為什麼finally不能free ex try form:=tform1.create(self); finally form.free; 所以我就照用阿... 是不是觀念錯誤了,可以說明白一點嗎??

function TForm1.ShowF1(i_sqlstr,i_db,i_key:string):TDataSource;
var qry :TQuery;
Ds :TDataSource;
begin
try
  if qry=nil then <---把這行拿掉
  qry:=TQuery.Create(self nil ); <---self 改成 nil
  qry.SQL.Clear ;
  qry.SQL.Add(i_sqlstr   '''' i_key '%' '''');
  qry.DatabaseName :=i_db ;
  qry.Open ;
  if Assigned(Ds)=FALSE then
     Ds :=TDatasource.Create(nil );
  Ds.DataSet:=qry;
  Result:=Ds;
finally
  qry.Free ;
  Ds.Free ;
end;
end;

就改紅色部分那兩行 其他程式不變 試試看應該可以 天行健 君子當自強不息~~@.@ 發表人 - T.J.B 於 2003/01/13 17:16:32

------
天行健
君子當自強不息~~@.@