G
gyq918
Unregistered / Unconfirmed
GUEST, unregistred user!
我在用d4时,设计一程序,其中insertfieldform是一个form,而mainform也是一个form,在insertfieldform中调用mainform的table1,编译时它告诉我'ftinteger'没有定义,请问是什么原因?
如果我在mainform的use中加入insertfieldform,在insertfieldform的use中加入mainform,编译也不能通过,属于循环调用,要用什么方法解决?
procedure Tinsertfieldform.Button1Click(Sender: TObject);
begin
if edit1.text<>'' then
begin
with mainform.table1.fielddefs do
begin
add(edit1.text+'1',ftinteger,0,false);
add(edit1.text+'2',ftinteger,0,false);
end;
end;
mainform.table1.open;
end;
end;
如果我在mainform的use中加入insertfieldform,在insertfieldform的use中加入mainform,编译也不能通过,属于循环调用,要用什么方法解决?
procedure Tinsertfieldform.Button1Click(Sender: TObject);
begin
if edit1.text<>'' then
begin
with mainform.table1.fielddefs do
begin
add(edit1.text+'1',ftinteger,0,false);
add(edit1.text+'2',ftinteger,0,false);
end;
end;
mainform.table1.open;
end;
end;