输入一段文字(1000字)到FOMR2中

ninevch 2008-12-13 10:41:13
我现在有 Form1和FORM2 两个窗体,
FORM1中有很多EDIT 然后向EDIT中输入数字,
FORM1中还有一个BUTTON按钮,
按下BUTTON按钮,FORM1中的数据开始运算(数学运算),
然后把
输出到 FORM2的MEMO 中,(MEMO中要输入大概1000字)
FORM1中EDIT里的数据 和运算结果要替换里面的数据·

比如:(红色部分要替换成FORM1中edit.text和计算结果)

一、风荷载计算
标高为35.0m处风荷载计算
(1). 风荷载标准值计算:
W0:基本风压
W0=0.40 kN/m2
βgz: 35.0m高处阵风系数(按C类区计算)
βgz=0.85×[1+350.108×(Z/10)-0.22]=1.797
μz: 35.0m高处风压高度变化系数(按C类区计算): (GB50009-2001)
μz=0.616×(Z/10)0.44
=0.616×(35.0/10)0.44=1.069
μs:风荷载体型系数
μs=-2.00
Wk=βgz×μz×μs×W0 (GB50009-2001)
=1.797×1.069×2.0×0.400
=1.537 kN/m2
(2). 风荷载设计值:
W: 风荷载设计值(kN/m2)
γw: 风荷载作用效应的分项系数:1.4
按《建筑结构荷载规范》GB50009-2001 3.2.5 规定采用
W=γw×Wk=1.4×1.537=2.152kN/m2

希望大大们给出代码··分不多 就30吧····
...全文
71 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
ninevch 2008-12-22
  • 打赏
  • 举报
回复
日啊·
无人问津啊·结贴去了·
tjg5202 2008-12-15
  • 打赏
  • 举报
回复
不过字串就比较长了。。。。。。。也可以用2楼的办法
tjg5202 2008-12-15
  • 打赏
  • 举报
回复
format就可以实现了。。。。。。
ninevch 2008-12-15
  • 打赏
  • 举报
回复
给我代码·
啊·
各位大大·
2楼 · 暂时分不能给你··请原谅啊·
长沙三毛 2008-12-14
  • 打赏
  • 举报
回复
在form2中usesUnit1(.pas),并把计算结果设置为public变量,就可以在form2中应用了
ninevch 2008-12-14
  • 打赏
  • 举报
回复
大大·
给我代码啊··
麻烦把代码些出来··
我急着用········虽然只有30分·
大家别嫌少啊·
火龙岛主 2008-12-13
  • 打赏
  • 举报
回复
红色部分用%8.2f或%8.3f替换
然后使用format函数就可以了。

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧