memo指定行后添加???

Oer 2004-12-06 04:01:05

如我Memo有：
12121
1212
3434
343
abc
343
354
45
我想在abc后面添加一些行？(用代码实现)
if 找到abc then
memo.lins.add('1'); //在acb下一行添加

...全文

89 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

victor_yang 2004-12-06

打赏
举报

回复

rootond800(为什么我是这么好的人???) 的方法是正解

win2000pega 2004-12-06

打赏
举报

回复

增加换行符号应该可以。#13就应该可以。

rootond800 2004-12-06

打赏
举报

回复

memo1.Lines.Insert(memo1.Lines.IndexOf('abc')+1,'your string');

Delphi将Stringgrid指定行添加到Memo控件中，选中StringGrid中的行，点击右下角的“添加”按钮，即可将选中的StringGrid行数据添加到下边的Memo控件中显示。部分源代码如下：　　procedure TForm1.FormCreate(Sender: TObject); 　　begin 　　 StringGrid1.Cells[0,0] := '商品编号'; 　　 StringGrid1.Cells[0,1] := 'cc10011'; 　　 StringGrid1.Cells[0,2] := 'cc10012'; 　　 StringGrid1.Cells[0,3] := 'cc10013'; 　　 StringGrid1.Cells[0,4] := 'cc10014'; 　　 StringGrid1.Cells[1,0] := '商品名称'; 　　 StringGrid1.Cells[1,1] := '苹果'; 　　 StringGrid1.Cells[1,2] := '香蕉'; 　　 StringGrid1.Cells[1,3] := '西红柿'; 　　 StringGrid1.Cells[1,4] := '西瓜'; 　　 StringGrid1.Cells[2,0] := '商品数量'; 　　 StringGrid1.Cells[2,1] := '200'; 　　 StringGrid1.Cells[2,2] := '150'; 　　 StringGrid1.Cells[2,3] := '300'; 　　 StringGrid1.Cells[2,4] := '130'; 　　 StringGrid1.Cells[3,0] := '商品金额'; 　　 StringGrid1.Cells[3,1] := '$5.00'; 　　 StringGrid1.Cells[3,2] := '$4.50'; 　　 StringGrid1.Cells[3,3] := '$1.50'; 　　 StringGrid1.Cells[3,4] := '$6.00'; 　　end; 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 i,col,row: Integer; 　　begin 　　 row := StringGrid1.Row; 　　 for col := 0 to StringGrid1.ColCount - 1 do 　　 Memo1.Lines.Add(StringGrid1.Cells[col,row]); 　　end;

Delphi Package Install 目的:为了方便广大delphi爱好者批量安装和卸载dpk控件取材:在Delphi Package Install 0.73的基础上作了修改制作而成使用的三方控件:JCL/VirtualTreeView /Richedit 测试环境:dephi 7 /Delphi XE10 操作系统:win7 X64 制作:cityboat 博客:http://city193.blog.163.com 关于更新:软件不定期更新,简单通用实用功能可到博客留言, 关于源码:目前暂无公布原码计划. ========================

铸造厂VTT表存储库此处记录了Foundry社区贡献的表，并将其合并到Foundry社区表模块中以方便使用。安装用法作为模块现在，您可以通过指定以下公共模块URL自动安装此模块： https://raw.githubusercontent.com/foundry-vtt-community/tables/master/module.json GM进入“世界设置”选项卡中的“管理模块”选项菜单，然后启用“ Foundry社区表”模块。此模块将所有社区表添加为称为FVTT社区表的纲要包。您可以打开这些包，右键单击并单击导入所需的表。不带模块的用法：将.json文件下载到您的计算机上在Foundry中创建一个新的可滚动表右键单击侧边栏中的表格，然后单击导入导入您的.json文件并庆祝常问问题为什么没有DnDBeyond的表格？这些表中的大多数是Coasts

mmoMonitor:Tmemo; mmoMonitor.Lines.ValueFromIndex[0]:=aInfo ; 1 procedure TMainForm.LogInfo(aInfo: string; IsShow: Boolean); 2 begin 3 ctsLog.Enter; 4 try 5 if memServerLog.Li...

Edit和MaskEdit组件都只能编辑单行文本，Delphi的Memo组件提供了多行文本的编辑功能。下面解释Memo组件常用的属性。属性说明　Lines这是Memo组件最常用，也是最有用的属性，它用来显示和保存Memo组件中的内容。　Scrollbar很多组件都有这个属性。用于设定组件有否滚动条。它有四个值：

5,388

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章