通过资源修改器去改运行程序的资源_资源编辑为什么不影响程序运行-优快云博客

本文讨论了如何在Delphi软件中通过Resscope修改TRzMemo组件的默认文本，包括如何在运行期间给Text属性赋值以实现换行效果，并提供了具体的代码示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

我不是学delphi的，请直接指示。

有一个小软件是用delphi写的，我用resscope来修改TRzMemo的默认值。

          object edtJunkA: TRzMemo
            Left = 0
            Top = 24
            Width = 537
            Height = 135
            TabOrder = 0
            FrameVisible = True
    Text = 'xxx'   －－－－－－－－－－－－去掉这个软件可以正常运行，但没有默认值
          end

请问如何给TRzMemo加上默认值。

我是想把：
100 200 300 400 500 600 700 800 900
011 211 311 411 511 611 711 811 911
022 122 322 422 522 622 722 822 922
033 133 233 433 533 633 733 833 933
044 144 244 344 544 644 744 844 944
055 155 255 355 455 655 755 855 955
066 166 266 366 466 566 766 866 966
077 177 277 377 477 577 677 877 977
088 188 288 388 488 588 688 788 988
099 199 299 399 499 599 699 799 899

加上去，如果有换行的格式最好。
谢谢。

对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理

回复次数：10

shandiantianying shandiantianying 等级：	#1 得分：0 回复于： 2013-04-18 09:55:03 不太明换你的意思， Rzmemo加文本 .lines.add('要加的文本');里面加的啊
	优快云投诉事项说明对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理

bluewjzhhr 看小雪等级：	#2 得分：0 回复于： 2013-04-18 10:28:11 朋友，是这样的，这是个exe文件，我没有源代码的。只能用破解的方式修改些东西。但不知道Rzmemo有怎样的属性可以写大段的文字。
	2014年4月微软MVP当选名单揭晓！对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理

bluewjzhhr 看小雪等级：	#3 得分：0 回复于： 2013-04-18 11:35:20 object edtBaozhi: TRzEdit Left = 64 Top = 290 Width = 280 Height = 22 FrameVisible = True Text = '000 111 222 333 444 555 666 777 888 999' end 像这个是一个文本框，Text可以设置默认值，但Rzmemo就不知道怎样设置默认值了。
	【社区之星】孔德芳：如何提高Java Web性能？对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理

bluewjzhhr 看小雪等级：	#4 得分：0 回复于： 2013-04-20 09:59:44 大牛们都那里去了？？？？？
	对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理

xsl510079027 xsl510079027 等级：	#5 得分：0 回复于： 2013-04-20 15:52:42 你试下在换行的地方加上 #13#10 在运行期给 Text赋值这样换行是可行的
	对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理

xsl510079027 xsl510079027 等级：	#6 得分：0 回复于： 2013-04-20 15:54:47 注意写成这种形式 Text= ‘011 211 311 411 511 611 711 811 911’+#13#10+ ‘022 122 322 422 522 622 722 822 922’+#13#10+ ‘033 133 233 433 533 633 733 833 933’
	对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理

hongss

等级：

#7 得分：40 回复于： 2013-04-20 23:35:54

把

1	`Text =` `'xxx'`

变成

 
             Lines
             .
             Strings = (
            
             '100 200 300 400 500 600 700 800 900'
            
             '011 211 311 411 511 611 711 811 911'
            
             '022 122 322 422 522 622 722 822 922'
            
             '033 133 233 433 533 633 733 833 933'
            
             '044 144 244 344 544 644 744 844 944'
            
             '055 155 255 355 455 655 755 855 955'
            
             '066 166 266 366 466 566 766 866 966'
            
             '077 177 277 377 477 577 677 877 977'
            
             '088 188 288 388 488 588 688 788 988'
            
             '099 199 299 399 499 599 699 799 899'
             )

对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理

bluewjzhhr 看小雪等级：	#8 得分：0 回复于： 2013-04-21 09:06:22 引用 7 楼 hongss 的回复: 把 Delphi/Pascal code?1Text = 'xxx' 变成 Delphi/Pascal code?1234567891011 Lines.Strings = ( '100 200 300 400 500 600 700 800 900' '011 211 311 411 511 611 711 811 911' …… 太感谢你了，兄弟。
	对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理

bluewjzhhr 看小雪等级：	#9 得分：0 回复于： 2013-04-21 09:36:41 @hongss 可不可以变成readonly，加οnclick=copy行不？？？？？
	对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理