type
TFieldRec=record
Caption:string;
FieldName:string;
end;
TFieldsRec= array of TFieldRec;...
FFields: TFieldsRec;
...procedure a();
var
Edt:TFrmDetailJy;
begin
try
Edt:=FrmDetailJy.Create(self);
Edt.FFields:=FFields;
Edt.ShowModal;
//这里可以直接访问修改后的FFields吗?在Edt操作后的结果会不会得到???
finally
Edt.free;
end;
end;
TFieldRec=record
Caption:string;
FieldName:string;
end;
TFieldsRec= array of TFieldRec;...
FFields: TFieldsRec;
...procedure a();
var
Edt:TFrmDetailJy;
begin
try
Edt:=FrmDetailJy.Create(self);
Edt.FFields:=FFields;
Edt.ShowModal;
//这里可以直接访问修改后的FFields吗?在Edt操作后的结果会不会得到???
finally
Edt.free;
end;
end;
解决方案 »
- 三层系统 路径问题
- 200分问题,请帮助解决。谢谢
- 存储过程返回多个记录集问题
- 高分求一算法《关于优先的问题》在线 等 待
- 怎样创建txt文件,并把一些字符串写到txt文件?
- EmbeddedWB 和 webBrowser 关于 无法顺利 执行网页里 windows.open 命令
- DBGRID的打印问题
- 接收HTML电子邮件的问题
- 如何做到類似CSDN靠左邊那一個'論壇列表'的功能
- 有一个小程序(做实验报告时用),编译时无错误,运行不了,因为出现错误...
- ■●◆控件的paint,repaint,refresh,Update方法有什么不同吗?不同情况下应该如何调用?
- 调用存储过程出现超出当前范围
不过指出一个小问题 用try finally end异常的时候最好
Edt:=FrmDetailJy.Create(self);写在try之前