- 博客(19)
- 资源 (2)
- 收藏
- 关注
RSS订阅转载 非COM环境下的接口编程
<br /><br />非COM环境下的接口编程<br />------问题，技巧，应用<br />先行知识：Delphi/接口/Dll/OOP<br /> <br />难度：★★★☆☆<br /> <br /> <br /> <br />引子：<br /> <br />接口的概念由来已久，早在COM出现之前（COM应该是95年左右）接口的概念就已经在面向对象的开发中根深蒂固了，著名的《设计模式》（94年出版）中也指出“针对接口编程而不是针对实现编程”。使用接口可以降低软件系统中不同模块的偶合性，利于软件系
2011-01-16 16:38:00
732
原创 CXGRID，定位并高亮
<br />var<br /> I, FoundPos: integer;<br /> AColumn : TcxGridDBColumn;<br /> AText : String;<br />begin<br /> AText := 'Blue Sports';<br /> with cxGrid1DBTableView1 do<br /> begin<br /> AColumn := GetColumnByFieldName('Company');<br /> for I :=
2010-09-25 23:49:00
3180
原创 CXGRID设置Selstart和SelLength
//找到指定位置，并将文字插入Grid当前的编辑单元格中var Part1, Part2 : string; CurrentEditor : TcxTextEdit;begin CurrentEditor := TcxTextEdit(.Controller.EditingController.Edit); if CurrentEditor nilthen begin Part1 := Copy( CurrentEditor.Text, 1, CurrentEditor.SelStar
2010-09-25 23:46:00
1423
转载 Delphi 中相对路径与绝对路径、系统环境变量等相关函数说明
<br />以前也曾经为 Delphi 中相对路径与绝对路径之间的转换烦恼过。但时，用得少，也没过多地去注意了。今天要写一个小程序，又遇到了这个问题。就找资料吧，终于找到了最简单，最直接的方式。现在把函数整理如下：<br /><br /><br /><br />//取绝对路径的函数。需要引用 ShlwApi.pas<br /><br />// BasePath: 是参考路径。RelativePath: 是指相对路径<br /><br />function GetAbsolutePathEx(BasePath
2010-09-12 17:05:00
1420
转载 VCLZIP样例
<br />procedure TForm1.FlatButton1Click(Sender: TObject);<br />var<br /> FilePath:String;<br />// numberzip:Smallint;<br />begin<br /> FilePath:=ExtractFilePath(Application.ExeName)+'顺德';<br />{ Thread1:=TShowProgress.create(FilePath);
2010-09-10 17:37:00
1313
转载 delphi中无类型文件读写
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; Button3: T
2010-09-10 17:36:00
2476
转载 delphi 文件CRC32校验
unit Crc32; <br /> <br /> interface <br /> <br /> uses Windows; <br /> <br /> const <br /> Table: array[0..255] of DWORD = <br /> ($00000000, $77073096, $EE0E612C, $990951BA, <br /> $076DC419,
2010-09-10 17:02:00
4347
2
转载 DELPHI打开窗体时，提示父类文件找不到
<br />DELPHI打开窗体时，提示父类文件找不到<br />这两天，使用工程中突然在打开窗体的时候出错，大概的意思就是找不开父类文件(因为我是从其他窗体继承过来的)。但如果先打开父类窗体 <br />又不会出错。搞了很久，没有搞定。系统也重装，还是不行。最后看到下面这遍文章才解决。 <br />我的方法是，把父类窗体全部从工程中移除，再从新添加进来就OK了。 <br /> <br />有的时候，我们会碰到一些比较烦人的东西，打开某个继承的窗体，会提示说基类窗体找不到，并且找不开这个窗体，必须先打开基类
2010-08-30 10:54:00
2652
转载 用Delphi创建一个空的Access数据库
<br />unit Unit1; <br /> <br /> interface <br /> <br /> uses <br /> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, <br /> StdCtrls, Db, ADODB, comobj; <br /> <br /> type <br
2010-08-28 13:05:00
3694
转载 DELPHI中Format函数功能及用法详解
function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas功能：返回按指定方式格式化一个数组常量的字符形式说明 这个函数是Delphi中用得最多的函数，现在就列举几个例子以得到直观的理解"%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型它是以"%"开始,而以"类型"结束，"类型"表示一个具体的类型。中间是用来格式化"类型"的指令字符，是可选的。
2010-08-04 17:19:00
1184
转载 自绘POPUPMENU，使其强制向上弹出
<br />//自绘POPUPMENU，使其强制向上弹出<br /> TrackPopupMenu(Pmu_ReportList.Items.Handle, TPM_BOTTOMALIGN, sPoint.X-cPoint.X,sPoint.Y-cPoint.Y,<br /> 0, PopupList.Window, nil);
2010-08-04 17:05:00
960
转载 深入浅出ShellExecute
Q: 如何打开一个应用程序？ ShellExecute(this-> m_hWnd, "open ", "calc.exe ", " ", " ", SW_SHOW ); 或 ShellExecute(this-> m_hWnd, "open ", "notepad.exe ", "c:/MyLog.log ", " ",SW_SHOW ); Q: 如何打开一个同系统程序相关连的文档？ ShellExecute(this-> m_hWnd, "ope
2010-08-04 16:38:00
645
转载 delphi 中获取文件大小
<br />大概有这些方法可以获得文件大小 <br />FileSizeByName（需要引用IdGlobal单元） <br />GetFileSize <br />FileSize（不能获得正在使用的文件大小） <br />FileSeek <br />TFileStream.Size <br /><br />下面是使用例子 <br />1。FileSizeByName（需要引用IdGlobal单元） <br />begin <br />if OpenDialog1.E
2010-08-04 16:37:00
1029
原创 Java Servlet 和 JSP入门教程（4）
Java Servlet 和 JSP教程（4）3.3 输出HTML的Servlet 大多数Servlet都输出HTML，而不象上例一样输出纯文本。要输出HTML还有两个额外的步骤要做：告诉浏览器接下来发送的是HTML；修改println语句构造出合法的HTML页面。 第一步通过设置Content-Type（内容类型）应答头完成。一般地，应答头可以通过HttpServletResponse的setH
2005-07-23 15:39:00
1559
原创 Java Servlet 和 JSP入门教程（3）
Java Servlet 和 JSP教程（3）3 Servlet 3.1 Servlet基本结构 下面的代码显示了一个简单Servlet的基本结构。该Servlet处理的是GET请求，所谓的GET请求，如果你不熟悉HTTP，可以把它看成是当用户在浏览器地址栏输入URL、点击Web页面中的链接、提交没有指定METHOD的表单时浏览器所发出的请求。Servlet也可以很方便地处理POST请求。POST
2005-07-23 15:38:00
1415
原创 Java Servlet 和 JSP入门教程（2）
Java Servlet 和 JSP教程（2）2 安装 2.1 安装Servlet和JSP开发工具 要学习Servlet和JSP开发，首先你必须准备一个符合Java Servlet 2.1/2.2和JavaServer Pages1.0/1.1规范的开发环境。Sun提供免费的JavaServer Web Development Kit（JSWDK），可以从http://java.sun.com/p
2005-07-23 15:37:00
1357
原创 Java Servlet 和 JSP入门教程（1）
Java Servlet 和 JSP教程（1）1 概述 1.1 Java Servlet及其特点 Servlet是Java技术对CGI编程的回答。Servlet程序在服务器端运行，动态地生成Web页面。与传统的CGI和许多其他类似CGI的技术相比，Java Servlet具有更高的效率，更容易使用，功能更强大，具有更好的可移植性，更节省投资（更重要的是， Servlet程序员收入要比Perl程序员
2005-07-23 15:36:00
1400
原创 每个java初学者都应该搞懂的问题！
对于这个系列里的问题，每个学Java的人都应该搞懂。当然，如果只是学Java玩玩就无所谓了。如果你认为自己已经超越初学者了，却不很懂这些问题，请将你自己重归初学者行列。内容均来自于优快云的经典老贴。问题一：我声明了什么！String s = "Hello world!";许多人都做过这样的事情，但是，我们到底声明了什么？回答通常是：一个String，内容是“Hello world!”。这样模糊的
2005-07-22 03:41:00
3893
7
原创 似水年华--
伴随着考场上的停考铃声响起，一年的时间已经离我而去！心情多少有些沮丧，时间，总是在你不经意间告知你它的离开！ 过去的都已经过去，回头反思，一年的先锋岁月，给我带来了什么； 微笑，告别了过去的颓废，我的日子慢慢在学会正常； 沉默，带着耳边的音乐，学会了冷眼旁观！一切，并不是在什么时候都会雷同于心中所想；或许，这样的我，会更加的安分； 繁杂，我不能停留，因为春夏秋冬在追逐着我的步伐，因
2005-07-22 02:47:00
1309
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人