会员
周边
众包
新闻
博问
闪存
赞助商
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
无尘
记录学习中的点点滴滴!!!
博客园
首页
新随笔
联系
订阅
管理
2011年3月19日
文本简单操作
摘要: uses SysUtils //文本替换 var SourseList: TStringList; Sourse: TStrings; nA, nB, nC: Integer;begin Result := 0; SourseList := TStringList.Create(); Sourse := TStringList.Create(); SourseList.LoadFromFile('...
阅读全文
posted @ 2011-03-19 20:26 o无尘o
阅读(212)
评论(0)
推荐(0)
编辑