Delphi
superfireware
这个作者很懒,什么都没留下…
展开
-
WebBrowser直接写入内容
var StrStream: TStringStream; SetNoteStr: string; begin SetNoteStr :=''; StrStream := TStringStream.Create(SetNoteStr); WebBrowser1.Navigate('about:blank'); try StrStream.Position := 0转载 2012-09-08 09:18:19 · 1418 阅读 · 0 评论 -
查看键盘ASC码的方法
网上看到查看键盘ASC码的方法: 新建一个窗体,设置Keypreview属性为True,然后在OnKeyDown中写代码: procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin Showmessage('按键的ASC码是:'+); end;不过发现显示不全转载 2012-09-26 17:26:32 · 662 阅读 · 0 评论 -
TreeView添加节点刷新
移植同事的代码,其中有一个功能给TreeView添加节点,主节点添加后不显示,子节点就没有问题,原来是少了行代码。 TreeView.Items.Add(nil, 'NewItem'); TreeView.Refresh; TreeView第一次用,经验太少了,顺便记录下添加子节点的代码: procedure AddTreeNode(TreeView: TTreeView; const原创 2012-09-11 16:18:38 · 5507 阅读 · 0 评论 -
StringReplace应用
公司的平台不支持Delphi自带的ExtractString,自己瞎捣鼓了一个。 const s1 = '4;1;3'; procedure ExtractString(const str: String); var sl: TStrings; i: Integer; begin str:=StringReplace(str, ';', #13, [rfRe原创 2012-09-19 14:55:21 · 418 阅读 · 0 评论 -
‘\’和‘/’对ExtractFileDir的影响
window系统下文件夹路径中使用‘\’和'/'没有区别,但在使用ExtractFileDir提取含有'\'的'/'文件路径时有所不同 ExtractFileDir('F:\file1')结果为F:\ ExtractFileDir('F:/file1')结果为F: ExtractFileDir('F:\file1\file2')结果为F:\file1 ExtractFileDir(原创 2013-02-22 15:34:43 · 366 阅读 · 0 评论 -
Delphi中Messagedlg用法
本文转自http://www.cnblogs.com/jxsoft/archive/2011/03/09/1978150.html if MessageDlg('Welcome to my Delphi application. Exit now?', mtConfirmation, [mbYes, mbNo], 0) = mrYes t转载 2013-03-19 15:04:40 · 693 阅读 · 0 评论 -
DELPHI IDftp
忘记在哪看的了,转来学习。 FTP是一个标准协议,它是在计算机和网络之间交换文件的最简单的方法。 FTP也是应用TCP/IP协议的应用协议标准。 FTP通常于将作者的文件上传至服务器,或从服务器上下传文件的一种普遍的使用方式作为用户,您可以用非常简单的DOS界面来使用FTP,也可以使用由第三方提供的软件(如FLASHFXP)来对服务器的数据进行删除,重命名等操作。 当然,使用这些转载 2013-03-23 11:47:37 · 4965 阅读 · 0 评论 -
Delphi CGI程序输出的网页内容中文乱码
用AnsiToUtf8这个函数就OK了,相关源码如下: function Utf8Encode(const WS: WideString): UTF8String; var L: Integer; Temp: UTF8String; begin Result := ''; if WS = '' then Exit; SetLength(Temp, Length(WS) * 3原创 2013-05-24 14:25:28 · 1335 阅读 · 0 评论