- 博客(3)
- 资源 (4)
- 收藏
- 关注
原创 ADirectoryListing.DirFormat := doUnix;ADirectorylisting.ListFormat:=flfdos;
<br />procedure TForm1.IdFTPServer1ListDirectory(ASender: TIdFTPServerContext;<br /> const APath: string; ADirectoryListing: TIdFTPListOutput; const ACmd,<br /> ASwitches: string);<br />var<br /> LFTPItem :TIdFTPListItem;<br /> SR : TSearchRe
2010-12-21 00:00:00 490
原创 TRECT的灵活使用
<br />TRECT的灵活使用 收藏 ----Delphi为用户提供了一个方便的绘图环境,即某些控件的CANVAS属性(画布)。用户可以把某些控件的表面作为一张画布,在上面绘制各种图形或显示图像,但在CANVAS的使用过程中少不了一个特殊对象,那就是矩形RECT,灵活使用它会完成很多特殊的功能,为Delphi编制的Windows程序增加活力。 RECT的特点 ----RECT既是一个特殊的数据结构,又是一个函数,它的作用就是定义一个矩形区域对象,而作为函数使用时它可以用两个属性(Tpiont型)指明区域范
2010-12-08 01:48:00 405
原创 Delphi 创建目录及写日志文件、写INI文件
<br />/_AppPath全局变量<br />_AppPath :=ExtractFilePath(ParamStr(0));<br /> <br />1、定义类型<br />var<br /> F: TextFile;<br /> LogFile: string;<br /> txt :string;<br /> <br />2、代码<br /> //创建目录<br /> if not directoryexists(_AppPath + 'Error/')then<br
2010-12-07 23:30:00 692
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人