引言: 小弟不斷的嘗試 但都試不出如何寫 要寫一個沒有form的unit 讓其它有form的unit來共用它 可否有人寫個簡單範例 教教小弟

//////////////////////////////////////////////
// Main Form
// Unit1.pas
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}
uses
  Unit2 ;    procedure TForm1.Button1Click(Sender: TObject);
begin
  MsgBox(handle,'Test','info',MB_OK) ;
end;    end.    ////////////////////////////
// Unit2.pas
unit Unit2;    interface
uses
  Windows ;    function MsgBox(h:THandle;sMsg,sCap:string;dwMode:DWORD):DWORD ;    implementation    function MsgBox(h:THandle;sMsg,sCap:string;dwMode:DWORD):DWORD ;
begin
  Result:=MessageBox(h,pchar(sMsg),pchar(sCap),dwMode) ;
end ;    end.     

引言: 小弟的程式是用一個form去call一個unit 完成select 資料表格的動作 然後顯示在dbgrid中 unit frm_testdbm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB; type Ttest_sqlm = class(TForm) ADOConnection1: TADOConnection; DataSource1: TDataSource; DBGrid1: TDBGrid; btn_test: TButton; test_dbmodule: TButton; Site_Data: TADOQuery; procedure test_dbmoduleClick(Sender: TObject); procedure btn_testClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var test_sqlm: Ttest_sqlm; implementation {$R *.dfm} uses udbupdate; procedure Ttest_sqlm.test_dbmoduleClick(Sender: TObject); begin close; end; procedure Ttest_sqlm.btn_testClick(Sender: TObject); var s1:string; s2:string; begin s2:='test_sqlm.Site_Data'; s1:='Site_Data'; getmessage(s1,s2); end; end. ================================================================ unit Udbupdate; interface uses Classes, Windows, SysUtils, Forms, Messages,Dialogs; procedure getmessage(var s,s1:string); implementation uses frm_testdbm; { TLogFile } procedure getmessage(var s,s1:string); var qry:string; begin qry:=s1; with qry do ------>發生錯誤 begin close; sql.clear; sql.add('select * from '' s '''); open; end; // showmessage(s); end; end. 錯誤訊息如下: [Error] Udbupdate.pas(33): Record, object or class type required 不知這個錯誤如何解決

引言: 錯誤還是一樣 沒有變

Vunit Udbupdate;    interface    uses
Classes, Windows, SysUtils, Forms, Messages,Dialogs;    procedure getmessage(var s,s1:string);
implementation    uses
frm_testdbm;    { TLogFile }    procedure getmessage(var s,s1:string);
var
qry:string;  // <- 這是字串型態
begin
qry:=s1;
with qry do ------>發生錯誤, 當然會錯, 你把 String 當 TQuery 用
begin
close;
sql.clear;
sql.add('select * from '' s ''');
open;
end;
// showmessage(s);
end;    end.