delphi
AmberChun
你只有赢过,才好意思说你不在乎
展开
-
delphi 中 virtual、reintroduce、override关键词的使用
虚拟方法和动态方法不同于静态方法,它们可以在其后裔类中被覆盖(overridden),即只有一个方法所在类的祖先类对应的方法是virtual或dynamic的,这个当前类的方法才可以用overide覆盖。当一个覆盖方法被调用时,方法调用中使用的类或对象的实际(运行时)类型决定了哪一个实现是有效的,而非变量声明的类型决定。virtual方法是可以有实现的部分的,也可是在后裔类中override。转载 2014-09-09 09:59:47 · 1902 阅读 · 0 评论 -
invaild floating point operation
今天在处理程序的时候发现一个bug,单击原创 2014-10-30 11:16:44 · 611 阅读 · 0 评论 -
文本编辑器的查询功能
用delphi写文本编辑器时使用的查找功能代码段原创 2014-09-03 14:21:12 · 455 阅读 · 0 评论 -
delphi中如何使得listbox里为txt后缀的行改变颜色(使listbox根据行内容改变颜色)
想让listbox中后缀名为txt的行变成红色,其他默认黑色,代码如下:原创 2014-09-13 16:50:31 · 522 阅读 · 0 评论 -
delphi 如何打开外部程序或文件
WinAPI: ShellExecute - 打开外部程序或文件ShellExecute( hWnd: HWND; {指定父窗口句柄} Operation: PChar; {指定动作, 譬如: open、print} FileName: PChar; {指定要打开的文件或程序} Parameters: PChar; {给要打开的程序指定参数; 如果打转载 2014-09-13 16:53:07 · 573 阅读 · 0 评论 -
如何让控件中内容跟随滚轴移动
procedure TForm1.ApplicationEvents1Message(原创 2014-09-12 16:59:51 · 298 阅读 · 0 评论 -
delphi中如何让焦点一直在listbox的最后一行
lst1.Items.Add(Path+FSearchrec.Name); lst1.ItemIndex:=lst1.Items.Count-1;原创 2014-09-13 15:03:27 · 1513 阅读 · 0 评论 -
鼠标按住后拖动StringGrid
var flag: Boolean; x1,y1: Integer;{初始化测试数据}procedure TForm1.FormCreate(Sender: TObject);var i,j: Integer;begin StringGrid1.ColCount := 100; StringGrid1.RowCount := 100; StringGrid1.Al转载 2014-09-04 09:30:25 · 947 阅读 · 0 评论 -
ParamStr(0)是什么?
今天看了一下网上的各种关于ParamStr(0)原创 2014-09-05 17:26:27 · 1708 阅读 · 0 评论 -
(Delphi中处理字符串)截取中文字符和英文字符,去除所有数字
function TFmxsdd_dzbh.getTheUnit(str:string):string;var n,i :integer; ch: byte; s:string;begin s:=''; n:=length(str); i:=1; while i<=n do begin if not (str[i] in ['0'..'9']) th原创 2014-10-18 11:15:13 · 2935 阅读 · 0 评论