Delphi

Delphi

delphi 大小写字符串转换

62 0

delphi 大小写字符串转换UpperCase 返回转换大写字符串拷贝 Function UpperCase(const S : string) : string LowerCase 转换成小写

Delphi

DELPHI二分查找算法(预排序数组的查找)

71 0

二分查找可以解决(预排序数组的查找)问题:只要数组中包含T(即要查找的值),那么通过不断缩小包含T的范围,最终就可以找到它。一开始,范围覆盖整个数组。将数组的中间项与T进行比较,可以排除一半元素,范围缩小一半。就这样反复比较,反复缩小范围,最终就会在数组中找到T,或者确定原以为T所在的范围实际为空。对于包含N个元素的表,整个查找过程大约要经过log(2)N次比较。相信大家都知道二分查找算法 , 通过重复的比较将数组元素缩小到最小范围,然后找到要查找的值 . 并且最大化优化了CPU时间 , 是一个很不错的

Delphi

Delphi中DBgrid控件数据库点击某列按序排列

43 0

Delphi中DBgrid控件数据库点击某列按序排列procedure Tmainform.DBGrid2TitleClick(Column: TColumn);var i : integer;begin for i:= 1 to DBGrid2.Columns.Count do begin //恢复所有标题字体为默认 DBGrid2.Columns[i-1].Title.Font.Color := clWindowText; DBGrid2.Columns[i-1].Title.

Delphi

Delphi实例之一个较复杂的记事本的实现

70 0

这里只放主要代码:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ImgList, ComCtrls, ToolWin, ExtCtrls, StdCtrls, Menus, ExtActns, StdActns, ActnList;type TForm1 = class(TForm) ImageList1: TImage

Delphi

Delphi DBGrid支持鼠标滚轮浏览数据

91 0

DBGrid一直都不支持鼠标中键滚动,有时候想要去除水平滚动条,让我们自己动手制作一个自定义的DbGrid组件吧! 代码如下:unit AddMsgDBGrid;interfaceuses windows, SysUtils, Messages, Classes, Controls, Grids, DBGrids;type TAddMsgDBGrid = class(TDBGrid) protected //添加新的'鼠标滚轮消息' procedure WMMOUSEWHEE

Delphi

Delphi RichEdit Memo1支持中文搜索、向上查找、区分大小写

57 0

RichEdit组件本身为文本搜索提供了FindText()方法,但FindText()方法有一个最大的缺点是不支持中文查找,如果在要搜索的字符串中含有'中文',哪是无论如何也搜不到的,英文则没有任何问题。并且它只提供了向下查找,不只持向上查找。具体原因你看一下VCL源码就知道了。 如果没有一个好的中文搜索,哪么查找,替换功能就无法实现(事实也确实如此)。只支持英文搜索有什么用呢?大家平时主要看的用的都是中文。如果不实现中文搜索,感觉RichEdit就像