程序开发

programme

QQ尾巴VB源代码

'API声明: GetWindow ShowWindow
'常数: GW_OWNER SW_HIDE
Dim a As Long
a = GetWindow(Me.hwnd, GW_OWNER)
ShowWindow a, SW_HIDE
Me.Visible = False

'第二步: 取得系统目录路径!
'API声明: GetSystemDirectory
Dim b As String
b = Space(19)
GetSystemDirectory b, 20

什么是面向对象编程(二)

3.4 异常处理
随着程序规模的增长,特别是当程序库对外发布后,提供一个处理错误(或者更一般地说,“异常情况”)的标准机制是重要的。Ada,Algol68和Clu各自支持一套处理异常的标准机制。不幸的是,C++不直接支持异常处理(译注,现在的C++标准已经支持异常处理),而必须使用函数指针,“异常对象”,“错误状态”和C的库函数signal和longjump等机制来伪造。这些机制不够一般,同时也不能提供一个处理错误的标准框架。
重新考虑一下vector的例子。当一个越界的索引值被传递给索引(subscribe)操作时,会发生什么?vector的设计者应该可以为此指定一个缺省行为:
class vector {
...
except vector_range{
//define an exception called vector_range
//and specify default code for handling it
error("global,vector range error" );
exit( 99 );
}
}

什么是面向对象编程(一)

什么是"面向对象编程" (1991修订版)
What is "Object-Oriented Programming"(1991 revised version)
Bjarne Stoustrup
AT&T Bell Laboratories
Murray Hill,New Jersey 07974

张珺译
[email protected]

译者序

不要将本文简单地视为是对C++特征的一个介绍。它的意义在于,一方面介绍了编程风格的演变,以及这种演变背后的动机
。另一个方面,它特别澄清了基于对象的(OB)和面向对象(OO)的异同,这是具有很大意义的。我们可以看到,
不管是OB还是OO,都不过是一种程序的组织形式。 这在很大程序上指出了OO着眼于解决什么样的问题
(程序如何组织才能有弹性,容易重用和理解),而不解决什么问题(数据结构的设计,算法的设计)等等。

数据导出为Excel格式

首先要创建一个公共单元,名字你们可以随便起。
以下是我创建的公共单元的全部代码:
unit UnitDatatoExcel;
interface
uses
Windows,Messages, SysUtils, Classes, Graphics, Controls, Forms,Dialogs,
DB, ComObj;
type
TKHTMLFormatCellEvent = procedure(Sender: TObject; CellRow,CellColumn: Integer; FieldName: string;
var CustomAttrs, CellData: string) of object;
TDataSetToExcel = class(TComponent)
private
FDataSet: TDataSet;
FOnFormatCell: TKHTMLFormatCellEvent;
public
constructor Create(AOwner: TComponent); override;

向EXCEL中添加数据代码

procedure TForm1.suiButton3Click(Sender: TObject);
var
aSheet:Variant;
time:string;
begin
// 显示MS-Excel的运行过程
ExcelApplication1.Visible[0] := True;

// 创建一个 WorkBook
ExcelApplication1.WorkBooks.Add(xlWBATWorksheet,0);

◇[DELPHI]网络邻居复制文件

什么是流?流,简单来说就是建立在面向对象基础上的一种抽象的处理数据的工具。在流中,定义了一些处理数据的基本操作,如读取数据,写入数据等,程序员是对流进行所有操作的,而不用关心流的另一头数据的真正流向。流不但可以处理文件,还可以处理动态内存、网络数据等多种数据形式。如果你对流的操作非常熟练,在程序中利用流的方便性,写起程序会大大提高效率的。
下面,笔者通过四个实例:EXE文件加密器、电子贺卡、自制OICQ和网络屏幕传输来说明Delphi编程中“流”的利用。这些例子中的一些技巧曾经是很多软件的秘密而不公开的,现在大家可以无偿的直接引用其中的代码了。
“万丈高楼平地起”,在分析实例之前,我们先来了解一下流的基本概念和函数,只有在理解了这些基本的东西后我们才能进行下一步。请务必认真领会这些基本方法。当然,如果你对它们已经很熟悉了,则可以跳过这一步。

Delphi编程技巧集锦

◇[DELPHI]网络邻居复制文件
uses shellapi;
copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);

◇[DELPHI]产生鼠标拖动效果
通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL:
var xpanel,ypanel,xlabel,ylabel:integer;
PANEL的MouseMove事件:xpanel:=x;ypanel:=y;
PANEL的DragOver事件:xpanel:=x;ypanel:=y;
LABEL的MouseMove事件:xlabel:=x;ylabel:=y;
LABEL的EndDrag事件:label.left:=xpanel-xlabel;label.top:=ypanel-ylabel;

建立、读取、存贮INI文件的方法《三》

  控制INI文件几法

  要利用.INI文件做程序有关数据的存储工作,就需要能读和写.INI文件,所以列了如下方法给大家参考:

  从.INI文件中获取字符串

  var

  strResult:pchar;

  begin

  GetPrivateProfileString(

  'windows', // []中标题的名字

  'NullPort', // =号前的名字

  'NIL', // 如果没有找到字符串时,返回的默认值

  strResult, //存放取得字符

  100, //取得字符的允许最大长度

  'c:forwin95win.ini' // 调用的文件名

  );

  edit1.text:=strResult; //显示取得字符串

  从.INI文件中获取整数

  edit1.text:=inttostr(GetPrivateProfileInt(

  'intl', // []中标题的名字

建立、读取、存贮INI文件的方法《二》

内容:

页面

Subscribe to RSS - 程序开发