捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  粤ICP备10103342号-1 DELPHI盒子 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 盒子检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论:TextChange 记事本 (与Windows记事本相似)
ps_tong 69316 2013/11/28 9:00:40
全部替换还是有问题,当前光标在最后不能执行全部替换。
hong9906 28101 2007/2/15 8:17:58
现在的这个记事本功能很强了
个性背景(图)\字体\搜索功能\日志等花哨的功能
附加的超级替换(替换多个关键字后的内容)\指定文件夹文件替换\拖放打开文件\关联文件等等实用的功能
由于给电信的朋友做的,商业用途,有意的可以私下交流,不发表公开代码
谢谢大家的支持
gencheng 28089 2007/2/14 13:47:46
    不错,把里面的代码抽出来可以做一个新的richedit!我去试看行不行。
hong9906 25696 2006/8/28 10:18:36
//关于
procedure TMainForm.M_AboutClick(Sender: TObject);
begin
  ShellAbout(self.Handle,
     pChar('文本替换软件 '+GetFileVersion(ExtractFilePath(Application.Exename)+'\TextChange.exe')),
     pChar('作者:陈  宏    E-Mail:hong9906@163.com'), HICON(nil));
end;  

也可以这样写
//关于
procedure TMainForm.M_AboutClick(Sender: TObject);
begin
  ShellAbout(self.Handle,
     pChar('文本替换软件 '+GetFileVersion(Application.Exename)),
     pChar('作者:陈  宏    E-Mail:hong9906@163.com'), HICON(nil));
end;  

ExtractFilePath()我只是写出来给新人们知道是取程序目录的而已
hong9906 25695 2006/8/28 10:17:27
自己说说:
   哈哈,规范不能对所有人而言,只是给大家一个见意,看见新人们写的代码
头就痛,不是我不想帮他们改程序,是他们的改程序太浪费时间了,还不如多帮点
其它代码写得规范一点的,大家说对不对?
james_ 25408 2006/8/12 9:29:49
的确不算很规范。。。呵呵
不过算OK啦
rainstorey 25401 2006/8/11 15:25:13
代码也不规范并且风格也不好
chinasf 25357 2006/8/10 8:49:53
果然是一个笔记本!!
kinneng 25351 2006/8/10 2:10:55
厉害,厉害,虽然跟Windows记事本相似,但这是我见过最规范的记事本。
第一页 上一页 下一页 最后页 有 9 条纪录 共1页 1 - 9
 用户名:
 密 码:
自动登陆(30天有效)
 
  DELPHI盒子版权所有 技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号-1 更新RSS列表