上一页 1 2 3 4 5 6 7 8 ··· 20 下一页

2011年5月30日

SQL CHARINDEX 函数、InStr 函数、PATINDEX 函数、stuff函数

摘要： CHARINDEX 函数返回字符或者字符串在另一个字符串中的起始位置。CHARINDEX 函数调用方法如下：CHARINDEX ( expression1 , expression2 [ , start_location ] ) Expression1 是要到 expression2 中寻找的字符中，start_location 是 CHARINDEX 函数开始在 expression2 中找expression1 的位置。CHARINDEX 函数返回一个整数，返回的整数是要找的字符串在被找的字符串中的位置。假如 CHARINDEX 没有找到要找的字符串，那么函数整数“0”。InStr 函数返 阅读全文

posted @ 2011-05-30 09:55 严武 阅读(15128) 评论(1) 推荐(1) 编辑

SQL CURSOR 游标

摘要： /*原理：游标就是把数据按照指定要求提取出相应的数据集，然后逐条进行数据处理。1.1游标的概念 游标(Cursor)它使用户可逐行访问由SQL Server返回的结果集。使用游标(cursor)的一个主要的原因就是把集合操作转换成单个记录处理方式。用SQL语言从数据库中检索数据后，结果放在内存的一块区域中，且结果往往是一个含有多个记录的集合。游标机制允许用户在SQL server内逐行地访问这些记录，按照用户自己的意愿来显示和处理这些记录。1.2 游标的优点从游标定义可以得到游标的如下优点，这些优点使游标在实际应用中发挥了重要作用： 1）允许程序对由查询语句select返回的行集合中的每一行执 阅读全文

posted @ 2011-05-30 09:37 严武 阅读(12714) 评论(1) 推荐(0) 编辑

2011年5月21日

Delphi 快捷键大全

摘要： 在过程、函数、事件内部， SHIFT+CTRL+向上的方向键 可跳跃到相应的过程、函数、事件的定义．相反，在过程、函数、事件的定义处，SHIFT+CTRL+向下的方向键 可跳跃到具体过程、函数、事件内部CTRL+ SHIFT + C:编写申明或者补上函数. 如： procedure TT.A(AA: string); //函数申明 安下：CTRL+ SHIFT + C后，会写上 procedure TT.A(AA: string); begin end; SHIFT+CTRL+E 显示 EXPLORER crtl + shift + n (n=1,2,3,4......) 定义书签 crtl 阅读全文

posted @ 2011-05-21 11:05 严武 阅读(357) 评论(0) 推荐(0) 编辑

2011年5月16日

Delphi Inputbox,InputQuery用法

摘要： Delphi :InputQuery,InputBox用法及区别function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean; InputQuery返回值为是否点了OK 输入的字符串放在了变量Value中 function InputBox(const ACaption, APrompt, ADefault: string): string; inputBox返回值是字符串,也就是输入的字符串procedure TForm1.Button1Click(Sender: TObject);vars: 阅读全文

posted @ 2011-05-16 11:47 严武 阅读(4538) 评论(0) 推荐(0) 编辑

2011年5月6日

Delphi中的THashedStringList对象

摘要： Delphi中的THashedStringList对象有许多程序员都喜欢使用TStringList类作为键值存储，这是不错的用法。但是 TStringList本身只是对数据线性的存储，当数据量大时，对其检索效率极为低下。Delphi在在IniFiles 单元中定义了另一个TStringList类，采用了哈希技术存储数据，它就是THashedStringList类。下面这段代码就是摘自 IniFiles单元中对THashedStringList的定义。THashedStringList = class(TStringList)private FValueHash: TStringHash; FN 阅读全文

posted @ 2011-05-06 17:36 严武 阅读(968) 评论(0) 推荐(0) 编辑

Delphi中Hash表的使用方法(THashedStringlist)

摘要： TStringList是我们常用的字符串列表类型，用法就不在这里赘述，但是，在其数据项数增多时，其搜索（主要是name/key搜索和indexof搜索）性能会急剧下降，原因是TStringList的内部存储使用了链表形式，而搜索操作使用了循环遍历方式。值得高兴的是，在iniFiles单元，Delphi为我们提供了THashedStringList类型，即，经过哈希处理的TStringList，它继承自TStringList，只是对搜索方法进行了优化，因此，我们完全可以放心的在大量字符串搜索的时候使用它来代替TStringList，而需要改变的只是在:=的后面用THashedStringList 阅读全文

posted @ 2011-05-06 17:27 严武 阅读(5533) 评论(2) 推荐(0) 编辑

2011年4月20日

WinAPI: sndPlaySound - 播放 wav 文件

摘要： //声明:sndPlaySound( lpszSoundName: PChar; {声音文件} uFlags: UINT{播放选项}): BOOL;//uFlags 参数可选值:SND_SYNC = 0; {同步播放, 程序须等到播放完毕才向下执行}SND_ASYNC = 1; {异步播放, 在函数返回之后开始播放, 不影响程序继续执行}SND_NODEFAULT = 2; {声音文件缺失时, 函数自动返回不播放默认声音}SND_MEMORY = 4; {播放内存中的声音, 譬如资源文件中的声音}SND_LOOP = 8; {循环播放, 需要和 SND_ASYNC 组合使用}SND... 阅读全文

posted @ 2011-04-20 14:43 严武 阅读(267) 评论(0) 推荐(0) 编辑

2011年4月15日

delphi字符串函数大全

摘要： 函数 function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas功能 返回两个字符串是否相似说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text);━━━━━━━━━━━━ 阅读全文

posted @ 2011-04-15 17:43 严武 阅读(935) 评论(0) 推荐(0) 编辑

2011年4月13日

DELPHI SOKET 编程

摘要： 本文采用delphi7+TServerSocket+TClientSocket;笔者在工作中遇到对局域网中各工作站与服务器之间进行Socket通信的问题。现在将本人总结出来的TServerSocket和TClientSocket两个组件的基本用法写出来，希望与您分享。 ClientSocket组件为客户端组件。它是通信的请求方，也就是说，它是主动地与服务器端建立连接。 ServerSocket组件为服务器端组件。它是通信的响应方，也就是说，它的动作是监听以及被动接受客户端的连接请求，并对请求进行回复。 ServerSocket组件可以同时接受一个或多个ClientSocket组件的连接请... 阅读全文

posted @ 2011-04-13 17:42 严武 阅读(318) 评论(0) 推荐(0) 编辑

2011年3月29日

Delphi代码中嵌入ASM代码

摘要： 前言 Delphi作为一个快速高效的开发平台，使用的人越来越多，但熟悉在Delphi代码中嵌入ASM代码的程序员我想不多，因为这方面的资料太少了，另一方面，它还需要有基本的汇编语言知识，关於汇编语言的教程，那实在太多了，如果你对汇编语言不熟的话，建议你下载相交的教程先读读。因此，本文假定您已经熟悉了汇编语言。 （注，下文中的函数与过程统称为函数。）一．如何在Delphi程序中增加一段汇编代码？ 很简单，用asm...end把你的汇编代码封装起来，再把它放到你需要它的位置．这个需要它的位置可以是函数的begin与end之间，也可以是Program的begin与end之间，当然，好可以是in... 阅读全文

posted @ 2011-03-29 09:44 严武 阅读(285) 评论(0) 推荐(0) 编辑

上一页 1 2 3 4 5 6 7 8 ··· 20 下一页

Copyright © 2024 严武
Powered by .NET 8.0 on Kubernetes