我也是业余，不过下面代码还可以工作
procedure TForm1.Button1Click(Sender: TObject);
var
i, ll: integer;
s, s1: string;
begin
ll := 0;
for i := 0 to memo1.lines.count – 1 do
begin
s := memo1.Lines[i];
if pos(‘T’, s) > 0 then
begin
if ll > 0 then
begin
memo2.Lines.Add(s1 + ‘下行数为： ‘ + inttostr(ll));
end;
ll := 0;
s1 := s;
continue;
end;
if pos(‘M30’, s) > 0 then
begin
memo2.Lines.Add(s1 + ‘下行数为： ‘ + inttostr(ll));
break;
end;
inc(ll);
end;
end;
你给的示例的结果是：
T01 下行数为： 4
T02 下行数为： 6
T03 下行数为： 8
后缀名文件xmind是什么软件
XMind 的文件扩展名为.XMAP 。.XMAP
本质上是由XML+ZIP的结构组成，是一种开放的文件格式，用户可以通过XMind开放的API为其开发插件或进行二次开发。
XMind 与Office的横向集成
XMind 能与用户其它的Office软件紧密集成，保护用户的投资。“XMind 文件”可以被导出成Word / PowerPoint / PDF /
TXT /图片格式等，也可以在导出时选择仅导出图片，还是仅文字，还是图文混排，所得到的成果直接可以纳入用户的资料库。
也可用 Word/Powerpoint/Acrobat等工具直接打开编辑，这样用户就可以和没有安装XMIND的其它用户分享思维图。此外，XMind
还支持导入用户的MindManager和FreeMind文件，使得大量用户在从这两个软件转向XMind时，不会丢失之前绘制的思维导图。
XMind 是一款非常实用的商业思维导图软件，应用全球最先进的Eclipse RCP 软件架构，全力打造易用、高效的可视化思维软件，强调软件的可扩展、跨平台、稳定性和性能，致力于使用先进的软件技术帮助用户真正意义上提高生产率
全新的用户工作区
XMind 8有一个新的外观和视觉效果。编辑时，只需点击一下鼠标，即可快速打开，关闭和切换视图。这样的改进将很大程度的提高您的工作效率，并极大地改善您的思维映射体验。
新的幻灯片演示
XMind 8新增了基于幻灯片的演示slide-by-slidepresentation， 使用XMind基于幻灯片的演示文稿，创建、展示和共享演示文稿变得比以往任何时候都更容易。只需选择目标主题,然后单击加号按钮，将自动创建一个新的幻灯片。 思维映射与呈现就这样完美的集成在XMind中。
外加汉化下载地址
xmind 8 win 版
xmind 8mac 版
本文来自网络转载，仅供学习参考！不代表趣典故立场，本站不拥有所有权，不承担相关法律责任。如发现本站有抄袭侵权/违规的内容，请发送邮件至@qq.com进行反馈，一经查实，本站将立刻删除。
