![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
抄袭
文章平均质量分 74
jxzqsun
这个作者很懒,什么都没留下…
展开
-
半小时精通正则表达式
半小时精通正则表达式! document.title="半小时精通正则表达式! - "+document.title想必很多人都对正则表达式都头疼.今天,我以我的认识,加上网上一些文章,希望用常人都可以理解的表达方式.来和大家分享学习经验. 开篇,还是得说说 ^ 和 $ 他们是分别用来匹配字符串的开始和结束,以下分别举例说明 "^The": 开头一定要有"The"字符串;转载 2006-03-06 15:35:00 · 669 阅读 · 0 评论 -
WinInet 下载文件示例
Uses WinInet(1)HTTP下载Function WWWDownFile(Const FTURL,LocalFile : String) : Boolean; //下载函数.Const FTAcceptTypes = */*; FTAgent = Explorer; FTUserName = ; //用户名. FTPassw转载 2006-03-04 22:33:00 · 1793 阅读 · 0 评论 -
fileStream
procedure TForm1.Button1Click(Sender: TObject);var f1:TFileStream; filename:String;begin OpenDialog1.Execute ; filename:=OpenDialog1.FileName ; f1:=TfileStream.Create (filename,fmopenr转载 2006-03-04 22:24:00 · 636 阅读 · 0 评论 -
Scripting Your Delphi Applications
Scripting languages are nothing new. From the DOS batch file you wrote years ago, through to the ASP code that drives your website, scripting languages are a good solution to certain problems. However转载 2006-03-04 22:40:00 · 7511 阅读 · 0 评论 -
在DELPHI中用线程排序
在数据处理量很大的情况下,如何在数据处理的同时响应用户操作?Windows95/98和WindowsNT作为多线程的多任务操作系统,其调度单元是线程,即线程是系统分配处理器时间资源的基本单元,所以我们可以利用线程实现在处理大批量数据的同时响应用户操作。 DELPHI作为一个优秀的开发平台,对开发多线程应用程序提供了强有力的支持,即可直接利用32位Windows环境提供的Win32API接口转载 2006-03-06 12:05:00 · 650 阅读 · 0 评论 -
利用内存映射文件扩充程序可用的内存
Windows利用页交换文件来扩充应用程序实际可用的内存,而不仅限于实际的32兆或64兆物理内存。但是Windows的页交换文件是所有程序共用的,所以我们的程序要想获得更大的内存还是比较困难,比如600兆或者更多。难道就没有办法了吗?Windows提供的内存映射文件为我们提供解决问题的途径。在硬盘上建立一个600兆的文件,然后将它映射到我们进程的地址空间,Windows会返回一个指向这块内存地转载 2006-03-05 06:46:00 · 649 阅读 · 0 评论 -
数据库存取图像
procedure TForm1.BitBtn1Click(Sender: TObject);var jpeg:TJpegImage; mem:TmemoryStream;begin mem:=TmemoryStream.Create; mem.LoadFromFile("E:/Adobe/Adobe1.jpg"); ADOQuery1.Insert; TBlobField(A转载 2006-03-05 02:19:00 · 787 阅读 · 0 评论 -
加密与解密
function DecryptSettings(Str : String): String;varX, Y : Integer;A : Byte;Key:string;beginKey:=Fi7ke; //注意了,这里要和加密钥匙一样.Y := 1;for X := 1 to Length(Str) dobeginA := (ord(Str[X]) and $0f) xor (ord(Key转载 2006-03-05 00:30:00 · 631 阅读 · 0 评论 -
数组保存到文件
procedure TForm1.Button1Click(Sender: TObject);var b: array [0..31] of byte; i:integer; h:integer;begin for i := low(b) to High(b) do begin b[i] := i; end; h := FileCreate(f:/test.dat); FileWrite(h,转载 2006-03-04 23:32:00 · 1190 阅读 · 0 评论 -
多国语言
我Post一个INI的吧:对于INI文件的操作,我不多说了,仅仅就如何实现语言界面的切换做一个简单的说明:首先,必须把所有的INI语言文件的结构统一,这样,我们只要传入INI的文件名,就可以通用了,例如我们可以做一个过程SetLanguage(const FileName:string);,这样只要用SetLanguage(CN.INI)就可以了,第二个需要注意的地方,你应该可以让用户选择语言转载 2006-03-04 23:27:00 · 788 阅读 · 0 评论 -
PHP分词
/* ----------------------------------------------------------------------- */ PHP-简易中文分词 (SCWS) ver 3.1/2.1 (实例演示) (*) 基于词频词典逐点搜索最长词, 双向根据词频取较高之分法 --------------------------------------------转载 2006-03-06 12:14:00 · 2009 阅读 · 0 评论 -
正则表达式语法
正则表达式语法 在典型的搜索和替换操作中,必须提供要查找的确切文字。这种技术对于静态文本中的简单搜索和替换任务可能足够了,但是由于它缺乏灵活性,因此在搜索动态文本转载 2006-03-07 15:55:00 · 683 阅读 · 0 评论 -
XMLHTTP批量抓取远程资料
AUTOGET=================================================FileName: Getit.AspIntro : Auto Get Data From Remote WebSiteAuthor: Babyt(阿泰)URL: http://blog.csdn.net/babytCreateAt: 2002-02 LastUpdate:转载 2006-03-06 18:13:00 · 587 阅读 · 0 评论 -
最简单的多线程
//调用线程procedure TForm1.Button3Click(Sender: TObject);begin TOpenTest.Create(ProgressBar1); TOpenTest.Create(ProgressBar2);end;unit FThread;interfaceuses Classes,ComCtrls;type TOpenTest = class转载 2006-03-05 02:27:00 · 721 阅读 · 0 评论