- 博客(16)
- 资源 (1)
- 收藏
- 关注
转载 苹果Mac OS X系统快速显示/恢复隐藏文件的方法介绍
打开Automator(应用程序文件夹中)并选择服务。在资源库中选中“Run Shell Script”并将它拖到右边的工作区中。将以下代码复制到文本框中。 STATUS=`defaults read com.apple.finder AppleShowAllFiles` if [ $STATUS == YES ]; then defaults write com.apple.f
2013-06-19 18:35:54 903
原创 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 1349
转载 DELPHI IDftp
忘记在哪看的了,转来学习。 FTP是一个标准协议,它是在计算机和网络之间交换文件的最简单的方法。 FTP也是应用TCP/IP协议的应用协议标准。 FTP通常于将作者的文件上传至服务器,或从服务器上下传文件的一种普遍的使用方式作为用户,您可以用非常简单的DOS界面来使用FTP,也可以使用由第三方提供的软件(如FLASHFXP)来对服务器的数据进行删除,重命名等操作。 当然,使用这些
2013-03-23 11:47:37 5019
转载 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 703
原创 ‘\’和‘/’对ExtractFileDir的影响
window系统下文件夹路径中使用‘\’和'/'没有区别,但在使用ExtractFileDir提取含有'\'的'/'文件路径时有所不同 ExtractFileDir('F:\file1')结果为F:\ ExtractFileDir('F:/file1')结果为F: ExtractFileDir('F:\file1\file2')结果为F:\file1 ExtractFileDir(
2013-02-22 15:34:43 376
转载 gcc初学者命令
gcc -o "$1" "$2" -I/GNUstep/System/Library/Headers -fconstant-string-class=NSConstantString -L/GNUstep/System/Library/Libraries -lobjc -lgnustep-base 很简单的命令,但是因为某些大小写的问题,还真是折磨一个初学者,Mark下来~
2013-01-24 21:14:40 421
原创 PC安装Mac OS的坎坷经过
2013-1-17 这是撸主公司配的电脑,当然是前辈淘汰下来的。 先装了个VMware8.0,一番折腾之后发现,这货的Cpu居然不支持虚拟化。 好吧,上双系统。 安装参考:Win7下安装苹果MAC OS X Mountain Lion 双系统详细图文教程 照着说明一步步Next,重启之后木有苹果图标,百度一下换了个新版变色龙好使了。 继续安装,弹出个框框“Your comput
2013-01-17 21:36:50 2311 1
转载 查看键盘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 674
原创 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 428
原创 Firebird获取表字段及定义
IBExpert中SubString函数不可用,找不到原因,所以取不到精确的默认值 SELECT B.RDB$FIELD_POSITION+1 "序号" ,B.RDB$FIELD_NAME "英文名称" ,(CASE D.RDB$TYPE_NAME WHEN 'TEXT' THEN 'CHAR' || '(' || C.RDB$FIELD_LENGTH || ')
2012-09-15 15:25:07 2830
原创 TreeView添加节点刷新
移植同事的代码,其中有一个功能给TreeView添加节点,主节点添加后不显示,子节点就没有问题,原来是少了行代码。 TreeView.Items.Add(nil, 'NewItem'); TreeView.Refresh; TreeView第一次用,经验太少了,顺便记录下添加子节点的代码: procedure AddTreeNode(TreeView: TTreeView; const
2012-09-11 16:18:38 5539
转载 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 1428
原创 FireBird优化SQL语句
o.BillDate格式为YYYY-MM-DD hh:mm:ss:nnn, 要求根据日期分组查询。 主表数据量21000+,从表数据量28000+, 语句一执行时间略优于语句二 SQL语句一: select Extract(Year from o.BillDate) AYear , Extract(Month from o.BillDate) AMonth , Extract
2012-05-10 09:30:45 1106
转载 调试Android程序报错
错误信息: [2012-03-19 22:27:34 - sudoku] Re-installation failed due to different application signatures. [2012-03-19 22:27:34 - sudoku] You must perform a full uninstall of the application. WARNING: Thi
2012-03-19 23:14:58 377
原创 swing(1)
初次接触swing,建了个form,想设置启动时的位置在屏幕中间,获取form的宽度时始终是1,后来才想到,在initCompopents之后form才被建立出来,这时才能获取到form的宽度 int width=this.getWidth(); 反应有点慢呵. 本来没学多少,好久不用Java忘的精光了,获取宽度的时候总是想.WIDTH,悲剧. 不知道swing有没有像c#设置窗体位置那么
2012-02-24 22:51:19 295
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人