摘要：二分查找可以解决（预排序数组的查找）问题：只要数组中包含T（即要查找的值），那么通过不断缩小包含T的范围，最终就可以找到它。一开始，范围覆盖整个数组。将数组的中间项与T进行比较，可以排除一半元素，范围缩小一半。就这样反复比较，反复缩小范围，最终就会在数组中找到T，或者确定原以为T所在的范围实际为空。对于包含N个元素的表，整个查找过程大约要经过log(2)N次比较。相信大家都知道二分查找算法 , 通过重复的比较将数组元素缩小到最小范围,然后找到要查找的值 . 并且最大化优化了CPU时间 , 是一个很不错的算法.测试结果 : 我用三个算法 进行了测试 , 但是从输出的结果来看 , 二分查找非常有效 阅读全文
[转]delphi之多线程编程(一)
2011-04-13 08:18 by HYrz的菜园子, 2755 阅读, 0 推荐, 收藏, 编辑
摘要：本文的内容取自网络，并重新加以整理，在此留存仅仅是方便自己学习和查阅。所有代码均亲自测试 delphi7下测试有效。图片均为自己制作。多线程应该是编程工作者的基础技能, 但这个基础我从来没学过，所以仅仅是看上去会一些，明白了2+2的时候，其实我还不知道1+1。开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解.先试试这个:procedureTForm1.Button1Click(Sender:TObject);vari:Integer;beginfori:=0to500000dobeginCanvas.TextOut(10,10,IntToStr(i));end;e.. 阅读全文
Paramstr的用法
2011-02-22 17:37 by HYrz的菜园子, 570 阅读, 0 推荐, 收藏, 编辑
摘要：原型 function paramstr(i:index):string 对于任何application来说,paramstr(0)都默认代表的是应用程序的绝对路径(d:\delphi\test.exe,则取出d:\delphi\)。那么有paramstr(0),就肯定有paramstr(1)，paramstr(2)...了。它们的值又是什么了？我试了下取出的是空值，又不能赋值。 delphi帮助中说Returns a specified parameter from the command-line.从命令行中返回一个特别的参数。折腾了半天才搞清楚，就是在exe文件后面可以跟参数，param 阅读全文
[delphi函数]FileGetAttr、FileSetAttr 读取与设置文件属性
2009-12-04 22:19 by HYrz的菜园子, 1671 阅读, 0 推荐, 收藏, 编辑
摘要：代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--//读取与设置文件属性FileGetAttr;FileSetAttrvarFileName:string;Attr:Integer;//属性值是一个整数beginFileName:='c:\temp\... 阅读全文
[delphi函数]FileCreate 建立新文件
2009-12-04 22:18 by HYrz的菜园子, 834 阅读, 0 推荐, 收藏, 编辑
摘要：//建立新文件 FileCreatevarFileName: string;i: Integer;beginFileName := 'c:\temp\test.dat';i := FileCreate(FileName);if i>0 then ShowMessage('新文件的句柄是: ' + IntToStr(i))else ShowMessage('创建失败!');end;======... 阅读全文
[delphi函数]RenameFile 文件改名
2009-12-04 22:17 by HYrz的菜园子, 1102 阅读, 0 推荐, 收藏, 编辑
摘要：//文件改名 RenameFilevarOldName,NewName: string;beginOldName := 'c:\temp\Old.txt';NewName := 'c:\temp\New.txt'; if RenameFile(OldName,NewName) then ShowMessage('改名成功!');//也可以:SetCurrentDir('c:\temp');OldN... 阅读全文
[delphi函数]FileAge 获取文件的创建时间
2009-12-04 22:16 by HYrz的菜园子, 1148 阅读, 0 推荐, 收藏, 编辑
摘要：function FileAge(const FileName: string): Integer;{$IFDEF MSWINDOWS}varHandle: THandle;FindData: TWin32FindData;LocalFileTime: TFileTime;beginHandle := FindFirstFile(PChar(FileName), FindData);if Hand... 阅读全文
文件处理
2009-12-03 18:36 by HYrz的菜园子, 434 阅读, 0 推荐, 收藏, 编辑
摘要：一、文件的概念 1、概念和特点： Pascal所谈及的文件，称之为内部文件。内部文件的特点是文件的实体（实际文件）也是存储在外存储器上，但在使用时必须在程序内部以一定的语句与实际文件联系起来，建立一一对应的关系，用内部文件的逻辑名对实际文件进行操作。 Pascal中的文件主要用于存放大量的数据。如：成绩管理，原始数据很多，使用文件先将其存入磁盘，通过程序读出文件中的数据再进行处理，比不使用文件要来得方便、有效。 Pascal中，文件定义为同一类型的元素组成的顺序集合。文件中的各个元素按一定顺序排列，可以从头至尾访问每一个元素。从定义上看，文件与数组相似，但它们之间有着明显不同的特征，主要表现. 阅读全文
将文字作为程序的窗体
2009-12-03 18:34 by HYrz的菜园子, 208 阅读, 0 推荐, 收藏, 编辑
摘要：var rgn:HRGN;beginBeginPath(Canvas.Handle);//绘制的开始路径 SetBkMode(Canvas.Handle,TRANSPARENT); Canvas.Font.Name:=’宋体’;//设定字体 Canvas.Font.Size:=50;//字的大小 Canvas.Font.Color:=clBlue;//文字的颜色 Canva... 阅读全文