自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(15)
  • 收藏
  • 关注

原创 177858941888172554

http://www.hao123.com/?tn=94718427_hao_pg

2015-04-14 16:04:14 288

原创 使用游标时,加上只读只进选项

使用游标时,加上只读只进选项declare c cursor for    这样的形式,那么这种游标要慢于下面这种方式。         declare c cursor local static read_only forward_only for…     所以,在游标只读只进的情况下,加上上面代

2014-11-22 16:07:19 1201

转载 sp_addextendedproperty

sp_addextendedproperty将新扩展属性添加到数据库对象中。Transact-SQL 语法约定语法 sp_addextendedproperty    [ @name = ] { 'property_name' }    [ , [ @value = ] { 'value' }         [

2014-11-19 09:00:40 674

原创 invaild floating point operation

今天在处理程序的时候发现一个bug,单击

2014-10-30 11:16:44 623

原创 (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 2999

转载 delphi 如何打开外部程序或文件

WinAPI: ShellExecute - 打开外部程序或文件ShellExecute(  hWnd: HWND;        {指定父窗口句柄}  Operation: PChar;  {指定动作, 譬如: open、print}  FileName: PChar;   {指定要打开的文件或程序}  Parameters: PChar; {给要打开的程序指定参数; 如果打

2014-09-13 16:53:07 598

原创 delphi中如何使得listbox里为txt后缀的行改变颜色(使listbox根据行内容改变颜色)

想让listbox中后缀名为txt的行变成红色,其他默认黑色,代码如下:

2014-09-13 16:50:31 545

原创 delphi中如何让焦点一直在listbox的最后一行

lst1.Items.Add(Path+FSearchrec.Name); lst1.ItemIndex:=lst1.Items.Count-1;

2014-09-13 15:03:27 1529

原创 如何让控件中内容跟随滚轴移动

procedure TForm1.ApplicationEvents1Message(

2014-09-12 16:59:51 311

原创 表值函数和标值函数使用脚本范例

select * from authors--多语句表值函数use pubsgocreate function fuc_authors()returns @table_author_temp table( au_id smallint, ai_lname varchar(40))asbegin insert into @table_author_tem

2014-09-11 11:05:25 373

原创 ‘select...(select...)... from’ 和‘select...from...inner join... ’的区别

今天在看开发文档的时候发现下面一个形式的

2014-09-09 10:50:06 798

转载 delphi 中 virtual、reintroduce、override关键词的使用

虚拟方法和动态方法不同于静态方法,它们可以在其后裔类中被覆盖(overridden),即只有一个方法所在类的祖先类对应的方法是virtual或dynamic的,这个当前类的方法才可以用overide覆盖。当一个覆盖方法被调用时,方法调用中使用的类或对象的实际(运行时)类型决定了哪一个实现是有效的,而非变量声明的类型决定。virtual方法是可以有实现的部分的,也可是在后裔类中override。

2014-09-09 09:59:47 1928

原创 ParamStr(0)是什么?

今天看了一下网上的各种关于ParamStr(0)

2014-09-05 17:26:27 1734

转载 鼠标按住后拖动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 961

原创 文本编辑器的查询功能

用delphi写文本编辑器时使用的查找功能代码段

2014-09-03 14:21:12 465

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除