如何在form2里使用form1的变量呢？(50分)

my god.
在public中聲明的不是變量﹐而是類的屬性﹐不能同論。

To linger_1:
你最好﹐還是把兩個窗口相關的代碼張貼出來

要uses form1，而且在form2中调用要用
form1.sql

form1
type
pnodedata = ^Tnodedata;
Tnodedata = record
PARENTID: INTEGER;
id: string;
end;
。。。。。
procedure TMDIflfg.Button1Click(Sender: TObject);
var
node: ttreenode;
nodedata : Pnodedata;
begin
if(tree.selected<>nil) then
node :=tree.selected
else
exit;
if node.Level =2 then
begin
addflfg.show;
addflfg.edit1.setfocus;
addflfg.groupbox1.Caption := '添加'+ node.parent.Text + '下子节点';
end;

form2：
sql := 'insert into flfg (lb1_xh, lb1, lb2_xh, lb2, xh, rdyj, wfxw, cfyj, cfzljfd) values ('''+
pnodedata(node.Parent.data)^.id +''',''' + node.parent.Text + ''','''+
edit1.text +''',''' + memo1.lines.text + ''','''+ '' +''',''' +
'' + ''', '''+ '' + ''', '''+ '' +''','''+
'' +''')';
我就是找不到pnodedata(node.Parent.data)^.id 和node.parent.Text 这两个值

[blue]Uses Unit2;
在with Form1 do
begin
程序在這里寫
end;
你最好像hpretty那樣寫,用函數或過程傳遞過來這樣更好.[/blue]

FORM1:
type
pnodedata = ^Tnodedata;
Tnodedata = record
PARENTID: INTEGER;
id: string;
end;

var
node: ttreenode;
nodedata : Pnodedata;
。。。。。
procedure TMDIflfg.Button1Click(Sender: TObject);
begin
if(tree.selected<>nil) then
node :=tree.selected
else
exit;
if node.Level =2 then
begin
addflfg.show;
addflfg.edit1.setfocus;
addflfg.groupbox1.Caption := '添加'+ node.parent.Text + '下子节点';
end;

FORM2：
....
implementation
uses
form1
....
proce......
sql := 'insert into flfg (lb1_xh, lb1, lb2_xh, lb2, xh, rdyj, wfxw, cfyj, cfzljfd) values ('''+
pnodedata(node.Parent.data)^.id +''',''' + node.parent.Text + ''','''+
edit1.text +''',''' + memo1.lines.text + ''','''+ '' +''',''' +
'' + ''', '''+ '' + ''', '''+ '' +''','''+
'' +''')';
我就是找不到pnodedata(node.Parent.data)^.id 和node.parent.Text 这两个值

没看出来哪里改动过

怎么向数据库里面插入空的数据呢？是这样么？
'''+ '' +'''

我给你的回信你没看到吗？
加空值要在数据表设计试图选中可能出现空值的字段，在下面选择允许空字符串．
sql := 'insert into table (field1,field2) values ( 'dfasfd',#39#39)';
搞定

多人接受答案了。