• 将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 ...

    技术文档423次阅读抢沙发
  • 第一步:删除分区: 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 ...

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

    乱七八糟627次阅读抢沙发
  • (一)、伪静态规则添加(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 ...

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

    技术文档885次阅读抢沙发
  • 提取所有连接到memo1中: procedure TForm1.Button1Click(Sender: TObject); var i :Integer; begin for i := 0 to WebBrowser1.OleObject.document.links.length - 1 do memo1.Lines.Add(WebBrowser1.OleObject.document.links.item(i).href); end; 提取网页标题: procedure TForm1.Button1Click(Send ...

    技术文档804次阅读2条评论
  • 用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 ...

    技术文档393次阅读抢沙发
  • 一:先在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 ...

    技术文档470次阅读抢沙发
  • 默认在webbrowser打开新窗口 会自动弹出来。 如何让他始终在webbrowser打开呢? 先在 Web1NewWindow2事件中加入: procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var PpDisp: IDispatch; var Cancel: WordBool); begin PpDisp := WebBrowser2.Application; end; 然后在Web2BeforeNavigate2事 ...

    技术文档656次阅读抢沙发