Testudo

摘要： TOpenDialog procedure TForm1.Button1Click(Sender: TObject);beginwith TOpenDialog.Create(nil) dobeginFilter:='Text files (*.txt)|*.txt)|All Files(*.*)|*.*';if Execute then... 阅读全文

摘要： TSaveDialog 预览 实现过程 动态创建和使用保存文件对话框 procedure TForm1.Button1Click(Sender: TObject);beginwith TSaveDialog.Create(nil) dobeginFilter:='Text files (*.txt)|*.txt)|All... 阅读全文

摘要： Delphi中一些常用的组合键值CTRL+A: #1CTRL+B: #2CTRL+C: #3CTRL+D: #4CTRL+E: #5CTRL+F: #6CTRL+G: #7CTRL+H: #8CTRL+I: #9CTRL+J: #10CTRL+K: #11CTRL+L: #12CR: #13 //回车M ?CTRL+N: #14CTRL+O: #1... 阅读全文

摘要： TColorDialog 预览 实现过程 动态创建和使用颜色对话框function ShowColorDlg:TColor;begin with TColorDialog.Create(nil) do begin Options :=[cdFullOpen,cdPreventFullOpen,cdShowHelp,cdSolidColor,... 阅读全文

摘要： Delphi TFindDialog TReplaceDialog对话框的使用下载地址1: http://download.csdn.net/detail/teststudio/6408383下面这段代码已经完全的解决Memo的查找对话框 和 替换对话框功能 的所有功能查找对话框部件 查找对话框部件为应用程序提供查找对话框，用户可使用查找对话框在文本文件中查找字符串。 可用Execult方法显示查找对话框，如图4.8。应用程序要查找的字符放到FindText属性中。Options 属性可决定查找对话框中有哪些选项。例如，用户可选择是否显示匹配检查框。Options的常用选项如表4.2所示。.. 阅读全文

摘要： //增加项或列(字段) ListView1.Clear; ListView1.Columns.Clear; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Items[0].Caption:='id'; ListView1.Columns.Items[1... 阅读全文

摘要： 《地球帝国3》(Empire Earth III)秘籍 说明: 1. 启动游戏 2. 在游戏中按回车键启动控制台 3. 输入下列代码: icheat 启动密技 idontcheat 解除密技 loot 所有资源＋10000 taxes 资源减少100 punish 被选定的单位减少20点生命 con 阅读全文

摘要： 五笔难拆字字根表 阅读全文

摘要： Delphi Format中的换行符号是什么vars,s1,s2,s3:string;begins:='Hello';s1:=' World';s2:=format('%s%s%s',[s,#13#10,s1]);s3:=Format('%s'#13#10'%s',[s,s1]);ShowMessage(s2);ShowMessage(s3);end;#13#10两边都是有单引号的#13#10在这里不能用\n无效ShowMessage( Format('%s,%s,%s',['hello&# 阅读全文

摘要： 源码地址 ：http://450640526.ys168.com/编辑器是WEBBWOSER制作的 你的Internet Explorer的版本至少要是8.0的否则用不了还有很多BUG 很多功能没有完成Delphi版本:Delphi XE4 update1来自为知笔记(Wiz) 阅读全文

摘要： uses StrUtils;c:\program files\embarcadero\rad studio\11.0\SOURCE\RTL\SYS\System.SysUtils.pasfunctionTrim(constS:string):string;functionTrimLeft(constS:string):string;functionTrimRight(const... 阅读全文

摘要： //往另外1个ListView中添加当前选中的项目 function AddSelItems(listview1:TListView;ListView2:TListView):Boolean;vars: string;I: Integer;beginResult:=False;if listview1.Selected =nil thenexit;for ... 阅读全文

摘要： 默认的重命名是这样的MoveFile(PChar('C:\1.txt'),PChar('C:\ABC.txt'));现在修改成这样的__RenameFile('C:\1.txt','abc');//重命名文件//重命名文件 或文件夹function __RenameFile(OldName:string;Title:string):Boolean;varNewName:string;beginNe... 阅读全文

摘要： //判断字符串是否包含以下字符functionIsIllegalChar(Text:string):Boolean;constillegalChar:setofChar=['\','/',':','?','"','','|'];vari:Integer;beginfori:=1toLength(Text)dobegin... 阅读全文

摘要： //转换 TColor 到 HTML 颜色串 function ColorToHtml(color:TColor):string; var RgbColor : TColorRef; begin RgbColor := ColorToRGB(color); Result:=Format('#%.2x 阅读全文