• delphi 文本内容重复行删除

    将memo中重复行的数据删除，只保留一行相同数据！ procedure RemoveDuplicates(const stringList : TStringList) ; var buffer: TStringList; cnt: Integer; begin stringList.Sort; buffer := TStringList.Create; try buffer.Sorted := True; buffer.Duplicates := dupIgnore; bu ...

    技术文档610次阅读抢沙发
    Read more

  • linux 新硬盘分区、格式化、挂载

    第一步：删除分区： fdisk /dev/sdc →进入到新添加的硬盘中 he number of cylinders for this disk is set to 10402. There is nothing wrong with that, but this is larger than 1024, and could in certain setups cause problems with: 1) software that runs at boot time (e.g., old versions of LILO) 2) bo ...

    技术文档505次阅读抢沙发
    Read more

  • MyEnTunnel ssh代理（IE）

    下载并解压完毕后到解压目录中双击myentunnel.exe启动MyEnTunnel，并切换到”设置”标签。接着在SSH服务器、用户名和密码处填 写对应的用户名和密码，并选中”启动后就链接”、”掉线后自动连接”、”启用动态SOCKS”和”详细日志”，设置完毕后点击保存按钮并点击”连接”按钮 开始连接（图1）。建议勾选启用压缩，这样可以加快传 ...

    乱七八糟868次阅读抢沙发
    Read more

  • discuz x3.2标签伪静态教程

    （一）、伪静态规则添加(nginx) rewrite ^([^\.]*)/tag.html$ $1/misc.php?mod=tag last; rewrite ^([^\.]*)/tag-([0-9]+)\.html$ $1/misc.php?mod=tag&id=$2 last; （二）、修改帖子内标签链接 template/default(模板目录)/forum/viewthread_node_body.htm 查找： <a title="$var[1]" href ...

    技术文档935次阅读抢沙发
    Read more

  • Discuz 3.2设置用户组免回复可见详细教程

    如果你开启了特别用户组，例如：Discuz 如何开启用户组购买。 而你又想对他进行特殊设置：VIP组免回复查看内容；那这个教程就很适合你。不妨看一下如何实现吧！ 教程并不复杂，请耐心查看。 第一步：执行升级数据库 升级数据库可以用PhpMyAdmin，或者在后台 – 站长 – 数据库 – 升级等其他第三方数据 ...

    技术文档1,058次阅读抢沙发
    Read more

  • delphi 延迟执行程序代码

    用sleep来延迟执行，结果程序假死！~ 下面这段代码彻底解决假死的问题。 procedure TForm1.delay(msecs:integer); var Tick: DWord; Event: THandle; begin Event := CreateEvent(nil, False, False, nil); try Tick := GetTickCount + DWord(msecs); while (msecs > 0) and (MsgWaitForMu ...

    技术文档574次阅读抢沙发
    Read more

  • delphi WebBrowser 网页源码

    一：先在uses添加 mshtml 并在事件中添加变量 uses mshtml var ms: TMemoryStream; Doc: IHtmlDocument2; 二：这样就可以显示完整的源码,并且是完全一样的源码 tag:=0; Web1.Navigate(memo3.Lines.Strings[strtoint(edit11.text)]); while(tag=0) do Application.ProcessMessages; Applicatio ...

    技术文档696次阅读抢沙发
    Read more

  • Delphi WebBrowser当前窗口打开新网页

    默认在webbrowser打开新窗口 会自动弹出来。 如何让他始终在webbrowser打开呢？ 先在 Web1NewWindow2事件中加入： procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var PpDisp: IDispatch; var Cancel: WordBool); begin PpDisp := WebBrowser2.Application; end; 然后在Web2BeforeNavigate2事 ...

    技术文档882次阅读抢沙发
    Read more